如何将excell表中一列的间断数据依次显示在新的一列

Question

如何将excell表中，如图A列间断的数据，依次显示到B列上去。数据庞大，如何自动实现。诚求高手指点。

Answer 1

B1公式：
=INDEX(ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A))),SMALL(IF(ISERROR(MATCH(ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A))),A$1:A$6,0)),ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A))),9^9),ROW(A1)))
数组公式，按CTRL+SHIFT+回车，下拉。

追问

直接复制下拉没有成功，不知道是否有基本的操作失误。这位好心的高手，可否直接加我的一个QQ指教（759747972），不胜感激。工作在这个环节卡住了，没有办法继续开展下去......

追答

这个是数组公式，需要按三键（输入公式后，按CTRL+SHIFT+回车完成公式输入），才能得到正确结果。

追问

非常感谢，我用楼下的代码执行成功了。你的方法我试过多次，如我图中简单的数字可以执行成功几次（但是很容易出错，提示无效名称错误）。但是我实际要用的是拿7位数的数字来执行，用7位数的数字失败了！不过也有可能是我的EXCELL表有问题吧。非常感谢您的回答，祝你幸福......

Answer 2

贴过去排序呗

Answer 3

全是从小到大排列的？

追问

？是的。如果是乱序我给它排序就行了嘛

追答

你看楼下的公式能否解决。

如果不想要公式，我可以帮你写段代码。

右键当前工作表标签，查看代码，粘贴如下代码。运行（F5键）即可。

Sub a()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
Columns(2).ClearContents  '清除B列数据
For i = WorksheetFunction.Min(Range("A:A")) To WorksheetFunction.Max(Range("A:A"))  '从最小值到最大值循环
    If WorksheetFunction.CountIf(Range("A:A"), i) = 0 Then d.Add i, ""  '如果在A列不存在i，则添加到数据字典d中
Next
Range("B1").Resize(d.Count) = WorksheetFunction.Transpose(d.keys)  '将字典中的所有数据填在B列
End Sub

追问

成功了，非常感谢

追答

成功后请记得采纳答案哦。