首页 文章

公式中的增量列引用

提问于
浏览
-1

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

我有数据,我必须进入一个具有以下布局的表:
enter image description here

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

enter image description here

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

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

2)清除原始表数据(但不清除 Headers q,w,e等)

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

这是我尝试过的:

第1行:表格(“sheet2”) . 范围(“B1”) . 值=表格(“sheet1”) . 范围(“A5”) . 值

第2行:表格(“sheet1”) . 范围(“A5:D6”) . ClearContents

为了完成3),我必须在代码中手动将“A5”改为“B5”,并为每个单元格(其中大约有60个)进行更改 . 有没有办法实现自动化?任何帮助是极大的赞赏 .

1 回答

  • 0

    您可以使用excel的offset()函数 .

    要将A5更改为B5,您可以这样做

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

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

相关问题