[已解决]如何根据条件，给单元格赋值

超蛋

先将大区域的遥感数据解译，并将属性数据导入EXCEL，如何不同的类型，分别赋值。请问各位牛人，用excel VBA如何实现，谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-29 20:45

1. Sub Macro1()
   
2. Dim arr, w, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("b1").CurrentRegion
   
5. w = Array("0", "2", "5", "8", "15")
   
6. For i = 0 To UBound(w)
   
7.     d(w(i)) = ""
   
8. Next
   
9. For i = 2 To UBound(arr)
   
10.     arr(i, 2) = IIf(d.exists(arr(i, 1)), 5, 0)
    
11. Next
    
12. Range("c1").Resize(UBound(arr)) = Application.Index(arr, 0, 2)
    
13. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, w, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("b1").CurrentRegion
   
5. w = Array("0", "2", "5", "8", "15")
   
6. For i = 0 To UBound(w)
   
7.     d(w(i)) = ""
   
8. Next
   
9. For i = 2 To UBound(arr)
   
10.     arr(i, 2) = IIf(d.exists(arr(i, 1)), 5, 0)
    
11. Next
    
12. Range("c1").Resize(UBound(arr)) = Application.Index(arr, 0, 2)
    
13. End Sub

复制代码

dsmch

………………

as0810114

Sub test()
Dim arr, w, i
Dim brr(1 To 10000, 1 To 1)
arr = Range("b1").CurrentRegion
w = "0-2-5-8-15"
For i = 2 To UBound(arr)
    If arr(i, 1) <> 1 And InStr(w, arr(i, 1)) Then
    brr(i - 1, 1) = 5
    Else
    brr(i - 1, 1) = 0
    End If
Next
Range("c2").Resize(UBound(arr)) = brr
End Sub

WreckRalf

1. Sub MySub()
   
2.     Dim arr, i&, keynum$
   
3.     arr = Range(Cells(2, 2), Cells(2, 2).End(xlDown))
   
4.     keynum = "/0/2/5/8/15/"
   
5.     For i = 1 To UBound(arr)
   
6.         arr(i, 1) = (InStr(keynum, "/" & arr(i, 1) & "/") > 0) * -5
   
7.     Next
   
8.     Range("C2").Resize(UBound(arr)) = arr
   
9. End Sub

复制代码