想在Excal中實作,sheet1中的A1=sheet2中的A1+sheet3中的A1,直到這個檔案里面的最后一個sheet
uj5u.com熱心網友回復:
Sub 求和()Dim sht As Worksheet
Dim s As Integer
For Each sht In Worksheets
If sht.Name <> "1" Then
s = sht.Range("a1") + s
End If
Next
Sheet1.Range("a1") = s
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/28610.html
標籤:VBA
上一篇:vb.net九九乘法表
