excel宏，如何选中某列中有数据的行

Question

在编写的宏中，
Range("B6:Q100").Select
Selection.Copy
有时候到B50以下就没数据了，有时候到B63就没数据了
我想依据B列中，能够选中有数据的那所有行，比如
到B53没数据了，宏能自动选中 B6:Q52
到B76没数据了，宏能自动选中 B6:Q75
然后就行 Selection.Copy

Answer 1

　　方法1：选中数据列，按F5或CTRL+G，打开“条件定位”，选择“数据”或“公式”，确定，即可选中该列有数据的单元格；

        

　　方法2：选中数据区域，执行筛选功能，点击筛选下拉箭头，将“空白”前的“√”去掉，选中需要选择的数据，执行“定位条件”，选择“可见单元格”，确定即可。

        

Answer 2

试试下面的代码
dim LastRow as range
LastRow =cells(rows.count,2).end(xlup)
Range(cells(6,2),cells(LastRow,17)).select追问

Sub 选中()

Sheet1.Range("B65536").End(xlUp).Row
End Sub 编译错误 属性的使用无效 （指向.Row）
Sub 选中()

dim LastRow as range
LastRow =cells(rows.count,2).end(xlup)
Range(cells(6,2),cells(LastRow,17)).select
End Sub 对象变量未设置

Answer 3

sheet1.usedrange

sheet1 的有用区域(以左上角，和右下角包含的区域)追问

能写个完整的语句吗，感觉您这个没对“B列进行检索有用区域”似的

追答

sheet1.range("B65536").end(xlup).row

返回B列最后一个有数据的单元格行号

本回答被提问者和网友采纳