excel vba代码

2024-11-02 09:34:45

推荐回答（5个）

回答1：

已测试结果：

Sub test()
Application.ScreenUpdating = False

    Dim f
    ChDir ThisWorkbook.Path
    f = Application.GetOpenFilename("Excel2007文件,*.xlsx,Word文件,*.doc,文本文件,*.txt", 3, "选择要汇总的文件神悉拍", MultiSelect:=True)
    Dim wb As Workbook
    Dim x
    For x = 游羡1 To UBound(f)
        Set wb = Workbooks.Open(f(x))
        
        wb.Sheets(1).Range("a2:bt2").Copy Workbooks("合并.xlsm").Sheets(1).Range("a10000").End(3).Offset(1, 0)
        
        wb.Close False
    Next x
    Application.ScreenUpdating = True
    
    MsgBox "处理完成"
End 陆大Sub

回答2：

.......57132899........
依次打开各工作簿，放入数组，最后写出

回答3：

步骤1-VBA调试
1
先将数据区域的内容删除掉，并打开VBA编辑器，如图所示，在VBA编辑器中我们可以看到上节课录制的VBA代码
2
代码已经编写完成，我们需要调试一下查看代码是否正确，是知槐凯否达搭唤到我们的要求。如图所示，其中“逐语句”和“切换断点”是比较常用到明悄的调试方式
3
因为代码条数比较少，所以使用“逐语句”调试，在菜单栏中调用或按快捷键“F8”调用“逐语句”调试，如图所示
4
“逐语句”调试时，可以随时看到运行的过程并及时更改代码，如图：
5
调试完成，结果如图所示：
END
步骤2-VBA运行
1
VBA运行是指将设定的整个代码完全运行，并直接显示出结果。共有三种运行方法,方法1：如图
2
方法2：如图
方法3：直接快捷键“F5”

回答4：

可缓判帆以百扰雹度冲埋搜我的教程

回答5：

唉，都这样了还要来问，那就没办法了。只能慢慢来。最起码要知道for 的用法。