vba - 使用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 宏。