Excel如何把同一张表里不同sheet的c91:p1021区域全部导入到一张空白sheet里?求

Excel如何把同一张表里不同sheet的c91:p1021区域全部导入到一张空白sheet里?求

Sub test()
    Sheets.Add Sheets(1)
    r = 1
    For i = 2 To Sheets.Count
        Sheets(i).Range("c91:p1021").Copy Cells(r, 1)
        r = r + 931
    Next
End Sub

按住alt依次按f11,i,m
粘贴代码后按f5即可在当前工作簿中新增一个sheet,并将其他sheet的c91:p1021区域依次粘贴到这个新增的sheet中.
追问是p102，我打错了，不好意思，该怎么换?r=r+11?Sheets(i).Range("c91:p1021").Copy Cells(r, 1)
r = r + 931缺少：语句结束怎么半?大神回复下吧？

在工作表左上角的名称框中，输入C91:P1021，将C91:P1021区域处于选择状态；
按Ctrl+C，复制；然后在目标Sheet1的A1单元格，按Ctrl+V，或者单击鼠标右键，“选择性粘贴”为“数值”，即可。追问大哥，不是一张。。有三四十张