1

Мы используем отчеты Excel, которые видны всем сотрудникам. Идея состоит в том, чтобы заменить каждую цифру в значении ячейки цифрой "1". Они могут иметь указание стоимости, то есть сотни или тысячи, но не точную сумму.

Вот пример:

ORD          SUPPLY         RATE
3430         329961.25      95.07

следует преобразовать в

ORD          SUPPLY         RATE
1111         111111.11      11.11

Возможно ли это и как? Я пытался заменить и подсчитывал количество заменяемых цифр и т.д., Но не смог найти однозначный ответ.

1 ответ1

1

Выберите ячейки, которые вы хотите преобразовать, и запустите этот короткий макрос:

Option Explicit
Sub One_ification()
    Dim r As Range, v As String
    Dim L As Long, i As Long, CH As String

    For Each r In Selection
        v = r.Text
        L = Len(v)
        For i = 1 To L
            CH = Mid(v, i, 1)
            If CH Like "[0-9]" Then Mid(v, i, 1) = "1"
        Next i
        r.Value = v
    Next r
End Sub

До:

и после:

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .