选择当前列的第一个非空单元格，用VBA怎么写？
比如A列一直到A100有数据，我要选中A101咋整？
顺便把当前行的非空最后一列也说下，多谢
比如第一行一直从A1-Y1，我要使其选中Z1咋选？
看你题意，你是要选择第一个空单元格吧
Range("a1").End(xlDown).Offset(1, 0).Select
Range("a6513").End(xlUp).Offset(1, 0).Select
如果是非空单元格去掉.offset(1,0)就可以了，列也是类似的
Range("a1").End(xlToRight).Offset(0, 1).Select
Range("aa1").End(xlToLeft).Offset(0, 1).Select
Range("a1").End(xlDown).Offset(1, 0).Select
Range("a6513").End(xlUp).Offset(1, 0).Select
如果是非空单元格去掉.offset(1,0)就可以了，列也是类似的
Range("a1").End(xlToRight).Offset(0, 1).Select
Range("aa1").End(xlToLeft).Offset(0, 1).Select
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-12-15
这是求有内容的最后一行或列值的语句：
lastrow = UsedRange.SpecialCells(xlCellTypeLastCell).Row
lastcolumn = UsedRange.SpecialCells(xlCellTypeLastCell).Column
要选择你说的则：
cells(lastrow＋1,1).select
或
cells(1，lastcolumn＋1).select
供参考。本回答被提问者和网友采纳
lastrow = UsedRange.SpecialCells(xlCellTypeLastCell).Row
lastcolumn = UsedRange.SpecialCells(xlCellTypeLastCell).Column
要选择你说的则：
cells(lastrow＋1,1).select
或
cells(1，lastcolumn＋1).select
供参考。本回答被提问者和网友采纳
第2个回答 2015-07-03
范围内一直有数据的话比较容易，代码如下
Range("A1").End(xlDown).Offset(1, 0).Select
Range("A1").End(xlToRight).Offset(0, 1).Select
Range("A1").End(xlDown).Offset(1, 0).Select
Range("A1").End(xlToRight).Offset(0, 1).Select
第3个回答 2015-07-03
