通过VBA脚本合并所有Excel工作表，然后删除其余工作表

Question

我有一个包含20张纸的Excel文件，我想将其合并为一张。

所有工作表的示例结构

| 1 | https://originalni-tonery.heureka.cz/hp-f6v25ae-originalni/               | 151554 |
| 2 | https://originalni-tonery.heureka.cz/hp-f6v24ae-originalni/               | 151555 |
| 3 | https://originalni-tonery.heureka.cz/canon-pg-545-plus-cl-546-originalni/ | 90737  |

我一直在考虑带循环的解决方案：

1. 获取所有工作表的数量
2. 从最后一个开始
3. 复制所有内容
4. 将所有数据粘贴到第一张纸上
5. 删除最后一张纸
6. 转到第2步，或者在到达工作表1时结束

这是我到目前为止所做的：

Dim actualsheet As integer
actualsheet = Worksheets.Count
Do While actualsheet < 1
   'Selects last sheet 
   sheets(actualsheet).activate

   'Missing code
        'Select everything from this Sheet
        'Paste it to Sheet 1
        'Delete last Sheet

   'Change actual Sheet
   actualsheet = actualsheet - 1
Loop

谢谢您，祝您愉快！ ：）