Sub test()
n = Worksheets.Count
For i = 1 To n
Worksheets(i).Activate
Macro1
Next
End Sub
Macro1是宏的名称
Sub test()
n = Worksheets.Count
For i = 1 To n
Worksheets(i).Activate
Macro1
Next
End Sub
Macro1是宏的名称
下一篇:将博客搬至CSDN
Python使用opendpyxl读取Excel工作表实践
练习1:编程创建一个新的工作簿,把工作簿命名为Mybook,并用变量wb表示新建的工作簿,保存在D盘下test文件夹后退出。 Sub 新建工作簿 () Dim wb As Workbook Set wb =&n
入行和列以及更改公式等,甚至还可以筛选出自己关心的
VBA 事件
上一篇博客讲的是合并一个工作簿的所有工作表,我们再来看看合并两个
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M