如何在Excel VBA中將單元格從一行復制到另一行

Question

Range("A7:C17").Copy Range("F2")

我只想將數據從A7復制到F2； B7 TO F3和C7至F4在同一張紙上。 我使用了上面的代碼。 但是，如果我要再增加一行（即A18 B18 C18），則它行不通。 幫我

Answer 1

假設C中的行與A中的行一樣多

Range("A7", Range("C" & Rows.Count).End(xlUp)).Copy Range("F2")

如果不，

Range("A7", Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Copy Range("F2")

如果您只需要這些值而不需要格式，

If Range("F2") <> vbNullString Then
    Range("F2", Range("F" & Rows.Count).End(xlUp)).Resize(, 3).ClearContents
End If

With Range("A7", Range("A" & Rows.Count).End(xlUp)).Resize(, 3)
    Range("F2").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With

Answer 2

您需要使用Transpose ，嘗試下面的代碼：

Range("A7:C17").Copy
Range("F2").PasteSpecial Paste:=xlPasteAll, Transpose:=True