EXCEL如何利用VBA實現批量字段的替換？

Option Explicit

Sub 轉換()

Dim dict, arr, i, j, k

dict = Sheets(1).UsedRange '字典關系表

arr = Sheets(2).UsedRange '需要轉換的表

For i = 2 To UBound(arr)

For j = 3 To 5

For k = 1 To UBound(dict)

If dict(k, 1) = arr(i, j) And dict(k, 3) = arr(1, j) Then

arr(i, j) = dict(k, 2)

Exit For

End If

Next k

Next j

Next i

Sheets(2).UsedRange = arr '回寫轉換結果

End Sub