Изменение списка IP адресов в EXEL

RSS

Изменение списка IP адресов в EXEL, Требуется удалять последние цифры справа на лево до первой точки. На их место ставить другие значения.

Dobrinya

Пользователь

Сообщений: 1 Регистрация: 17.03.2016

17.03.2016 02:07:29

Здравстауйте,
возможно задание достаточно простое но у меня с ним есть проблема. Мне необходимо из общего списка IP адресов на листе удалить последний актет до точки. Последний актет соответственно может состоять из одной, двух или трех цифр. Вместо этих цифр нужно поставить следующее 0/24

В итоге если в ячейке был адрес 192.168.0.20 на выходе мы должны получить 192.168.0.0/24

адресов много, каждый день появляются новые - обрабатывать нужно все в столбце

Заранее спасибо

Прикрепленные файлы

IP.xlsx (34.89 КБ)

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

17.03.2016 03:45:24

Запустите этот макрос:

Код

Sub ConvertIPtoNetworkAddress()
    On Error Resume Next
    Dim ra As Range: Set ra = Range(Range("a1"), Range("a" & Rows.Count).End(xlUp))
    arr = ra.Value
    For i = LBound(arr) To UBound(arr)
        arr(i, 1) = Trim(arr(i, 1))
        If arr(i, 1) Like "#*.#*.#*.*#" Then
            arr(i, 1) = Left(arr(i, 1), InStrRev(arr(i, 1), ".")) & "0/24"
        End If
    Next i
    ra.Value = arr
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Forve Пользователь Сообщений: 1242 Регистрация: 16.03.2016	#3 17.03.2016 03:51:57 Dobrinya, здравствуйте, возможно вам поможет такая формула. смотрите вложенный файл. Написал на вашем примере - вроде действует без сбоев. Прикрепленные файлы IP.xlsx (19.21 КБ)

Читают тему