Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
113 views
in Technique[技术] by (71.8m points)

excel - Finding out the last columns format problem

Can you please help me edit this code to make it possible. I think it's format problem. But i don't know how to solve it. My code is to find out how many columns we have.

Range("m4").Value = Range(""A" & Columns.Count, 1").End(xlToLeft).Column
See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

Not sure what you want but I guess you would like to get the colum number of the last filled cell in the first row. Then you might try this

Range("m4").Value = Cells(1, Columns.Count).End(xlToLeft).Column

In order to use your approach you would need the following function

Function colLetter(col As Long) As String
    colLetter = Split(Columns(col).Address(, 0), ":")(0)
End Function

and then

Range("m4").Value = Range(colLetter(Columns.Count) & "1").End(xlToLeft).Column

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...