データを列Xに貼り付けるExcelマクロ

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