vba 篩選未輸入的字

2015-07-24 1:24 am
設有20個數字(定義為文字), 其分別為 01 02 03 04 05 06 07……20
在sheet1 A1~A3輸入 01 05 12
則B欄將依序出現02 03 04 06 07 08 09 10 11 13 14 15
(就是在A欄輸入的字, 在B欄將不會出現, 如連結所附圖示)
請教大大們 該如何以VBA寫出, (方便的話可否順便附註說明)
因為還不熟悉vba, 正在學習中, 希望大大們指教, 感激~~~~~~

https://app.box.com/s/8gk800ghye3yzy74zk92uwy4ia4lvwyd

回答 (1)

2015-07-24 4:33 am
✔ 最佳答案

Sub Tell_Apart()

Dim A(20) As Boolean

' B欄清空,並設為文字格式
Columns("B").ClearContents
Columns("B").NumberFormatLocal = "@"

' 設定初始值為 False
For n = 1 To 20
A(n) = False
Next

' A欄有出現的設為 True
For r = 1 To 20 ' 列變數
A(Cells(r, 1)) = True
Next

' 在B欄輸出剩餘的數
r = 1
For n = 1 To 20
If A(n) = False Then
Cells(r, 2) = Format(n, "00")
r = r + 1
End If
Next

End Sub


收錄日期: 2021-04-23 23:54:50
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20150723000015KK05917

檢視 Wayback Machine 備份