Question

如何从第二行中选择最后一列并将光标移到上面一个单元格。

例如。如果我在单元格A2，如何使宏来计算从第2行开始的列数并选择它上面的单元格。

Answer 1

以下将计算第2行的列数，然后选择该行上方的单元格：

Sub foo()
    Dim Lastcol As Long
    Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    'declare and set your worksheet, amend as required
    Lastcol = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column
    'above count the columns on row 2
    ws.Cells(1, Lastcol).Select
End Sub

与Count类似，给定列上的行数：

LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'get the last row with data on Column A

Answer 2

到“从第二行选择最后一列并将光标移到上方的一个单元格”，只需使用

Cells(2, Columns.Count).End(xlToLeft).Offset(-1).Select

当然，上面的含义是指当前活动工作簿中当前活动的工作表

用于计算列的代码

2 个答案: