excel - 在 VBA 中将变量范围从一个层复制到另一个层

Question

我正在尝试估计 Excel 电子表格中表格的范围，然后将其从一张纸复制到另一张纸。我已经使用下面的代码成功估计了表的 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

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

感谢任何帮助。谢谢!

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 部分