选择不连续的单元格并粘贴到下一个空白行的特定列答案

【问题标题】：Select non-contiguous cells and paste to specific columns on next blank row选择不连续的单元格并粘贴到下一个空白行的特定列
【发布时间】：2018-05-15 12:04:36
【问题描述】：

我需要在工作表中选择不连续的单元格并将它们粘贴到另一个工作表的下一个空白行的特定列中。下面的代码可以复制不连续的单元格并粘贴到所需工作表上的特定单元格，但我无法适应将其复制到下一个空白行。

Sub Copycell()

    Dim rng1 As Range
    Set rng1 = Range("B2,B4,B6")

    Dim rng2 As Range
    Set rng2 = Sheets("list").Range("A2,B2,D2")

    Dim i As Long
    For Each cel In rng2
        cel.Value = rng1.Cells(i + 1)
        i = i + 1
        Next

End Sub

【问题讨论】：

我不确定我是否理解您要执行的操作。您只希望复制单元格 B2、B4 和 B6，然后将它们粘贴到工作表“列表”上 A、B 和 D 列中的下一个空白单元格是否正确？

标签： vba excel

【解决方案1】：

Sub Copycell()
    Dim Lastrow as long
    lastrow =  Sheets("list").Cells(sheets("list").rows.count,1).End(xlup).row
    Dim rng1 As Range
    Set rng1 = Range("B2,B4,B6")

    Dim rng2 As Range
    Set rng2 = Sheets("list").Range("A" & lastrow & ",B" & lastrow & ",D" & lastrow)

    Dim i As Long
    For Each cel In rng2
        cel.Value = rng1.Cells(i + 1)
        i = i + 1
        Next

End Sub

【讨论】：