Question

我正在努力找到一种方法来复制两个不同的连续范围（列彼此相邻，例如：A; B; C和第二个G; H; I）;并将其粘贴到另一张纸的第一个空行中，但这次我想将它们合并为一个连续体。（曾经是“A; B; C”，“G; H;我”现在我想要一张新纸张的第一个空行但是现在“A; B; C; D; F; G” - 注意D; F; G是G; H; I）

我想出的代码就是这个，但它只是粘贴第一个下面的第二个范围

Sub copy ()

lastrowa = Sheets("DATA").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
ActiveSheet.Range("A5:T1346").Copy Sheets("DATA").Rows(lastrowa) & 
_ActiveSheet.Range("AC5:AH1346").Copy Sheets("DATA").Rows(lastrowa)

End Sub

我也尝试连接，但它只是冻结了这个过程（如果它甚至是正确的，就永远不会理解）

请注意，对于range A5:T1346我希望AC5:AH1346后面跟着它;在“DATA”表的第一个空行中合并为连续体（意味着AC列应该成为U列）

任何吸烟事先提出

Answer 1

尝试，

Sub copy ()
    dim lastrowa as long

    lastrowa = workSheets("DATA").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    with ActiveSheet
         .Range("A5:T1346").Copy workSheets("DATA").cells(lastrowa, "A") 
         .Range("AC5:AH1346").Copy workSheets("DATA").cells(lastrowa, "U") 
    end with
End Sub

将活动工作表中的分隔列复制到另一个工作表的第一个空行，并合并两个列（在目标工作表中）

1 个答案: