VBA怎样定位到多列的最后一行？

Sub A_D列最后一个单元格()
Dim A, B, C, D, E As String
A = Mid(Range("A1")End(xlDown)Address, 4, 99) 'A列最后
B = Mid(Range("B1")End(xlDown)Address, 4, 99) 'B列最后
C = Mid(Range("C1")End(xlDown)Address, 4, 99) 'C列最后
D = Mid(Range("D1")End(xlDown)Address, 4, 99) 'D列最后
U = ","
E = WorksheetFunctionMax(A, B, C, D)
E = E + ":" + E
Range(E)Select
End Sub

比如你的数据是从A1到F10，现在所选择的单元格是B3:
ctrl+下方向键，定位到B10；
ctrl+shift+下方向键，选中单元格B3到B10；
ctrl+end，定位到F10；
ctrl+shift+end，选择B3到F10。
若现在选择的单元格是B3和D3:
ctrl+shift+下方向键，选择B3到D10。

使用vba实现
设置从下往上查找，查找内容是“”
找到的第一个非空单元格对应的就是最下面一行的
vba代码如下：r就是有字符的最大行号
Sub test() '删除各表最后3个数据行
Dim sh As Worksheet, r
For Each sh In Worksheets
r = shCellsFind("", , , , 1, 2)Row‘表格非空最大行号
Next
End Sub

可以通过键盘上的“End”键和“Home”键实现。 具体 *** 作： ①选择工作表的任意单元格，按“Ctrl+End”键，会自动跳到该工作表的表尾，表尾即该工作表有 *** 作过的最右侧最下方的单元格。 ②按“End”键，再按“Home”键，也可以实现回到表尾。

怎么快速选择excel到最后一行快捷键
打开excel文档，找到要选择的一列内容，选中第一行内容，同时按下键盘上的ctrl键和shift键，然后按一下向下的箭头，就可以选中这一列第一行至最后一行的内容。

扩展资料：

Microsoft Excel是Microsoft为使用Windows和AppleMacintosh *** 作系统的电脑编写的一款电子表格软件。 直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了50版之后，Excel就开始成为所适用 *** 作平台上的电子制表软件的霸主。

---