EXCEL中选择当前列的第一个非空单元格，用VBA语句怎么写？

看你题意，你是要选择第一个空单元格吧
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

这是求有内容的最后一行或列值的语句：
lastrow = UsedRange.SpecialCells(xlCellTypeLastCell).Row
lastcolumn = UsedRange.SpecialCells(xlCellTypeLastCell).Column

要选择你说的则：
cells(lastrow＋1,1).select
或
cells(1，lastcolumn＋1).select

供参考。

范围内一直有数据的话比较容易，代码如下
Range("A1").End(xlDown).Offset(1, 0).Select
Range("A1").End(xlToRight).Offset(0, 1).Select