vba - 整个 Excel 工作表的大量偏移

Question

我有一个包含 2 张纸的 MS Excel 文件。第一个工作表包含用户输入，第二个工作表包含公式。

工作表1

+---+---+---+---+---+---+
|   | A | B | C | D | E |
+---+---+---+---+---+---+
| 1 | 1 |   | 0 | 9 |   |
| 2 | 9 | 7 |   | 3 | 2 |
| 3 | 8 |   |   | 4 |   |
| 4 | 4 |   |   | 8 |   |
+---+---+---+---+---+---+

表2

+---+--------------------------------+
|   |               A                |
+---+--------------------------------+
| 1 | =SUM(Sheet1!A1:A2)             |
| 2 | =PRODUCT(Sheet1!A4*Sheet11!B2) |
| 3 | =MEAN(Sheet1!A1:A3)            |
+---+--------------------------------+

我希望 Sheet2 中的每个公式都向右偏移三个单元格。因此，这个例子将变成:

Sheet2(偏移后)

+---+--------------------------------+
|   |               A                |
+---+--------------------------------+
| 1 | =SUM(Sheet1!D1:D2)             |
| 2 | =PRODUCT(Sheet1!D4*Sheet11!E2) |
| 3 | =MEAN(Sheet1!D1:D3)            |
+---+--------------------------------+

我怎样才能做到这一点？我知道我可以使用 OFFSET 公式，但这将是一个应用于整个工作表(包含 36000 行和超过 200 列)的非常丑陋的解决方案。

我没有任何代码可发布，因为我不知道如何开始解决问题。

Answer 1

如果您只想执行一次，一个简单的解决方案是在 Sheet1 上的 A 列之前插入 3 列。Sheet2 上的公式将根据您的要求进行偏移。之后，只需从 D1 开始剪切 Sheet1 上的所有内容并将其粘贴到 A1 中。