如何将数字范围具体列出来

fggf

用vba处理数字.zip (2.75 KB, 下载次数: 14)

2022-12-14 18:42 上传

点击文件名下载附件

详见附件，请求帮忙，谢谢！

2900357148

点生成序号即可实现，试一下。

gwjkkkkk

Sub TEST()
    Dim arr, vData, i&, j&, iPosRow, iRowSize&
    arr = [C2].CurrentRegion
    ReDim vData(1 To UBound(arr) * 1000, 1 To 2)
    For j = 1 To UBound(arr, 2)
        iPosRow = 0
        For i = 2 To UBound(arr)
            If arr(i, j) <> "" Then
               arr(i, j) = Replace(arr(i, j), "--", "-")
               If InStr(arr(i, j), "-") Then
                    brr = Split(arr(i, j), "-")
                    For k = Val(brr(0)) To Val(brr(1))
                       iPosRow = iPosRow + 1
                       vData(iPosRow, j) = k
                    Next k
                  Else
                    iPosRow = iPosRow + 1
                    vData(iPosRow, j) = arr(i, j)
               End If
            End If
        Next i
        If iPosRow > iRowSize Then iRowSize = iPosRow
    Next j
    [F2].CurrentRegion.Offset(1).Clear
    [F3].Resize(iRowSize, 2) = vData
    With [F2].CurrentRegion
        .Rows(1).Interior.Color = vbYellow
        .HorizontalAlignment = xlCenter
        .Borders.LineStyle = xlContinuous
        .EntireColumn.AutoFit
        .EntireRow.AutoFit
    End With
    Beep
End Sub

gwjkkkkk

请楼主参考 附件。。。

fggf

如果要加个判断，当序号范围A或者序号范围B中有存在重复的序号，则跳出提示窗口：“哪一列（指A或B）存在序号重复几几几（指具体数），请修改范围序号”。要怎么修改呢？

fggf

2900357148 发表于 2022-12-14 19:19
点生成序号即可实现，试一下。

5楼问题麻烦再帮忙下哈

fggf

gwjkkkkk 发表于 2022-12-14 19:41
请楼主参考 附件。。。

5楼问题麻烦再帮忙下哈

2900357148

fggf 发表于 2022-12-14 20:17
5楼问题麻烦再帮忙下哈

下班了。。。。周六上班帮你看看吧，如果还没解决的话。。。。。。

风中的我脸

参考附件。。。。
没看到楼主的另外要求，修改了