请帮忙改下IP地址拆分工具。

PP不吃香菜

写了一个IP地址拆分的工具 现在卡住了，求解。  

卡在了：            For j = 0 To s_or_m - 1  这句

Sub 拆()
' 2024 02 04
    RowCount = 2

        For a = 1 To 900000
            If Sheets("拆分表").Cells(a, 1) = "" Then
            totalrow = a - 1
            Exit For
        End If
            Next a

    For i = 1 To totalrow
   
        dhname = Sheets("拆分表").Cells(i, 1) '原IP
        s_or_m = Sheets("拆分表").Cells(i, 6)  ' IP地址个数
        
        sip = Sheets("拆分表").Cells(i, 2) '斜线前的
        mips = Sheets("拆分表").Cells(i, 3)  '第三个.前的
        miphead = Sheets("拆分表").Cells(i, 4)  '从几开始写 最后一个点后面的数
        
        If s_or_m = "" Then

            Sheets("展开结果").Cells(RowCount, 2) = khname
            Sheets("展开结果").Cells(RowCount, 1) = sip
            Sheets("展开结果").Cells(RowCount, 3) = dhname
            RowCount = RowCount + 1

        Else
        
            For j = 0 To s_or_m - 1            
                Sheets("展开结果").Cells(RowCount, 1) = mips & (miphead + j)
                Sheets("展开结果").Cells(RowCount, 2) = dhname
                RowCount = RowCount + 1
               
            Next j            
              End If
    Next i

End Sub

实现的效果样例在 展开结果的H和I列

limonet

=VSTACK(EXPAND(C2&"."&D2+SEQUENCE(F2)-1,,2,A2),EXPAND(C3&"."&D3+SEQUENCE(F3)-1,,2,A3))

半百

ykcbf1100

参与一下。。。

ykcbf1100

代码如下：

1. Sub ykcbf()  '//2024.2.5
   
2.     With Sheets("拆分表")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .Range("a1:f" & r)
   
5.     End With
   
6.     ReDim brr(1 To 10000, 1 To 2)
   
7.     For i = 2 To UBound(arr)
   
8.         st1 = arr(i, 3)
   
9.         st2 = Val(arr(i, 4))
   
10.         st = arr(i, 5)
    
11.         For x = 0 To arr(i, 6) - 1
    
12.             m = m + 1
    
13.             st3 = st2 + x
    
14.             brr(m, 1) = st1 & "." & st3
    
15.             brr(m, 2) = brr(m, 1) & "/" & arr(i, 5)
    
16.         Next
    
17.     Next
    
18.     Sheets("展开结果").[a2:b10000] = ""
    
19.     Sheets("展开结果").[a2].Resize(m, 2) = brr
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

PP不吃香菜

ykcbf1100 发表于 2024-2-5 11:26
参与一下。。。

您的这个结果 不太对。。。第四位结果 不会大于 256

PP不吃香菜

半百 发表于 2024-2-5 11:02

啊啊啊 就是改2改成1 就好了， 那个 . 不用加。我拆分时 可以带上它 哈哈 感谢

ykcbf1100

PP不吃香菜 发表于 2024-2-5 13:57
您的这个结果 不太对。。。第四位结果 不会大于 256

改好了。。。