大家好
档案如下 http://1drv.ms/YhI1rU
我想做的是输入B6的变量 得到O2的结果
B6是从1到10
也就是说我想得到2x10的表格
左栏是1到10 右栏是其值所对应到的结果
我有同事写出来 跟大家分享 谢谢
Sub 自动()
For i = 0 To 10
Worksheets("体积积分").Range("N" & i + 1).Value = i + 1
Worksheets("体积积分").Range("B6").Value = Worksheets("体积积分").Range("N" &
i + 1).Value
Worksheets("体积积分").Range("O" & i + 1).Value = Worksheets("体积积分
").Range("K2").Value
Worksheets("体积积分").Range("P" & i + 1).Value = Worksheets("体积积分
").Range("L2").Value
Next
End Sub
※ 引述《EricHaze (慵懒)》之铭言：
: 软件:windows office
: 版本:2010
: 大家好
: 我想请教各位
: 如果我用了整张工作表得到最后数值
: 我想把这个数值依照变量一次输出，而不用重复输入变量
: 有人说要用VBA，但似乎没那么快上手
: 请问还有什么其他方法呢
: 还是说我得乖乖学VBA呢
: 谢谢