计算列和，值另存表

ddz79101 · 发表于 2024-7-4 07:44

老师！我希望计算2张表中指定列的合计，并将此2张表的合计数，放置到第3张表中。请老师指点。谢谢

liulang0808 · 发表于 2024-7-4 07:50

楼主看下sum函数是否可以解决问题的？

Qs18 · 发表于 2024-7-4 08:11

Public Sub qs() '2024/7/4
Dim arr, brr(1 To 2, 1 To 3), sht As Worksheet
For Each sht In Sheets
      If sht.Name <> "目录" Then
         m = m + 1
         arr = sht.Range("h2:j" & sht.Cells(Rows.Count, "j").End(3).Row)
         For j = 1 To 3
            brr(m, j) = Application.Sum(Application.Index(arr, 0, j))
         Next
      End If
Next
Sheet1.Range("b2").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

Qs18 · 发表于 2024-7-4 08:12

试试...........

Qs18 · 发表于 2024-7-4 08:13

试试..............

ddz79101 · 发表于 2024-7-4 08:41

Qs18 发表于 2024-7-4 08:13
试试..............

谢谢老师！成功！

		自动登录	找回密码
密码			免费注册

[已解决] 计算列和，值另存表

评分