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

Excel宏将数据粘贴到列X中

1 个答案: