Excel宏將數據粘貼到X列

Question

我正在尋找一個宏來將一些數據粘貼到移動范圍內。 我已經有一個單元格可以告訴我下一個非空列的編號，這是我當前使用的代碼：

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