返回列表下一主題上一主題發帖

[發問] 詢問switch case 的用法

toromru

小學生 Rank: 1

帖子: 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 (代號)

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

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

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