如何用for each历遍数组

一叶扁舟0317

如何，我将arr 数组赋值了一个工作表区域，想用for each 历遍这个数组区域，怎么写

一叶扁舟0317

我是这么写的

3190496160

数组循环，一般采用 for     next 来循环，

liulang0808

一叶扁舟0317 发表于 2020-2-12 22:46
我是这么写的

楼主如果使用数组就用数据解决到底，中间不要这样去再操作单元格了
另外select case 的条件设置也不是太理想的，建议楼主调整下的

如果还有问题，建议上传完整附件

liuxi001

感觉好乱。。。

yellowhawk

一叶扁舟0317 发表于 2020-2-12 22:46
我是这么写的

初学都是这样，我也是笨笨的处理问题!

chxw68

重新写了一段供参考。

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     arr = .Range("a1:a4")
   
6.     ReDim brr(1 To UBound(arr), 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.       If arr(i, 1) >= 70 Then
   
9.         brr(i, 1) = "良好"
   
10.       ElseIf arr(i, 1) >= 60 Then
    
11.         brr(i, 1) = "及格"
    
12.       End If
    
13.     Next
    
14.     .Range("b1").Resize(UBound(brr), 1) = brr
    
15.   End With
    
16. End Sub
    

复制代码

chxw68

或者直接操作单元格。

1. Sub test()
   
2.   Dim rng As Range
   
3.   With Worksheets("sheet1")
   
4.     For Each rng In .Range("a1:a4")
   
5.       Select Case rng.Value
   
6.         Case Is >= 70
   
7.           rng.Offset(0, 1) = "良好"
   
8.         Case Is >= 60
   
9.           rng.Offset(0, 1) = "及格"
   
10.       End Select
    
11.     Next
    
12.   End With
    
13. End Sub
    

复制代码