Excel VBA код для вставки скопированных данных дважды - PullRequest
0 голосов
/ 10 декабря 2018

Я написал код для копирования данных с двух листов: 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...