Выберите ячейки, содержащие адреса, и запустите этот короткий макрос:
Sub IPFixer()
Dim r As Range, arr
For Each r In Selection
arr = Split(r.Value, ".")
For i = 0 To 3
arr(i) = Format(arr(i), "000")
Next i
r.Value = Join(arr, ".")
Next r
End Sub
До:
и после:
EDIT # 1:
Допустим, мы хотим, чтобы это преобразование автоматически применялось к записям в столбце А. Включите следующий макрос событий в область кода рабочего листа:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, rInt As Range
Set rInt = Intersect(Range("A:A"), Target)
If rInt Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In rInt
arr = Split(r.Value, ".")
For i = 0 To 3
arr(i) = Format(arr(i), "000")
Next i
r.Value = Join(arr, ".")
Next r
Application.EnableEvents = True
End Sub
Поскольку это код рабочего листа, его очень легко установить и использовать автоматически:
- щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
- выберите View Code - откроется окно VBE
- вставьте материал и закройте окно VBE
Если у вас есть какие-либо проблемы, сначала попробуйте на пробную версию.
Если вы сохраните книгу, макрос будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить макрос:
- вызвать окна VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Чтобы узнать больше о макросах событий (код листа), см .:
http://www.mvps.org/dmcritchie/excel/event.htm
Макросы должны быть включены, чтобы это работало!