按条件汇总

temyoung

想汇总E列加后面所有①的列的各行的值，请问大佬怎么解决，我自己写了一段就是运行不了



    If wb2.Sheets(1).Range("c3") = "①" Then
    wb2.Sheets(1).Range("C4:C23").Select
    Selection.Copy
    Windows(str).Activate
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Windows("2.xls").Activate
    Else
    wb2.Sheets(1).Range("e3:e22") = 0
    End If
   
    If wb2.Sheets(1).Range("d3") = "②" Then
    wb2.Sheets(1).Range("D4:D23").Select
    Selection.Copy
    Windows(str).Activate
    Range("I3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Windows("2.xls").Activate
    Else
    wb2.Sheets(1).Range("I3:I22") = 0
    End If
      
    If wb2.Sheets(1).Range("e3") = "③" Then
    Windows(str).Activate
    For x = 6 To 20
        If wb2.Sheets(1).Cells(3, x) = "①" Then
        For y = 3 To 22
       wb.Sheets(1).Range("m" & y) = wb2.Sheets(1).Range("e" & y + 1) + wb2.Sheets(1).Cells(y + 1, x)
        Next
        End If
        x = x + 1
    Next
    Else
    wb2.Sheets(1).Range("m" & y) = wb.sheess(1).cell(y + 1, x)
    End If

ykcbf1100

没看懂啊。

蓝桥玄霜

累加的例子：

王彦彬

附件打不开

3190496160

Sub 汇总()
With Sheet1
    ar = .[a1].CurrentRegion
    For i = 4 To UBound(ar)
        hj = 0
        For j = 3 To UBound(ar, 2) - 1
            If Trim(ar(3, j)) <> "小计" Then
                hj = hj + ar(i, j)
            End If
        Next j
        ar(i, 11) = hj
    Next i
    .[k1].Resize(UBound(ar), 1) = Application.Index(ar, 0, 11)
End With
MsgBox "ok!"
End Sub

3190496160

2.rar (12.63 KB, 下载次数: 13)

2023-1-3 10:36 上传

点击文件名下载附件

temyoung

ykcbf1100 发表于 2023-1-3 09:48
没看懂啊。

不好意思还是新手，我再看看怎么更清楚的表达

temyoung

我重新上传了附件啊还望大佬们多多指教

iu950

完全没看懂数据之间的关系

temyoung

iu950 发表于 2023-1-4 09:54
完全没看懂数据之间的关系

大佬你看我另外一个帖子，这个表的数据是不用处理的