ユーザー定義関数を使用する方法です。 ExcelということですがVerが不明なので、一応97から対応するようにSplit関数を 使っていません。 使用方法は、A1にIPアドレスがあるとして =IpAdd(A1) と入力すると3桁ずつの IPアドレスが表示されます。 コードの設定方法： Alt + F11 を押し、メニューから[挿入]->[標準モジュール]で開いたウインドウに 下記コードを貼り付けます。 Function IpAdd(Ip As String) As String Dim StrIp As String Dim s As String If IsEmpty(Ip) Then IpAdd = "" Exit Function End If StrIp = Mid("00" & Ip, InStr(Ip, ".") - 1, 4) s = Right(Ip, Len(Ip) -
