首页 › 实战技术 › 批量替换VBA

nnsea 发表于 2019-10-12 14:45:25

批量替换VBA

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

查看完整版本: 批量替换VBA