如何为以下示例创建自定义格式、公式或 VBA 代码？

Question

我在 Excel 中有一长串 IP 格式对于某个网站来说是无效的。我必须手动 change/retype 每个文件才能将文件上传到网站。

如何为以下示例创建自定义公式、vba 或格式代码？

左边的IP格式需要是右边的格式

示例：

123.45.678.0 - 123.45.679.255   should be -->   123.45.678-679.*
123.45.678.9 - 123.45.678.12  should be -->   123.45.678.9-12
a.b.c.d - a.b.e.f   should be -->   a.b.c-e.*       
a.b.c.d - a.b.c.f   should be -->   a.b.c.d-f

当我手动完成一些时，QuickAnalysis Autofill/Flashfill 没有激活。换句话说，Excel 没有为我挑选模式或填写其余部分。

Answer 1

我制作了一个将字符串输入转换为您要求的格式的函数。

它使用Split函数从开始和结束范围比较ip地址的每一部分。

Function ipFormatter(ByVal ipRange As String) As String
    'Skip inputs with no "-"
    If InStr(1, ipRange, "-") = 0 Then
        ipFormatter = ipRange
        Exit Function
    End If
    
    'Removing all spaces
    ipRange = Replace(ipRange, " ", "")
    
    'Splitting the ip addresses into arrays of strings
    Dim ipStart() As String, ipEnd() As String
    ipStart = Split(Split(ipRange, "-")(0), ".")
    ipEnd = Split(Split(ipRange, "-")(1), ".")
    
    Dim ipOut() As String
    ReDim ipOut(UBound(ipStart))
    
    Dim i As Long, setRange As Boolean
    For i = LBound(ipStart) To UBound(ipStart)
        If setRange Then
            'After a range
            ipOut(i) = "*"
        ElseIf ipStart(i) = ipEnd(i) Then
            'Exact Match
            ipOut(i) = ipStart(i)
        Else
            'IP Range found
            ipOut(i) = ipStart(i) & "-" & ipEnd(i)
            setRange = True 'All values after this one will be "*"
        End If
    Next i
    
    ipFormatter = Join(ipOut, ".")
End Function

以下是如何使用函数的示例

Sub test()
    Const inputstr As String = "123.45.678.0 - 123.45.679.255"
    
    MsgBox ipFormatter(inputstr)
End Sub

Sub example()
    Dim Sht As Worksheet
    Set Sht = ThisWorkbook.Sheets("Sheet1")
    
    Dim lastrow As Long
    lastrow = Sht.Rows(Sht.Rows.Count).Cells(1).End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastrow
        Sht.Cells(i, 2) = ipFormatter(Sht.Cells(i, 1))
    Next i
End Sub

如何为以下示例创建自定义格式、公式或 VBA 代码？

How do I create a custom format, formula or VBA code for the below examples?

excel

vba

ip-address

excel-formula

number-formatting