[已解决]vb菜鸟求助

ddmyykdzh

Sub 多重判断()
    If Range("a1") < 0 Then
        Range("b1") = "小于零"
    ElseIf Range("a1") = 0 Then
        Range("b1") = "等于零"
    ElseIf Range("a1") > 0 Then
        Range("b1") = "大于零"
    End If
End Sub
上面这个语句是判断A1,结果在B1显示；如果我想批量判断A列的数据，结果在B列对应的位置显示，是要改哪里？{:011:}

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-16 15:33

写错了
把
for i = 1 to [A1].end(xlup).row
换成for i = 1 to [A65536].end(xlup).row

跳转到最佳答案楼层

sunjing-zxl

Sub 多重判断()
dim i as long
for i = 1 to [A65536].end(xlup).row
    If Range("a" & i) < 0 Then
        Range("b" & i) = "小于零"
    ElseIf Range("a" & i) = 0 Then
        Range("b" & i) = "等于零"
    ElseIf Range("a" & i) > 0 Then
        Range("b" & i) = "大于零"
    End If
next i
End Sub

ddmyykdzh

sunjing-zxl 发表于 2012-1-16 15:21
Sub 多重判断()
dim i as long
for i = 1 to [A1].end(xlup).row

试了一下，只有B1结果显示了，其他的单元格没变，是不是我哪里没弄好{:4512:}

sunjing-zxl

写错了
把
for i = 1 to [A1].end(xlup).row
换成for i = 1 to [A65536].end(xlup).row

wenchduan

Sub 多重判断()
    Dim i%
    Dim j%
    j = Range("A65536").End(xlUp).Row
       For i = 1 To j
        If Range("A" & i) < 0 Then
         Range("B" & i) = "小于零"
         ElseIf Range("A" & i) = 0 Then
         Range("B" & i) = "等于零"
         ElseIf Range("A" & i) > 0 Then
         Range("B" & i) = "大于零"
       End If
      Next i
End Sub

调试成功的！

ddmyykdzh

感谢解答，去研究一下

不解木野狐

虽然问题已经解决了，

1. 
   
2. 
   
3. 
   
4. Sub 数组的多重判断()
   
5. Dim ARR1, arr2, x, y
   
6. ARR1 = Range("A1:A" & Range("A1048576").End(3).Row)
   
7. x = UBound(ARR1)
   
8. ReDim arr2(1 To x)
   
9. For x = 1 To UBound(ARR1)
   
10. If ARR1(x, 1) > 0 Then
    
11. arr2(x) = "大于零"
    
12. ElseIf ARR1(x, 1) = 0 Then
    
13. arr2(x) = "等于零"
    
14. Else
    
15. arr2(x) = "小于零"
    
16. End If
    
17. Next
    
18. Range("B1").Resize(UBound(ARR1)) = WorksheetFunction.Transpose(arr2)
    
19. End Sub

复制代码

      
我做了一个数组的，你试试，速度可是不慢啊{:011:}

ddmyykdzh

不解木野狐 发表于 2012-1-16 21:48
虽然问题已经解决了，
      
我做了一个数组的，你试试，速度可是不慢啊

感谢！学习下