x= 0
Do Until Range("A1").Offset(x, 0).Value = ""
x= x + 1
Loop
x= 0
Do x = x + 1
Loop While Range("A1").Offset(0, x).Value <> ""
x= 0
For Each x In Range("A:A")
If x <> "" Then x = x + 1
Next
x= Application.WorksheetFunction.Count(Range("A:A"))
这道题你会答吗?花几分钟告诉大家答案吧!