[已解决]如何用VBA将指定条件的单元格后面的单元格的数值替换成别的值

zl1975

如何用VBA将工作表中的商业后面的电价0.8471替换成0.9425

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-6-30 14:45

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

跳转到最佳答案楼层

ws278106483

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

windimi007

这个不需要用vba就可以实现了，具体方法请见动画。
P.S. 下次提问请上传附件！

ws278106483

楼主附件跟上了。觉得好给个最佳哦。