Excel 2010 - Macro Копирование диапазона ячеек вместо целых строк

Question

Я попытался использовать обратную связь от подобных угроз - но я не могу реализовать ни один из них в своем коде. Я apoligize, поскольку я совершенно новый для макросов!

У меня есть таблица с поворотным столом, откуда я хочу скопировать A2: J2, если K2 = «Создать». Мой макрос работает, но копирует всю строку, может кто-то мне помочь?

Sub Create() 
Dim RngColF As Range 
Dim i As Range 
Dim Dest As Range 

Sheets("Data").Select 
Set RngColF = Range("K1", Range("K" & Rows.Count).End(xlUp)) 

With Sheets("Open quotes") 
    Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 
End With 

For Each i In RngColF 
    If i.Value = "Create" Then 
     i.EntireRow.Copy Dest 
     Set Dest = Dest.Offset(1) 
     Sheets("Open quotes").Select 
    End If 
Next i 
End Sub 

Answer 1

Попробуйте

Sub Create() 
Dim RngColF As Range 
Dim i As Range 
Dim Dest As Range 

Sheets("Data").Select 
Set RngColF = Range("K1", Range("K" & Rows.Count).End(xlUp)) 

With Sheets("Open quotes") 
    Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 
End With 

For Each i In RngColF 
    If i.Value = "Create" Then 
     range(cells(i.row,1).address,cells(i.row,10).address).copy Dest 
     Set Dest = Dest.Offset(1,0) 
     Sheets("Open quotes").Select 
    End If 
Next i 
End Sub 

Я не уверен, где данные вы хотите скопировать. если он находится в Листе данных, тогда у вас будет проблема, поскольку вы выбираете «Open Quotes», поэтому второй раз, когда пробежки вокруг него будут копироваться из «открытых кавычек». может захотеть обратиться к этому.

EDIT:. Ради того, чтобы быть полной Sheets («Открытые котировки») Выберите, должен (и поверьте OP уже) перемещен в конец кода