[已解决]新手求助~在没有数据的那一个单元格中停止

QAN

求助各位大神：工作表中第二行的数据列数不确定，现在需要程序在第二行最后一列有数据的那个单元格结束，请问如何进行。刚学VBA不久，求各位大神指教，万分感谢~！
为了方便大神理解，小弟举了一个例子：假设有N列，但是第二行的数值不确定，现在想写一个程序，筛选出第二行55、11、44这三个数据，除非n列第二行没有数据，否则程序不会终止。
     A        B        C         D        E        F       G        H       I      ……
1                                                            
2      12      13      55        32      14      11     44       65     21  
3                                                               

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-9 10:57

1. Sub tr()
   
2. Dim x, a
   
3. a = Cells(2, Columns.Count).End(xlToLeft).Column
   
4.   For x = 1 To a
   
5.    If Cells(2, x) = "" Then Exit Sub
   
6.    '其他代码
   
7.   Next x
   
8. End Sub

复制代码

跳转到最佳答案楼层

xhrys

定位第二行最后一个非空单元格，range("B1").end(xltoright),再不会就F1查帮助或百度啊

我心飞翔410

1. Sub tr()
   
2. Dim x, a
   
3. a = Cells(2, Columns.Count).End(xlToLeft).Column
   
4.   For x = 1 To a
   
5.    If Cells(2, x) = "" Then Exit Sub
   
6.    '其他代码
   
7.   Next x
   
8. End Sub

复制代码