在Excel中,可以通过以下代码编写宏,用于在不同的工作表之间求和不同的值:
Sub SumDifferentValues() Dim Total As Double Total = 0
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "Summary" Then
Total = Total + Sheet.Range("A1").Value
End If
Next Sheet
Sheets("Summary").Range("A1").Value = Total
End Sub
此宏在所有工作表上循环,并将每个工作表的“ A1”单元格中的值相加,然后在名为“ Summary”的工作表上放置总和。您可以将代码更改为适合您的脚本和工作表配置。