如何復制范圍中的兩個非相鄰列

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")

第一個是復制不同的范圍，而第二個是合並范圍。