Question

帮忙用VBA写一个Excel求和程序。

我想作一个行求和，类似销量统计程序。数据表的结构如下。
结果填在最后一列。
－－－－－－－－－－－－－－－－－－－
＃＃ 周一 周二 周三 周四 共计
酱油 12 13 43 34
醋 2 5 11 34
盐 32 45 54 34
－－－－－－－－－－－－－－－－－－－
但是有个问题，行数和列数不一定。
我想让程序出一些提示框（MsgBox），让用户输入行从第几到第几（数字），列从第几到第几（字母），然后就能把结果放到最后一列。
我想问一下VBA程序该怎么写？

PS：我想要一个VBA程序，而不是在单元格里面输入公式。

Answer 1

数据在第2行起的BCDEFGH列，在I列对应的大行输出求和结果。
Sub tongji()
m = InputBox("输入统计求和的起始行（数字）：")
n = InputBox("输入统计求和的结束行（数字）：")
x = InputBox("输入统计求和的起始列（大写字母）：")
y = InputBox("输入统计求和的结束列（大写字母）：")
If Val(m) > Val(n) Or Val(m) = False Or Val(n) = False Then MsgBox ("输入行数不正确！")
Select Case x
Case Is = "B"
Case Is = "C"
Case Is = "D"
Case Is = "E"
Case Is = "F"
Case Is = "G"
Case Is = "H"
Case Else
MsgBox ("输入起始列号不正确！")
End Select
Select Case y
Case Is = "B"
Case Is = "C"
Case Is = "D"
Case Is = "E"
Case Is = "F"
Case Is = "G"
Case Is = "H"
Case Else
MsgBox ("输入结束列号不正确！")
End Select

Range("I" & Val(n)) = WorksheetFunction.Sum(Range(x & Val(m) & ":" & y & Val(n)))

End Sub

Answer 2

但是有个问题，行数和列数不一定，不用让用户去数，可以用以下方式获得：
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '最后一行（与连续与否无关）
nLC = ActiveSheet.Cells.SpecialCells(xlLastCell).Column '最后一列（与连续与否无关）