excel vba提取单元内容到另表对应位置

Question

将另表G7：be7范围的内容，提取到另表(G7,Q7,AA7,AK7,AU7,BE7
数据在这几个单元)
ct=v表示结果从v列开始
.结果起行在第6行，结束行为200行

Answer 1

软件版本：Office2007

方法如下：

1.提取Sheet1中A列数据到Sheet2的A列中：

2.Alt+F11，输入代码如下：

Sub m()

For i = 1 To Range("A65536").End(3).Row '从A列第一行到最后一个非空行循环

Sheets(2).Cells(i, "A") = Cells(i, "A") '赋值给Sheet2中的同样单元格当前单元格内容

Next

End Sub

3.F5执行代码，结果如下：