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 宏。