如何用VBA取出關鍵字

jsc0518

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

下載 (19.51 KB)

2017-2-18 19:29

VBALearner

回復 1# jsc0518

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

jsc0518

回復 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

VBALearner

下載 (40.14 KB)

2017-2-18 23:01

回復 3# jsc0518

VBALearner

回復 3# jsc0518

1. Option Base 1
   
2. Sub test()
   
3. 
   
4.     Dim str
   
5.     str = Array("除權除息", "漲", "跌", "發股息")
   
6.    
   
7.     For i = 1 To [A1].End(xlDown).Row
   
8.         For j = 1 To UBound(str)
   
9.             If InStr(Cells(i, 1), str(j)) Then Cells(i, j + 1) = str(j)
   
10.         Next
    
11.     Next
    
12. 
    
13. End Sub

複製代碼

下載 (29.23 KB)

2017-2-18 23:18

jsc0518

回復 5# VBALearner


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

VBALearner

回復 6# jsc0518

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

1. Option Base 1
   
2. Sub test()
   
3. 
   
4.     Dim str
   
5.     str = Array("除權除息", "漲", "跌", "發股息")
   
6.    
   
7.     For i = 1 To [A1].End(xlDown).Row
   
8.         For j = 1 To UBound(str)
   
9.             If InStr(Cells(i, 1), str(j)) Then Cells(i, 2) = Cells(i, 2) & str(j)
   
10.         Next
    
11.     Next
    
12. 
    
13. End Sub

複製代碼

jsc0518

回復 7# VBALearner

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