vba - 在 vba 中定义动态范围

Question

如何在电子表格中包含数据的最后一个单元格旁边的列中指定单元格，例如，如果我有数据

Range(Cells(1, 1), Cells(lastRow, lastColumn))

如何动态定义

Range(Cells(1, 2), Cells(lastRow, n_lastColumn))

在一个函数中，它n_lastColumn指的是lastColumn?之后的下一列

Answer 1

Range(Cells(1,1), Cells(lastRow, lastColumn)).offset(,1)

或者

Range("A1").currentregion.offset(,1)

Answer 2

您可以利用对象UsedRange上可用的Worksheet属性。

但请注意，这会为您提供与当前使用范围相对的水印使用范围；即，如果您在单元格中写入一个值，然后将其删除，它仍然包含UsedRange.

Answer 3

sub find_last()

    Dim LastRow As Integer
    Dim LastCol As Integer
    Dim WS as Worksheet

    Set WS = ThisWorkbook.Worksheets("MySheet")


    LastRow = WS.Cells.Find(What:="*", After:=WS.Range("A1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False).row
    LastCol = WS.Cells.Find(What:="*", After:=WS.Range("A1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False).Column


    WS.Cells(LastRow, LastCol + 1) = "MyData"

end sub