Excelmacros将数据粘贴到列X中

我正在寻找一个macros来粘贴一些数据到一个移动的范围。 我已经有一个单元格告诉我下一个非空列的编号，这是我目前使用的代码：

Dim OpenFileName As String Dim wb As Workbook 'Select and Open workbook OpenFileName = Application.GetOpenFilename() If OpenFileName = "False" Then Exit Sub Set wb = Workbooks.Open(OpenFileName) 'Get data EXAMPLE ThisWorkbook.Sheets("Teleselling 17").Range("I9:I289")*this should be dynamic, I want to paste data in a moving range*.Value = wb.Sheets("TELESELLING INBOUND").Range("L9:L289").Value wb.Close SaveChanges:=False MsgBox ("Done!") 

Answer 1

使用新打开的工作簿/工作表/范围来定义值转移的范围。

 with wb.workSheets("TELESELLING INBOUND").Range("L9:L289") ThisWorkbook.workSheets("Teleselling 17").Range("XFD9").end(xltoleft).offset(0, 1).resize(.rows.count, .columns.count) = .value end with