[已解决]VB如何把相同条件下的单元格同时替换成其它值？

elena0818

在VB中如何把一个区域里面，数据大于10的单元格同是变成“A"？

最佳答案

月排行榜 / 总排行榜

云影

2014-6-15 15:15

1. Sub test()
   
2.     Dim rng As Range
   
3.        For Each rng In ActiveSheet.UsedRange
   
4.            If Val(rng) > 10 Then
   
5.                 rng.Value = "A"
   
6.            End If
   
7.         Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

qh8600

循环+判断

云影

1. Sub test()
   
2.     Dim rng As Range
   
3.        For Each rng In ActiveSheet.UsedRange
   
4.            If Val(rng) > 10 Then
   
5.                 rng.Value = "A"
   
6.            End If
   
7.         Next
   
8. End Sub
   

复制代码

youfang

1. Sub 替换()
   
2.     Dim rg As Range
   
3.        For Each rg In 区域'区域需自己改
   
4.            If rg > 10 Then rg = "A"
   
5.        Next
   
6. End Sub
   

复制代码