请高手帮我解读一下这个VBA程序

阿方1980

今天看到一个VBA程序，用于将一个工作簿中的格式相同的多个工作表粘贴到“总表”中，以便于下一步汇总计算，程序语句很简练，我一时看不明白，如语句中只看到复制语句“rg.Copy .Cells(irow, 1)”，却没看到粘贴语句，不能明白是怎么样将各明细表数据粘到“总表”的，烦请高手大侠帮忙逐句解读一下，十分感谢。
Sub Allcopy()

  Dim rg As Range

  Dim sh As Worksheet

  Dim irow, jcol

    Sheets("总表").Range("2:1048576").Clear

      For Each sh In Worksheets

        With Sheets("总表")

          If sh.Name <> "总表" Then

            Set rg = sh.UsedRange.Offset(1, 0)

            irow = .Range("A" & Rows.Count).End(xlUp).Row + 1

            rg.Copy .Cells(irow, 1)

         End If

       End With

    Next

End Sub

abc123281

rg是要复制的单元格区域，.Cells(irow, 1)是目标单元格，建议从基础学起 你需要懂得with语句及for each循环语句

阿方1980

abc123281 发表于 2018-6-25 12:11
rg是要复制的单元格区域，.Cells(irow, 1)是目标单元格，建议从基础学起 你需要懂得with语句及for each循环 ...

请问哪一句是起执行粘贴数据作用的？

abc123281

rg.Copy .Cells(irow, 1)