公式中的增量列引用

Question

这可能是一个简单的问题，但我对VBA知之甚少。

我有数据需要输入到具有以下布局的表中：

我需要将它存储在具有此布局的另一个工作表中：

我正在尝试创建一个可以完成三件事的宏：

1）将第一个表格中的内容复制到另一个工作表中的一列

2）清除原始表数据（但不包括标题q，w，e等）

3）增加列引用，以便下次运行宏时，它会将数据复制到第二个表中的C列，第三次复制到D列，依此类推。

这就是我的尝试：

第1行：表格（“sheet2”）。范围（“B1”）。值=表格（“sheet1”）。范围（“A5”）。值

第2行：表格（“sheet1”）。范围（“A5：D6”）。ClearContents

为了完成3），我必须在代码中手动将“A5”更改为“B5”，并为每个单元格（其中大约有60个）执行此操作。有没有办法实现自动化？非常感谢任何帮助。

Answer 1

您可以使用excel的offset（）函数。

要将A5更改为B5，您可以

For x = 1 to N
Sheets("sheet2").Range("B1").Value = Sheets("sheet1").Range("A5").offset(0,x).Value

如果你只想做一次那么你将不需要for循环。