В настоящее время я создаю электронную таблицу в Excel и устанавливаю стандарт для всего, что копирую. Часть текста, который я ввожу, отличается от формата, в котором я хочу это.

Формат, который я хочу, например: 233 X 223 X 34 Входящие данные обычно: 233x233x34

Есть ли способ преобразовать текст в формат, в котором я хочу это?

1 ответ1

4

Включите следующий макрос событий в область кода рабочего листа:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
    For Each r In Target
        v = r.Value
        If InStr(1, v, "X") > 0 Then
            r.Replace "X", " X "
            r.Replace "  X  ", " X "
        End If
    Next r
Application.EnableEvents = True
End Sub

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