[已解决]如何使用VBA对数据对批并进行说明

楚雪飞扬

如何使用VBA对数据对批并进行说明
1.将D列数据与F列数据进行对比
2.当F列数据为负时，在G更填入“少用”
3.当F列数据为正时，在G更填入“多用”
4..当F列数据等于D列时，在G更填入“达标”

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-2 14:12

Sub demo()
   a = Range("d3:g" & [d3].End(4).Row)
   For i = 1 To UBound(a)
      Select Case a(i, 3)
         Case Is = a(i, 1): a(i, 4) = "达标"
         Case Is < 0: a(i, 4) = "少用"
         Case Else: a(i, 4) = "多用"
      End Select
   Next
   [d3].Resize(UBound(a), 4) = a
End Sub

跳转到最佳答案楼层

cutecpu

Sub demo()
   a = Range("d3:g" & [d3].End(4).Row)
   For i = 1 To UBound(a)
      Select Case a(i, 3)
         Case Is = a(i, 1): a(i, 4) = "达标"
         Case Is < 0: a(i, 4) = "少用"
         Case Else: a(i, 4) = "多用"
      End Select
   Next
   [d3].Resize(UBound(a), 4) = a
End Sub

楚雪飞扬

感谢