Question

我尝试使用以下答案:(指定供我使用）

Sub MakeSummary()
    Dim sh As Worksheet, N As Long
    Dim i As Long, M As Long
    N = Sheets.Count - 1
    M = 2
    For i = 1 To N
        Sheets(i).Range("A12:B17").Copy
        Sheets("AllInfo").Range("A" & M).PasteSpecial (xlValues)
        Sheets("AllInfo").Range("A" & M).PasteSpecial (xlFormats)
        M = M + 6
    Next i
End Sub

我似乎无法将这个宏粘贴到彼此旁边，我可以看到M是用于粘贴彼此但我如何让这个宏过去接下来它我试图做M = M + A因为它是一个列，但它不起作用。

Answer 1

感谢ShaiRado

如果你想提前列，请说出第1行，并按照你想要的方式推进M，然后使用

Sheets("AllInfo").Cells(1, M).PasteSpecial (xlValues)   相反 - @Shai Rado

Excel VBA摘要粘贴

1 个答案: