对工作表之间的不同值求和的宏答案

【问题标题】：Macro that sum different values between worksheets对工作表之间的不同值求和的宏
【发布时间】：2022-12-06 19:11:27
【问题描述】：

我是这个平台的新手，我想知道是否有办法在“主”工作表中写入文件中每张工作表中每个第一列的总字符值

例如：第 1 张 -> 总字符数 -> 记入“主表”CELL L1 然后第 2 张 -> 总字符数 -> 记入“主表”CELL L2 ...

这是代码，我已经尝试在堆栈溢出中寻找答案，但它不起作用

试过这个：

Dim Sheets As Variant
Dim Sheet As Variant
Sheets = Array("1", "2", "3", "4",..."12")

For Each Sheet In Sheets
   
 For Rowref = 1 To 12
        totalchar = totalchar + Len(Worksheets(Sheet).Range("B2:B100000").Value)
        Worksheets("MAIN").Range ("L" & Rowref)
    Next Rowref
Next Sheet

【问题讨论】：

标签： excel vba

【解决方案1】：

您可以使用 For Each 循环来遍历所有工作表，如本例所示：

Sub test()
Dim sum As Integer
sum = 0
For Each w In ActiveWorkbook.Worksheets
  sum = sum + w.Range("A1").Value
Next
  MsgBox (sum)
End Sub

玩得开心：-）

【讨论】：