如何在 Excel 中查找多個數字的單元格並更改其值

Question

我想找到一個單元格並在另一個單元格中更改它的值，但是我該如何為多個單元格執行此操作？

Sub replace_sales()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    For i = 1 To 10000
        If ws.Cells(i, 1) = "1932597" Then
            ws.Cells(i, 9) = "0"
        End If
    Next i
Next ws

End Sub

Answer 1

聽起來您可能想要 Select Case。 在案例部分，您可以指定要測試的數字以及在每種情況下要執行的操作。 您可以在同一行上有多個值。 如果使用數字，則不需要“”。 這些用於字符串文字。

Option Explicit
Public Sub replace_sales()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        For i = 1 To 10000
            Select Case ws.Cells(i, 1)
            Case 1932597, 1234, 123
                ws.Cells(i, 9) = 0
            Case 12345
               ws.Cells(i, 9) = 1
            End Select
        Next
    Next ws
End Sub