Question

所以我要做的是将数据列表复制到另一个位置（最终到另一个选项卡，但我可以自己解决）。数据列表的长度可变，但手动填充到另一个单元格中。

需要复制的列表是2行宽（H＆amp; I）和x列长（从第2行到“结束”）
单元格N6中的值是行数
因此需要复制的范围是H2到I（行数+1）

这是我的代码

Sub Copycells()
Dim wb As Workbook
Dim wb1 As Worksheet
Dim LastRow As Long

Set wb = ThisWorkbook
Set wb1 = wb.Sheets("Sheet1")


'check data for list length

LastRow = Worksheets("Sheet1").Cells(6, "N").Value + 1


'copy data
Range("V2:W?").Copy Range("H2:I?")

End Sub

所以，我正在努力的是如何填写副本的范围，从某种意义上说，将行号与变量号组合在一起。

Answer 1

我认为您在问题中可能会在解释中列出行和行的列错误。

但是，我非常确定我理解您希望代码执行的操作试试这个：

Sub Copycells()
Dim wb As Workbook
Dim wb1 As Worksheet
Dim LastRow As Long

Set wb = ThisWorkbook
Set wb1 = wb.Sheets("Sheet1")

'check data for list length

LastRow = Range("N6").Value + 1

'copy data
Range("H2:I" & LastRow).Copy
End Sub

您需要指定复制列表需要粘贴的位置，但我们会让您自己尝试一下。

VBA复制数据列表，长度可变

1 个答案: