Excel自定义函数问题：按1标记分配IP时未识别条件

问题说明 #

需要实现自定义函数GetNextIP_002，根据E列对应行的标记（值为1时）分配递增的IP地址；当前函数无视标记条件，无论E列单元格值如何都会分配IP。

原代码问题分析 #

• 遍历逻辑错误：循环遍历E5:E30所有单元格，函数返回值会被最后一次循环的结果覆盖，导致仅最后一个单元格的标记生效，而非当前行的标记。
• 空白判断错误：使用cell.Value = " "判断空白，实际应检查单元格是否为空（IsEmpty(cell.Value)）或空字符串（cell.Value = ""）。
• IP递增逻辑缺陷：当IP第四段达到256时，仅将第三段设为1，未正确实现第三段递增（如192.168.1.255应变为192.168.2.0，而非192.168.1.0），也未处理第三段超过255的情况。

修复后的代码 #

Function GetNextIP_002(baseIP As Variant, Optional rowNum As Long = 0) As String
    Dim ipParts() As String
    Dim lastOctet As Integer
    Dim thirdOctet As Integer
    
    ' 处理默认行号：若未传入，使用函数所在单元格的行号
    If rowNum = 0 Then
        rowNum = Application.Caller.Row
    End If
    
    ' 获取对应行的标记值
    Dim flagCell As Range
    Set flagCell = ThisWorkbook.ActiveSheet.Cells(rowNum, "E")
    
    ' 标记不为1时返回空
    If flagCell.Value <> 1 Then
        GetNextIP_002 = ""
        Exit Function
    End If
    
    ' 解析基础IP
    ipParts = Split(CStr(baseIP), ".")
    If UBound(ipParts) <> 3 Then
        GetNextIP_002 = "无效IP格式"
        Exit Function
    End If
    
    ' 转换为数值并递增
    thirdOctet = Val(ipParts(2))
    lastOctet = Val(ipParts(3)) + 1
    
    ' 处理网段进位
    If lastOctet = 256 Then
        lastOctet = 0
        thirdOctet = thirdOctet + 1
        ' 处理第三段超过255的情况（可根据需求扩展更多网段）
        If thirdOctet = 256 Then
            thirdOctet = 0
            ' 如需处理第二段，可在此添加逻辑
        End If
    End If
    
    ' 拼接新IP
    GetNextIP_002 = ipParts(0) & "." & ipParts(1) & "." & thirdOctet & "." & lastOctet
End Function

使用说明 #

• 在Excel单元格中调用：=GetNextIP_002("192.168.1.0")，函数会自动识别当前行的E列标记，仅当E列对应值为1时返回递增后的IP。
• 若需指定行号判断标记，可传入第二个参数：=GetNextIP_002("192.168.1.0", 5)，表示判断第5行E列的标记。

内容的提问来源于stack exchange，提问作者Craig