求助：求大大們幫助我做個模版，萬分感謝了！

hljlxddz

電子表格里，A列，是序號，1至10000，B列，是現(xiàn)在有編號，但不是連續(xù)的，從1開始，或是從大于1的數(shù)開始，顯示編號，類似下面的編 號，然后想在C列，顯示出B列沒有的編 號，232397000002——232397000003 ………………4  ……………………5  到232397001234，232397001240，232397001242，可以顯示一萬行232397009999結(jié)束就可以。B列的內(nèi)容，我可以自己變動改變，我換成232300560001，也能繼續(xù)使用，在C列顯示232300560002這樣的數(shù)

232397000001
232397001235
232397001241
232397002345
232397004455

給大大們添麻煩了，

hljlxddz

剛才沒有上傳附件

roych

寫了一個自定義函數(shù)。不過沒有進(jìn)行錯誤處理

1. Function GetData(ByVal rngBegin As Range, ByVal rngEnd As Range)
   
2.     Dim dblBegin As Double, dblEnd As Double
   
3.     Dim i As Double, s As String
   
4.    
   
5.     dblBegin = CDbl(rngBegin.Value)
   
6.     dblEnd = CDbl(rngEnd.Value)
   
7.     For i = dblEnd - 1 To dblBegin + 1 Step -1
   
8.         s = i & "," & s
   
9.     Next i
   
10.     GetData = Left(s, Len(s) - 1)
    
11. End Function

復(fù)制代碼

所以最好加上ISError進(jìn)行錯誤處理，例如：
=IF(ISERROR(GetData(B6,B7)),"",GetData(B6,B7))

hljlxddz

roych 發(fā)表于 2016-6-1 09:11
寫了一個自定義函數(shù)。不過沒有進(jìn)行錯誤處理

這個是怎么操作可以顯示到C列呀？？
然后那個沒有的空號，可不可以，都是堅排顯示到C列，這樣方便我排列，謝謝

roych

hljlxddz 發(fā)表于 2016-6-3 07:52
這個是怎么操作可以顯示到C列呀？？
然后那個沒有的空號，可不可以，都是堅排顯示到C列，這樣方便我排列 ...

你可以按f復(fù)制/選擇性粘貼，然后按逗號分列，再復(fù)制/選擇性粘貼/轉(zhuǎn)置到C列的。
順便說一下，當(dāng)數(shù)據(jù)比較多的時候，一列不一定排得下來。

pureshadow

啥都用VBA~VBA好辛苦啊~

pureshadow

有點(diǎn)腦殘，弄了個復(fù)雜的法子，再補(bǔ)個簡單點(diǎn)的：

Figueroa

大姐大出場了，問題應(yīng)聲解決。