使用vba将列复制并粘贴到excel中的行中

Question

我正在尝试编写一个复制一系列单元格的宏（AA4：AA15）（例如AA4，AA5，AA6 ...... AA15） 并将这些值粘贴到新范围（C3：N3）（例如C3，D3，E3，... N3）。使用公式找到值。我尝试使用下面看到的代码，但它只粘贴了我的复制范围中的第一个值，而不是所有的值。任何帮助表示赞赏。

Range("C3:N3").Value = Range("AA4:AA15").Value

Answer 1

如果您手动执行此操作，则可以使用“选择性粘贴” - >“转置”。所以试试：

Sub Macro1()
    Range("AA4:AA15"). Select
    Selection.Copy
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
End Sub

（请注意，我只选择第一个单元格C3，而不是整个范围C3：N3）

Excel有一个很棒的宏录制器，可以帮助您学习VBA。只需将其打开并执行一些操作，录制器就会创建一个具有这些确切操作的VBA宏。