读书人

excel中的非连续单元格累加求和有关问

发布时间: 2013-07-11 15:38:46 作者: rapoo

excel中的非连续单元格累加求和问题请教
新来乍到请关照,请高手指教一个简单的问题


以前学过一点点C忘光了,工作需要做个表格,要有累加计算,想自己做个宏的按钮控制,行和列的号如下两行数,这个程序要怎么写才能实现这个循环?请懂的人教教啊,最好写详细点,对VBA我是一点不懂


Dim x, y As Byte


让x遍历 {4,6,8,10,12,14}
让y遍历 {5,6,11,21,22,24,25}
Cells(x, y) = Cells(x, y) + Cells(x, y-1)



MsgBox "计算完成"

[解决办法]

Sub test()
Dim xArr
Dim yArr
xArr = Array(4, 6, 8, 10, 12, 14)
yArr = Array(5, 6, 11, 21, 22, 24, 25)

For Each x In xArr
For Each y In yArr
Cells(x, y) = Cells(x, y) + Cells(x, y - 1)
Next y
Next x
MsgBox "计算完成"
End Sub

读书人网 >OFFICE教程

热点推荐