Измените положительное число на отрицательное, если условие выполнено

Question

У меня есть список, в котором все суммы в столбце отформатированы как Dr и Cr, и я записал макрос, в котором он автоматически фильтруется, выполняет поиск символа «Cr» и заменяет его на отрицательный, но когда мой список увеличивается и обновляется, тоэтот макрос не работает.Я использовал автофильтры в VBA, но ничего не работает идеально.

Я ищу код, где, когда он находит «Cr» в столбце, он должен изменить его на отрицательное число.

Answer 1

Попробуйте может помочь:

Option Explicit

Sub test()

    Dim ws As Worksheet
    Dim Lastrow As Long, Row As Long

    With ThisWorkbook.Worksheets("Sheet1")
        'Find Last row of column A in sheet ws
        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

            'Loop rows from bottom to top
            For Row = 1 To Lastrow

                'Check value lenght
                If Right(.Range("A" & Row).Value, 2) = "Cr" Then
                    .Range("A" & Row).Value = Abs(.Range("A" & Row).Value) * -1
                End If

            Next Row

    End With

End Sub