局单元格后半字符删行

xing_chen

老师！有表，是银行付款和未成功退款的记录，需删除此类无用数据。但要根据字符的后半部确定。敬请老师赐教！谢谢

liulang0808

楼主能结合附件内容描述下，具体是如何根据字符的后半部确定得

xing_chen

liulang0808 发表于 2023-5-10 21:45
楼主能结合附件内容描述下，具体是如何根据字符的后半部确定得

你这1问，倒是提醒我了，我原先想的太多了，网上银行冲正，网上银行跨行付款，网上银行转账，前4个字一样，考虑后半部分。哎！也许我想的太多。1个单元格何必要分拆2部分，就整个考虑得了。

盼盼198310

请楼主说明删除行的规则,或者是要保留行的规则

liulang0808

xing_chen 发表于 2023-5-10 21:54
你这1问，倒是提醒我了，我原先想的太多了，网上银行冲正，网上银行跨行付款，网上银行转账，前4个字一样 ...

楼主的需求还是看不懂，感觉楼主似乎可以自己处理了

xing_chen

盼盼198310 发表于 2023-5-10 21:57
请楼主说明删除行的规则,或者是要保留行的规则

谢谢老师！抱歉！今天有点糊涂了。根据冲正，寻找付款的同金额，若分别再借和贷的则删除（因为借贷属不同方向，相减为0）。网银结算手续费和网银结算费冲正，同理，但麻烦的是网银结算后多了的费

gwjkkkkk

Option Explicit
Sub test2()
    Dim ar, i&, j&, p&, rng As Range
    With [A1].CurrentRegion
        ar = .Value
        For i = UBound(ar) To 2 Step -1
            If InStr(ar(i, 2), "冲正") Then
                p = i
                If rng Is Nothing Then
                   Set rng = .Rows(p)
                Else
                    Set rng = Union(rng, .Rows(p))
                End If
                For j = p To 2 Step -1
                    If ar(j, 3) = ar(p, 4) Then
                         Set rng = Union(rng, .Rows(j))
                         Exit For
                    End If
                Next j
            End If
        Next i
    End With
    If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub

ykcbf1100

附件供参考。。。

xing_chen

ykcbf1100 发表于 2023-5-10 22:13
附件供参考。。。

谢谢老师！运行如愿！

xing_chen

ykcbf1100 发表于 2023-5-10 22:13
附件供参考。。。

谢谢老师！我将你代码，今天放入正式表格后发现不行。是我简化删除的太厉害了。现在重发，方便的时候，帮我再看看。谢谢了！