我試圖創建一個將字符串(在數組中)轉換爲新字符串(也在數組中)的VBA代碼。但是,我遇到了幾乎相同的原始字符串問題。例如。 「電源合作伙伴」,「電源合作伙伴OEM」。將字符串數組轉換爲VBA中的新字符串
有什麼辦法可以將它們準確地轉換嗎?謝謝!
Private Function cvrt(orig As Variant) As Variant
Dim orgVal As Variant, newVal As Variant, i As Integer
cvrt = orig
orgVal = Array("Central", "Clarke", "Power Partner", "Power Partner OEM")
newVal = Array("Central Data", "Clarke Data", "Onsite Power Partner", "Onsite Energy OEM")
For i = 0 To 3
cvrt = Replace(cvrt, orgVal(i), newVal(i), vbTextCompare)
Next i
End Function
你得到了什麼問題?你傳遞給函數的'orig'的值是多少? –
我的代碼中最後兩個字符串出現問題,因爲它們幾乎完全相同。當我執行代碼時,「電源合作伙伴OEM」的結果不正確,它變成了「現場能源OEM」 – kulapo
您傳遞給函數的'orig'的值是多少? –