完成后的表1：
表2：
表1：
有兩個表，
表1為待替換表，包括A列，A列的每個單元格中有多個單詞或者詞組并分別以;隔開，
表2為替換參考表，包括A，B兩列，A列的每個單元格僅有一個單詞或者詞組，對應B列為中文翻譯，
希望在表1的B列可以批量翻譯。量比較多，圖中只列舉了其中一個單元格的資料。
uj5u.com熱心網友回復：
Sub 分割()arr = Split(Range("a1"), ";")
brr = Split(Range("b1"), ";")
Dim arr1()
ReDim arr1(0 To UBound(arr))
Dim brr1()
ReDim brr1(0 To UBound(brr))
For i = 0 To UBound(arr)
arr1(i) = arr(i)
Next
For i = 0 To UBound(brr)
brr1(i) = brr(i)
Next
[c1].Resize(UBound(arr1) + 1, 1) = Application.WorksheetFunction.Transpose(arr1)
[d1].Resize(UBound(brr1) + 1, 1) = Application.WorksheetFunction.Transpose(brr1)
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130498.html
標籤：VBA
上一篇：虛擬串口實作