返回列表 上一主題 發帖

如何用VBA取出關鍵字

VBALearner

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

論壇贊助勳章
1# 跳轉到 »
發表於 2017-2-18 19:50 | 顯示全部帖子
回復 1# jsc0518

If InStr([A1], "除權除息") Then [B1] = "除權除息"
真心感謝每一位願意分享所學、指導新手的人!

TOP

VBALearner

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

論壇贊助勳章
2#
發表於 2017-2-18 23:01 | 顯示全部帖子
回復 3# jsc0518
真心感謝每一位願意分享所學、指導新手的人!

TOP

VBALearner

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

論壇贊助勳章
3#
發表於 2017-2-18 23:18 | 顯示全部帖子
回復 3# jsc0518
  1. Option Base 1
  2. Sub test()

  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

  13. End Sub
複製代碼
真心感謝每一位願意分享所學、指導新手的人!

TOP

VBALearner

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

論壇贊助勳章
4#
發表於 2017-2-19 20:47 | 顯示全部帖子
回復 6# jsc0518

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

  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

  13. End Sub
複製代碼
真心感謝每一位願意分享所學、指導新手的人!

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題