Excel VBA求某列最后一行非空行号

求出A列最后1行：Cells(Rows.Count, 1).End(3).Row
"Cells(Rows.Count, 1)"表示是查找A列最后一个非空单元格，按列的可以改成"Cells(1, Columns.count)"
"end(3)"表示的向上查找，也可以写成“end(xlup)”,还有其他3个方向，向下，向左，向右：xldown,xltoleft,xltoright

求第一行最后一列
Cells(1, Columns.Count).End(xlToLeft).Column