[發問] 詢問switch case 的用法

toromru

我有一串資料 需要進行比對

A列 有約100筆資料 (不一定都是100筆)
B列想呈現的資料為
         例1. A50儲存格中有出現 '台中'  則 B50 儲存格就帶入 1 (代號)
         例2. A63儲存格中有出現 '高雄'  則 B63 儲存格就帶入 2 (代號)

不知道這樣的迴圈 要如何撰寫呢?!

准提部林

Sub Test_Switch()
Dim xR As Range, J
For Each xR In Range([A1], [A65536].End(3))
　　J = xR
　　xR(1, 2) = Switch(J = "台中", 1, J = "高雄", 2, J = "台北", 3, J = J, "")
Next
End Sub
　
依資料樣態有很多方法，Switch 並非第一選擇！
　

hcm19522

http://blog.xuite.net/hcm19522/twblog/342553261

准提部林

回復 3# hcm19522


Ｅ大，歡迎加入！又多了有力援手！
預祝　有個快樂的中秋節假期～～

回答時若能貼個小表格及公式，可直接供參考，後再加貴部落格的詳細資料，則更加完美！
感恩！