改错

ddz79101

老师！谢有代码，但未达到目的。请老师看看

不规则结构

Sub 汇总111()

For i = 2 To Sheets.Count
    k = Application.Sum(Sheets(i).Range("f:f"))
    Sheets(1).Cells(n + 2, "k") = Sheets(i).Name
    Sheets(1).Cells(n + 2, "l") = k
    n = n + 1
Next
End Sub
有总计除以2.没有直接用

无关岁月

1. Sub 汇总111()
   
2. ReDim brr(1 To 10 ^ 4, 1 To 2)
   
3. For Each sh In Sheets
   
4.     If sh.Name <> "汇总" Then
   
5.         r = r + 1
   
6.         lr = sh.Cells(Rows.Count, "F").End(3).Row
   
7.         brr(r, 1) = sh.Name
   
8.         brr(r, 2) = sh.Range("f" & lr)
   
9.     End If
   
10. Next
    
11. 
    
12. With Sheets("汇总")
    
13.     .UsedRange.Offset(1) = ""
    
14.     .Range("a2").Resize(r, 2) = brr
    
15. End With
    
16. 
    
17. End Sub

复制代码

ddz79101

不规则结构 发表于 2024-9-27 22:07
Sub 汇总111()

For i = 2 To Sheets.Count

谢谢老师！顺利运行。比我的简单多了!

ddz79101

无关岁月 发表于 2024-9-27 22:22

谢谢老师！解我困惑。

gwjkkkkk

参与一下。。。

ddz79101

gwjkkkkk 发表于 2024-9-28 09:37
参与一下。。。

谢谢老师！运行成功

A刘志勇

你试试，哈哈

ddz79101

A刘志勇 发表于 2024-9-28 16:57
你试试，哈哈

谢谢老师！代码成功运行。