[已解决]关于快递单号提取方法，求大神指教下

hassan219

快递单号提取方法，在系统导出来的快递单号是一单多台的那种，就相当于是一单多个快递单号，怎么将逗号之后的快递单号截取下来呢，一对一的快递单号。快递公司        快递单号

最佳答案

月排行榜 / 总排行榜

爱疯

2016-8-2 15:47

Sub test()
    Dim A, B(1 To 10 ^ 5, 1 To 2), i, j, s
    Application.DisplayAlerts = False
    With Sheets(2)

        '1）将数据源第2列按逗号分列
        i = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        Sheets(1).Range("a1:b" & i).Copy .Range("a1")
        .Cells.NumberFormat = "000000000000"
        .Range("b:b").TextToColumns Comma:=True
        A = .Range("a1").CurrentRegion

        '2）存入数组B
        For i = 2 To UBound(A)
            For j = 2 To UBound(A, 2)
                If A(i, j) = "" Then
                    Exit For
                Else
                    s = s + 1: B(s, 1) = A(i, 1): B(s, 2) = A(i, j)
                End If
            Next j
        Next i

        '3）输出
        .Range("a1").CurrentRegion = ""
        .Range("a1").Resize(s, 2) = B
        .Columns(2).AutoFit
        .Activate

    End With
End Sub

快递单号2.rar (362.35 KB, 下载次数: 16)

2016-8-2 15:47 上传

点击文件名下载附件

跳转到最佳答案楼层

hassan219

hassan219

快递单号.zip (358.2 KB, 下载次数: 11)

2016-8-1 18:45 上传

点击文件名下载附件 附件上传在这里

hassan219

希望大神们，帮忙看看，怎样最快速的提取快递单号出来，方便用VOOLKUP匹配使用

datongye

arr=split(ss,",")

hassan219

datongye 发表于 2016-8-1 18:56
arr=split(ss,",")

大神，你说的是用VBA的方法吗？对VBA的函数不是很懂，可以给点步骤吗？万分感谢！！！

zyouong

用word处理非常方便。
附件打不开。

爱疯

Sub test()
    Dim A, B(1 To 10 ^ 5, 1 To 2), i, j, s
    Application.DisplayAlerts = False
    With Sheets(2)

        '1）将数据源第2列按逗号分列
        i = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        Sheets(1).Range("a1:b" & i).Copy .Range("a1")
        .Cells.NumberFormat = "000000000000"
        .Range("b:b").TextToColumns Comma:=True
        A = .Range("a1").CurrentRegion

        '2）存入数组B
        For i = 2 To UBound(A)
            For j = 2 To UBound(A, 2)
                If A(i, j) = "" Then
                    Exit For
                Else
                    s = s + 1: B(s, 1) = A(i, 1): B(s, 2) = A(i, j)
                End If
            Next j
        Next i

        '3）输出
        .Range("a1").CurrentRegion = ""
        .Range("a1").Resize(s, 2) = B
        .Columns(2).AutoFit
        .Activate

    End With
End Sub

快递单号2.rar (362.35 KB, 下载次数: 16)

2016-8-2 15:47 上传

点击文件名下载附件

datongye

试试这个

hassan219

datongye 发表于 2016-8-2 15:51
试试这个

非常感谢！！！