Excel VBA代码将复制的数据粘贴两次

时间:2018-12-10 14:57:04

标签: excel vba excel-vba

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

0 个答案:

没有答案