Как скопировать два несмежных столбца в диапазоне

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

Первый копирует разные диапазоны, а второй объединяет диапазоны.