返回列表 上一主題 發帖

如何用VBA取出關鍵字

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
126  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-7-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-2-18 19:28 | 顯示全部帖子

如何用VBA取出關鍵字

本帖最後由 jsc0518 於 2017-2-18 19:29 編輯

各位先進，我有4個關鍵字-除權除息、發股息、漲、跌
要如何利用VBA的方式將A欄列的字串找出關鍵字，並於B欄列上秀出其關鍵字
畫面如下圖
再請各位先進指導


Noname.jpg
收藏 分享
Just do it.

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
126  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-7-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
2#
發表於 2017-2-18 20:25 | 顯示全部帖子
回復 2# VBALearner


您好，我改了語法，但是出現錯誤

Sub InStr()

For i = 1 To [a65536].End(3).Row
If InStr([Ai], "除權除息") Then [Bi] = "除權除息"
If InStr([Ai], "發股息") Then [Bi] = "發股息"
If InStr([Ai], "漲") Then [Bi] = "漲"
If InStr([Ai], "跌") Then [Bi] = "跌"
Next

End Sub
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
126  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-7-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
3#
發表於 2017-2-19 08:12 | 顯示全部帖子
回復 5# VBALearner


這段語法也測試成功，但語法要改成找到關鍵字後，全部放在"B欄"下，我改語法後仍失敗
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
126  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-7-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
4#
發表於 2017-2-19 21:07 | 顯示全部帖子
回復 7# VBALearner

Dear VBALearner，感謝您的指導
我知道了  If InStr(Cells(i, 1), str(j)) Then Cells(i, 2) = Cells(i, 2) & str(j) --> Cells (列,欄)的意思了
再次感謝您!
Just do it.

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題