Excel宏將數據粘貼到列X中

我正在尋找一個宏將一些數據粘貼到移動範圍上。我已經告訴我的下一個非空列的數字的單元格，這是我目前使用的代碼：Excel宏將數據粘貼到列X中

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!")

來源

2017-06-18 Paris

你是什麼意思的「移動範圍」？ – YowE3K

每次我從Teleselling入站工作表中粘貼數據時，我想在每次移動的範圍內執行此操作，我用數據填充它 – Paris

移動位置？你只是想把它粘貼在第一列最後使用的單元格下面嗎？還是你想要它粘貼到一個新的列？（你的問題說了一些關於你的事情，找出瞭如何找到下一個非空列，但是這似乎並沒有在你的代碼中的任何地方使用。）或者你只是想讓一個「移動」的結束行在你的來源和目的地？要麼 ...？ – YowE3K

使用新開張的工作簿/工作表/範圍來定義價值轉移的範圍。

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

來源

2017-06-18 19:41:45 Jeeped

我想這和「移動範圍」的解釋一樣好。：D（但是我想知道給出下一個**非空列的數目的單元格在哪裏發揮作用） – YowE3K

由於這個問題明顯缺少一個模糊的單手參考，我推斷它是實際上是一個保守的祕密，我不想冒叛國風險。 – Jeeped

哈哈 - 你讓我的早晨更加美好！ – YowE3K

Excel宏將數據粘貼到列X中

回答

相關問題