我是 VBA 的新手。
我正在處理以下簡單的 VBA 問題。
| 乙 | ... | D |
|---|---|---|
| 中國新年 | ... | 1 |
| 新臺幣 | ... | 2 |
| 港幣 | ... | 3 |
| 美元 | ... | 4 |
| 英鎊 | ... | 5 |
例如，如果 B 與“USD”、“CNY”、“HKD”完全匹配，我想將 D 列中的相應值替換為 0 或空。
我想將相同的邏輯應用于另一個也包含貨幣列和 D 列的作業表。
uj5u.com熱心網友回復：
請把下面的簡單代碼放在一個新模塊上（如果你不知道，谷歌如何插入一個新模塊 excel vba ？）這個代碼將只在活動表上運行。
Option Explicit
'Option Compare Text
Sub Replace_the_corresponding()
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
Dim ws As Worksheet: Set ws = ActiveSheet
Dim B_Column As Range: Set B_Column = ws.Range("B2", ws.Cells(Rows.Count, "B").End(xlUp))
Dim cell As Object
For Each cell In B_Column
If cell.value = "USD" Or cell.value = "CNY" Or cell.value = "HKD" Then
cell.Offset(, 2).value = ""
End If
Next cell
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/415398.html
標籤：