如何统计n个工作表中D32的数值的和？

小当家

工作簿下有n个名称带“料单”的工作表，我想把每个工作表的D32单元格的数值合计到工作表“数据汇总”的A1单元格里，请教大佬们VBA代码该怎么写啊？

xdwy81129

Book1.rar (7.42 KB, 下载次数: 11)

2020-2-23 23:20 上传

点击文件名下载附件


看看，符合你的要求了

小当家

xdwy81129 发表于 2020-2-23 23:20
看看，符合你的要求了

好的，谢啦大佬

金樽空对月

代码如下：
Sub ss()
Dim rg As String
For x = 1 To Sheets.Count
  rg = Sheets(x).Name
  If rg Like "*料单*" Then
    i = i + Sheets(x).Range("d32")
  End If
Next x
Sheets("数据汇总").Range("a1") = i
End Sub

金樽空对月

另外下次提问时最好发个附件，不然别人可能就给不了你确切的答案。

小当家

金樽空对月 发表于 2020-2-24 21:19
另外下次提问时最好发个附件，不然别人可能就给不了你确切的答案。

好的好的，下次我会附上附件，谢谢啦