[已解决]如何在一个单元格中合并元器件标号

braveboys

如图所示
主要为器件标号合并，连续序号的只写起始和终止两个序号，中间用“-”连接
请大家给个思路吧，谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2013-10-28 08:11

没考虑这种情况，不过这容易，添加一句即可：
Sub TEST()
    ARR = Range("B2:B" & Range("B65536").End(3).Row)
    ReDim BRR(1 To UBound(ARR))
    For I = 1 To UBound(ARR)
        C = Split(ARR(I, 1), " ")
        M = C(0)
        For J = 1 To UBound(C)
            If Right(C(J), Len(C(J)) - 1) * 1 <> Right(C(J - 1), Len(C(J - 1)) - 1) * 1 + 1 Then
                If BS = 1 Then
                    M = M & "-" & C(J - 1) & " " & C(J)
                    BS = 0
                Else
                    M = M & " " & C(J)
                End If
            Else
                If J = UBound(C) Then M = M & "-" & C(J)
                BS = 1
            End If
        Next
        ARR(I, 1) = M
    Next
    Range("C2:C65536").ClearContents
    Range("C2").Resize(UBound(ARR), 1) = ARR
End Sub

跳转到最佳答案楼层

那么的帅

非VBA代码不能完成

zjdh

是得用VBA啦！

braveboys

给个例子把，或者说下思路也行，附件是测试文件，谢谢

yuan1987

你这个好像没有规律可言的啊，

braveboys

yuan1987 发表于 2013-10-26 17:29
你这个好像没有规律可言的啊，

最早的那个帖子能看出来规律的，有图有真像，谢谢哈

zjdh

braveboys 发表于 2013-10-26 20:02
最早的那个帖子能看出来规律的，有图有真像，谢谢哈

test.rar (10.08 KB, 下载次数: 5)

2013-10-27 09:14 上传

点击文件名下载附件

silenthunter

.....................

braveboys

zjdh 发表于 2013-10-27 09:10

十分感谢。
我终于大致知道怎么处理了，不过为啥如果添加一行D1 D2 D3，合并完就剩下D1了呢，我跟踪了一下，没有发现啥问题，就是进不到执行添加“-”的语句中

zjdh

没考虑这种情况，不过这容易，添加一句即可：
Sub TEST()
    ARR = Range("B2:B" & Range("B65536").End(3).Row)
    ReDim BRR(1 To UBound(ARR))
    For I = 1 To UBound(ARR)
        C = Split(ARR(I, 1), " ")
        M = C(0)
        For J = 1 To UBound(C)
            If Right(C(J), Len(C(J)) - 1) * 1 <> Right(C(J - 1), Len(C(J - 1)) - 1) * 1 + 1 Then
                If BS = 1 Then
                    M = M & "-" & C(J - 1) & " " & C(J)
                    BS = 0
                Else
                    M = M & " " & C(J)
                End If
            Else
                If J = UBound(C) Then M = M & "-" & C(J)
                BS = 1
            End If
        Next
        ARR(I, 1) = M
    Next
    Range("C2:C65536").ClearContents
    Range("C2").Resize(UBound(ARR), 1) = ARR
End Sub