[已解決]如何用vba 查詢多條件並更改字串

#excel #vba

dapa0704 2022-01-22 03:39:59 ‧ 1432 瀏覽

分享至

求解..

請問如何用vba寫出多條件查找並且更改欄位字串

希望出來的成果是:
工作頁member_users J欄Group找出"SP-STD-USD"和"GL-STD-USD"後統一名稱為STD-USD後
自動再貼到另一份excel檔

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2022-01-22 08:28:15

原

With Worksheets(1).Range("J2:J19")

指的是第一張工作表
改成

With ActiveSheet.Range("J2:J19")

就可以在「任何一張」/目前的工作表執行

回應 8
分享
檢舉

看更多先前的回應...收起先前的回應...

dapa0704 iT邦新手 5 級 ‧ 2022-01-25 23:14:35 檢舉

海綿大大還是失敗..還請麻煩再協助指導，感恩感恩!

海綿寶寶 iT邦大神 1 級 ‧ 2022-01-26 08:16:01 檢舉

記得原題目是「成功，但換到別的檔案就失敗」
現在改成「失敗」二字
請問是那一個部份失敗？

找出"SP-STD-USD"和"GL-STD-USD" - 找不到？

統一名稱為STD-USD後 - 不能取代？

自動再貼到另一份excel檔 - 不能貼？

其他？

dapa0704 iT邦新手 5 級 ‧ 2022-01-26 22:54:10 檢舉

海綿寶寶海大大照您說的改了之後，點按鈕無任何反應

海綿寶寶 iT邦大神 1 級 ‧ 2022-01-27 07:36:51 檢舉

可能是
1.執行 FindString 時沒有開啟任何工作表
2.J2:J999 沒有符合的資料

先用最單純的方式(開一張工作表+直接/只呼叫 FindString)測試 FindString
成功後再用原完整程式使用

dapa0704 iT邦新手 5 級 ‧ 2022-01-28 02:28:25 檢舉

單純開一張工作表是可以將GL-STD-USD改成STD-USD，
想請問海大大，如果我要J列的GL-STD-USD和SP-STD-USD都改成STD-USD，語法應該怎麼改才行

海綿寶寶 iT邦大神 1 級 ‧ 2022-01-28 07:18:22 檢舉

簡單寫就再重覆一次，大概像這樣

With ActiveSheet.Range("J2:J999")
    '原程式
    Set member_users = .Find("GL-STD-USD", LookIn:=xlValues)
    If Not ...
        ...
    End If
    '重覆寫
    Set member_users = .Find("SP-STD-USD", LookIn:=xlValues)
    If Not ...
        ...
    End If    
End With

dapa0704 iT邦新手 5 級 ‧ 2022-01-29 00:10:00 檢舉

海綿寶寶感謝海大大的協助，已解決!!!

海綿寶寶 iT邦大神 1 級 ‧ 2022-01-29 08:14:42 檢舉

如果問題已解決
請選個最佳解答以結案

登入發表回應

blanksoul12

iT邦研究生 5 級 ‧ 2022-01-22 09:52:04

Sub test()

arr = WorksheetFunction.Transpose(Columns("j"))
For i = 1 To UBound(arr)
    If arr(i) <> "" Then
        arr(i) = Replace(arr(i), "GL-STD-USD", "STD-USD")
    Else
        Exit For
    End If
Next
[j1].Resize(i - 1, 1) = arr

End Sub