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

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

举报该文章

相关建议 2017-05-17

Sub 计算()

Dim N%

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

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

End Sub

追问

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

追答

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

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

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fsmmvfqm44v24s2vvfm.html

其他看法

第1个回答 2017-05-17

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 文件？

第2个回答 2017-05-18

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

第3个回答 2017-05-17

代码如下：

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

如果不止100行，修改100

追问

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

本回答被网友采纳

相似回答

大家正在搜