excel宏——替換內容

把表中的資料滿足條件的執行替換。

工具-》宏-》vb編寫宏，建立模組，寫下面代碼。然後把宏安全性設定低，運行宏。

Sub 宏1()
'
' 宏1 宏
'
Counter = 4
Do While Counter <= 2187
N = 1
  For N = 1 To 9
    If Sheets("1月分車型路由識別情況").Range("D" & Counter) = Sheets("收費站").Range("A" & N) Then
       Sheets("1月分車型路由識別情況").Range("E" & Counter) = Sheets("收費站").Range("B" & N)
    End If

  Next N
  Counter = Counter + 1
Loop

End Sub

由於資料的類型不一樣，會導致上面宏出問題，比如上面用文本類型和數字類型比較，會不相同，所以需要把類型修改一致。