如何跳过删除线分类求和

道明星沐

假设A列是名称，B列是对应的数值，数据很多

B列数值有时录入错误，会标注整列删除线表示数值错误不用

那么我现在想要，如何求取去除删除线的按名称分类的实际总数量呢

tanglf188

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 6 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    r = Cells(Rows.Count, 1).End(xlUp).Row
    ar = Range(Cells(1, 1), Cells(r, 2))
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) = Trim(T.Value) Then
            If Cells(i, 1).Font.Strikethrough = False Then
                hj = hj + ar(i, 2)
            End If
        End If
    Next i
    T.Offset(, 1) = hj
End If
End Sub

3190496160

工作簿1.rar (17.82 KB, 下载次数: 3)

2023-6-2 14:20 上传

点击文件名下载附件

3190496160

smiletwo

sdytsxd991122

学习了

道明星沐

谢谢  各位大佬的帮助，感谢，完美解决了我的问题