Я написал код для копирования данных с двух листов: ABC и XYZ и вставки их один за другим в другой лист: 123 (все в одной книге).
Проблема в том, что я хочу, чтобы ячейки листа ABC вставлялись дважды, и только ячейки в XYZ со значениями в столбцах AG и AH вставлялись дважды.Но я не уверен, как изменить свой код, чтобы сделать это - я новичок в vba.
Заранее спасибо !!
With .Sheets("ABC")
lRow = .Cells(.Rows.count, 1).End(xlUp).Row
Set rng = .Range("C3:C" & lRow)
rng.Copy Destination:=ThisWorkbook.Sheets("123").Range("K6")
'Somehow paste all of these values twice
End With
With Sheets("XYZ")
lRow4 = .Cells(.Rows.count, 1).End(xlUp).Row
.Range("D3:D" & lRow4).Copy
End With
With Sheets("123")
.Cells(.Rows.count, "K").End(xlUp).Offset(1, 0).PasteSpecial
End With
'For this one I only want the rows with a value in column AG:AH to paste
twice