EXCEL中如何用VBA实现

导读： 方法/步骤如下： 1、双击打开桌面的EXCEL； 2、单击右上角的OFFICE图标，找到EXCEL选项，单击打开； 3、勾选在功能区显示“开发工具”选项卡，单击确定按钮完成修改。 4、单击菜单栏的开发工具，然后找到Visual Basic单击打开便可以进行相关的VBA编程。...

方法/步骤如下：
1、双击打开桌面的EXCEL；
2、单击右上角的OFFICE图标，找到EXCEL选项，单击打开；




3、勾选在功能区显示“开发工具”选项卡，单击确定按钮完成修改。




4、单击菜单栏的开发工具，然后找到Visual Basic单击打开便可以进行相关的VBA编程。

EXCEL VBA可以做出适合自己办公的软件吗

你的问题的答案是：“完全可以”如果不是很复杂的可以通过录制宏来做，如果懂点VBA的话，那么就可以将录制下来的宏进行编辑优化下。在不懂的时候，可以F1帮助。用VBA主要可以提高工作效率。比如用最简单的操作来做需要10天时间，用函数来做需要2天，用VBA来做的话可能就是1个小时或者更低。

小白求助vba数组求和后输出问题，怎样才能提高速度？

Sub test()
    Dim i, k, p
    Dim arr As Variant
    arr = Range(a2:m & [k65536].End(3).Row) '如果j值每行不同,则直接将m列放进arr数组用arr(i,13)来获取它
    p = Range(p2).Value
    Dim brr(), crr()
    ReDim brr(LBound(arr) To UBound(arr), 1 To 10)
    ReDim crr(LBound(arr) To UBound(arr), 0) '用一个数组存放临时结果
    For i = LBound(arr)+1 To UBound(arr)
        For k = 2 To 11
            brr(i - 1, k - 1) = Abs(arr(i, k) - arr(i, arr(i, 13)) - p * (i - 1)) '如果m列对应行没有j值则该句报错.
            crr(i, 0) = crr(i, 0) + brr(i - 1, k - 1)
        Next
    Next
    Range(r2).Resize(i - 1).Value = crr '将数组赋值给列
End Sub