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

我试图估计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 

我现在如何复制这个范围并粘贴到另一个表格？ 起始单元格也是以stringforms存储的input。

任何帮助表示赞赏。 谢谢 ！

Answer 1

试试这个（未经testing）

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

<Dest>可以像Sheet2.Range("A1")

要了解什么Split(sht.Cells(, LastColumn).Address, "$")(1) ，请参见Column Number到Column Name