麻辣家族討論版版 » Excel程式區 » 如何用VBA取出關鍵字

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

如何用VBA取出關鍵字

高中生 Rank: 3 Rank: 3

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

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欄列上秀出其關鍵字
畫面如下圖
再請各位先進指導

樓主熱帖

收藏

Just do it.

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

2^#

發表於 2017-2-18 19:50 | 只看該作者

回復 1# jsc0518

If InStr([A1], "除權除息") Then [B1] = "除權除息"

真心感謝每一位願意分享所學、指導新手的人!

高中生 Rank: 3 Rank: 3

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 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.

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

4^#

發表於 2017-2-18 23:01 | 只看該作者

回復 3# jsc0518

真心感謝每一位願意分享所學、指導新手的人!

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

5^#

發表於 2017-2-18 23:18 | 只看該作者

回復 3# jsc0518

Option Base 1
Sub test()
Dim str
str = Array("除權除息", "漲", "跌", "發股息")
For i = 1 To [A1].End(xlDown).Row
For j = 1 To UBound(str)
If InStr(Cells(i, 1), str(j)) Then Cells(i, j + 1) = str(j)
Next
Next
End Sub

複製代碼

真心感謝每一位願意分享所學、指導新手的人!

高中生 Rank: 3 Rank: 3

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

6^#

發表於 2017-2-19 08:12 | 只看該作者

回復 5# VBALearner

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

Just do it.

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

7^#

發表於 2017-2-19 20:47 | 只看該作者

回復 6# jsc0518

只要改cells(列,欄)的欄為2就代表B欄，這非常基礎，網路多爬文

Option Base 1
Sub test()
Dim str
str = Array("除權除息", "漲", "跌", "發股息")
For i = 1 To [A1].End(xlDown).Row
For j = 1 To UBound(str)
If InStr(Cells(i, 1), str(j)) Then Cells(i, 2) = Cells(i, 2) & str(j)
Next
Next
End Sub

複製代碼

真心感謝每一位願意分享所學、指導新手的人!

高中生 Rank: 3 Rank: 3

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

8^#

發表於 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.

靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。

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