我有一個髒數據庫,其中每個人的名稱都以不同的方式寫入,我無法對它們進行分組。使用數組VBA查找和替換數據庫中的值
我想創建一個宏來查找和使用兩列列表替換數據庫中的名稱。
我發現下面的代碼,但無法理解它I'm,因此無法適應它:
Dim Sht As Worksheet
Dim fndList As Integer
Dim rplcList As Integer
Dim tbl As ListObject
Dim myArray As Variant
Dim Rng As Range
'Create variable to point to your table
Set tbl = Worksheets("How to").ListObjects("Table2")
'Create an Array out of the Table's Data
Set TempArray = tbl.DataBodyRange
myArray = Application.Transpose(TempArray)
'Designate Columns for Find/Replace data
fndList = 1
rplcList = 2
'Loop through each item in Array lists
For x = LBound(myArray, 1) To UBound(myArray, 2)
'Loop through each worksheet in ActiveWorkbook (skip sheet with table in it)
For Each Rng In Worksheets("xxxxxxxxxx").Activate
If Rng.Name <> tbl.Parent.Name Then
Rng.Cells.replace What:=myArray(fndList, x), Replacement:=myArray(rplcList, x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End If
Next Rng
Next x
End Sub
瓦你不明白嗎?你有沒有試過運行它?它做什麼或不做它應該做什麼或不應該做什麼? – nicomp
此代碼對數據庫沒有任何內容。你的意思是一個Excel表格? –
請閱讀[如何提問](http://stackoverflow.com/help/how-to-ask)並相應編輯您的問題以獲得最有效的幫助。閱讀這些內容有助於你的理解,正如所寫,這個問題幾乎不可能以任何有意義的方式回答。 –