在 VBA 中将变量范围从一个纯粹复制到另一个

Question

我正在尝试估计 excel spreasheet 中 table 的范围，然后将其从一个 sheet 复制到另一个。我已经使用下面的代码成功估计了 table 的 LastRow 和 LastColumn。

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Sheet1")

    'Ctrl + Shift + End
    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    LastColumn = sht.Cells(7, sht.Columns.Count).End(xlToLeft).Column

现在如何复制此范围并将其粘贴到另一个 sheet？起始单元格也是一个存储为字符串的输入。

感谢任何帮助。谢谢！

Answer 1

试试这个（未测试）

sht.Range("A1:" & Split(sht.Cells(, LastColumn).Address, "$")(1) & LastRow).Copy <Dest>

<Dest> 可能类似于 Sheet2.Range("A1")

要了解 Split(sht.Cells(, LastColumn).Address, "$")(1) 的作用，请参阅 Column Number to Column Name

部分

在 VBA 中将变量范围从一个纯粹复制到另一个

Copy a variable Range from one sheer to another in VBA

excel

vba

copy-paste

range