如何复制范围中的两个非相邻列

Question

我只需要复制D＆H列并粘贴到表中。 这是我到目前为止所拥有的。 我尝试了一些其他修改，但没有运气搜索此站点。 谢谢

Sub Zulily_DS()
On Error Resume Next

Dim lastrowB As Long
Dim lastrowB1 As Long
Dim myLastCell As Range

Application.ScreenUpdating = True

lastrowB = Sheets("Source").Cells(Rows.Count, "B").End(xlUp).Row + 1
lastrowB1 = Sheets("Source").Cells(Rows.Count, "B").End(xlUp).Row

Sheets("Source").Select
With Sheets("Zulily_DS")

If Sheets("Source").Range("C2").Value = vbNullString Then
    .Range("D2:H2", .Range("D" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy _
                                                                            Sheets("Source").Cells(lastrowB1, 2)

ElseIf Sheets("Source").Range("C2").Value > "0" Then
    .Range("D2:H2", .Range("D" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy _
                                                                            Sheets("Source").Cells(lastrowB, 2)
End If
End With

Application.ScreenUpdating = False
End Sub

Answer 1

如果不是像这样分开您的范围：

Range("A1:A2","D1:D2")

改成：

Range("A1:A2,D1:D2")

请注意，引号不会将范围彼此分开。 它们将以您期望的表格格式粘贴，如下所示：

代替这个：

Range("A1:A2","D1:D2").Copy Range("B6:C7")

用这个：

Range("A1:A2,D1:D2").Copy Range("B6:C7")

第一个是复制不同的范围，而第二个是合并范围。