如何在excel vba中将单元格从一行复制到另一行

假设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

你需要使用 Transpose ,请尝试以下代码:

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