使用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宏.