我编写了一个代码,用于从两张纸上复制数据: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