Excel 宏将数据粘贴到 X 列答案

【问题标题】：Excel macro to paste data into column XExcel 宏将数据粘贴到 X 列
【发布时间】：2017-11-20 22:56:55
【问题描述】：

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

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

【问题讨论】：

“移动范围”是什么意思？
每次我从电话销售入站表中粘贴数据时，我都想在每次填充数据时移动的范围内进行操作
移动到哪里？？？您是否只想将其粘贴到第一列中最后使用的单元格下方？还是您希望它粘贴到新列中？（您的问题说明了您如何找到下一个非空列，但这似乎并没有在您的代码中的任何地方使用。）或者您只是想允许“移动”结束行您的来源和目的地区域？还是……？

标签： excel range offset vba

【解决方案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

【讨论】：

我想这是对“移动范围”的一个很好的解释。 :D（但我想知道给出下一个**非**空列编号的单元格在哪里起作用？）
由于除了一个模糊的随手参考之外，问题中明显遗漏了它，我推断这实际上是一个严密保密的秘密，我不想冒着叛国的风险。