excel - 如何复制范围内的两个不相邻的列

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")
第一个是复制不同的范围，而第二个是组合范围。