[已解决]数据合并至一列。

left369

数据合并至一列。

最佳答案

月排行榜 / 总排行榜

zjdh

2014-5-23 17:37

筛选.rar (11.94 KB, 下载次数: 24)

2014-5-23 17:37 上传

点击文件名下载附件

跳转到最佳答案楼层

dsmch

模拟几个结果，方便测试代码

zjdh

筛选.rar (11.94 KB, 下载次数: 24)

2014-5-23 17:37 上传

点击文件名下载附件

left369

zjdh 发表于 2014-5-23 17:37

谢谢老师，如果把输入Q列的数据是文本格式就完美了。

qh8600

Sub demo()
    Dim ar, br(1 To 300000, 1 To 1), i, j
    Set d = CreateObject("scripting.dictionary")
    ar = [b3:k1000]
    For i = 1 To UBound(ar)
        For j = 1 To 10
            If ar(i, j) <> 0 Then
                If Not d.Exists(ar(i, j)) Then
                    n = n + 1
                    br(n, 1) = "'" & Format(ar(i, j), "000")
                End If
            End If
        Next
    Next
    Range("q3").Resize(n, 1) = br
    Range("q3").Resize(n, 1).Sort Range("q3"), xlAscending, Header:=xlNo
End Sub