Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA循环遍历范围中的列并复制列_Vba_Loops_Excel - Fatal编程技术网

Excel VBA循环遍历范围中的列并复制列

Excel VBA循环遍历范围中的列并复制列,vba,loops,excel,Vba,Loops,Excel,我是Excel VBA新手,需要一些编写宏的帮助 从工作簿1的工作表1中,我需要复制范围D1:Z100的每一列,一次复制一列,然后将其粘贴到单元格B1:B100 这将触发工作簿1的工作表2中的计算。在这里,我需要将单元格A1:B200复制到新工作簿中 将使用工作表1、单元格B1中的文本字符串重命名此新工作簿。新工作簿将保存到与工作簿1相同的文件夹中 然后,循环将继续从工作表1中的下一列,并继续,直到该范围内的所有列都以这种方式处理 我用了两天的时间在网上搜索,没有任何运气就找到了答案……就像我们

我是Excel VBA新手,需要一些编写宏的帮助

工作簿1的
工作表1
中,我需要复制范围
D1:Z100
的每一列,一次复制一列,然后将其粘贴到单元格
B1:B100

这将触发
工作簿1
工作表2
中的计算。在这里,我需要将单元格
A1:B200
复制到新工作簿中

将使用
工作表1
、单元格
B1
中的文本字符串重命名此新工作簿。新工作簿将保存到与
工作簿1
相同的文件夹中

然后,循环将继续从
工作表1
中的下一列,并继续,直到该范围内的所有列都以这种方式处理


我用了两天的时间在网上搜索,没有任何运气就找到了答案……

就像我们大多数人做的那样开始:

  • 录制新宏
  • 手动执行要自动执行的所有步骤
  • 停止录音
  • 转到“开发人员”选项卡并检查自动生成的代码
  • 根据第4步所学内容编写自己的VBA

  • 你必须自己解决一些问题,或者回到这里问一些具体问题。

    请检查列的范围,它应该是D1:Z1