返回列表 上一主題 發帖

[發問] 詢問switch case 的用法

toromru

帖子
20 
主題
5 
精華
0 
積分
25 
點名
0  
作業系統
W7 
軟體版本
2013 
閱讀權限
10 
註冊時間
2015-7-24 
最後登錄
2015-11-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-9 14:50 | 只看該作者

[發問] 詢問switch case 的用法

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

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

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

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
2#
發表於 2015-9-9 16:11 | 只看該作者
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 並非第一選擇！
　

TOP

hcm19522

帖子
1360 
主題
4 
精華
0 
積分
1370 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-4-19 

熱烈參與勳章
3#
發表於 2015-9-14 14:54 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/342553261

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
4#
發表於 2015-9-14 15:02 | 只看該作者
回復 3# hcm19522


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

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

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題