批量替换VBA

nnsea

Sub gjia()
  Dim rg As Range
  For Each rg In Range("A1:F16")
    If rg.Value = "商业" And rg.Offset(0, 1).Value = 0.8471 Then
      rg.Offset(0, 1).Value = 0.9425
    End If
  Next rg
  
End Sub