Question

如何使用vb计算excel中的数据

想通过vb，把excel中的数据进行计算后再输出回excel中的新列，最好有代码，计算公式套用y=x²+10
本人电脑小白，可否连调取excel的代码一起写明？而且最好能在后台运算，谢谢

Answer 1

Sub 计算()

Dim N%

For N = 1 To Application.CountA(ActiveSheet.Range("f:f"))

Cells(N, 7) = Cells(N, 6) * Cells(N, 6) + 10

Next

End Sub

追问

本人电脑小白，可否连调取excel的代码一起写明？而且最好能在后台运算，谢谢

追答

alt+F11 打开VBA编辑界面， 点击 插入-模块。

将上面的代码复制进去，不过要根据你的表格实际情况稍作修改。
然后回到EXCEL界面，插入一个图形，长方形，正方形，圆形什么的都可以。

右键制定宏，选择“计算”， 然后确定，之后要用就点下那个图形。

Answer 2

Sub 计算()
Dim brr
arr = Range("A1:A100")  '原数据范围
ReDim brr(1 To UBound(arr), 1 To 1)
 For i = 1 To UBound(arr)
  brr(i, 1) = arr(i, 1) ^ 2 + 10 
 Next
[d1].Resize(UBound(arr), 1) = brr  '计算后写入D列
End Sub

追问

本人电脑小白，可否连调取excel的代码一起写明？而且最好能在后台运算，谢谢

追答

什么叫做 调取 excel 的代码？
我写的 就是 在后台运行的， 你说的 调取 Excel 是指 静默打开 Excel 文件？

Answer 3

你好！我找到了我在这里曾经回答过的相似问题，你按照这个链接去看一下。
'首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel XX.0 Object Library
'其中XX.0由你计算机安装的OFFICE版本而定
https://zhidao.baidu.com/question/2056285701506060427

Answer 4

代码如下：

sub 宏1()
    for i=1 to 100
        cells(i,2)=cells(i,1)*cells(i,1)+10
    next i
end sub

如果不止100行，修改100

追问

本人电脑小白，可否连调取excel的代码一起写明？而且最好能在后台运算，谢谢