å¤å¶å°excel çvba代ç çªå£éï¼ä¸é¢çâdfdf"æ¯ä¹±èµ·çååï¼å¯ä»¥æ´æ¹ä¸ºå¥½è¾¨è®¤çååã
Sub dfdf()
On Error Resume Next
Dim biao() As Worksheet
Dim a As String, b As Integer, s As Double
b = InputBox("è¾å
¥è¡¨çæ°é")
a = Trim(InputBox("è¾å
¥è¦ç¸å çæ ¼åå称ï¼å¦ï¼A1"))
ReDim biao(1 To b)
For i = 1 To b
Set biao(i) = Sheets(i)
s = s + biao(i).Range(a)
Next i
MsgBox s
End Sub
温馨提示:答案为网友推荐,仅供参考