[已解决]无效的next控件变量引用?

markang

各位老师晚上好!
我想吧a列满足"品名是B"的价格放到动态数组里去,于是有了这个代码,但是运行时为什么会提示
无效的next控件变量引用.rar (11.25 KB, 下载次数: 1)

2015-6-3 20:27 上传

点击文件名下载附件
Sub a()
Dim arr1(), x, y, k

For x = 2 To 10
For y = 2 To 10
Select Case Range("a" & x)
Case "B"
k = k + 1
ReDim arr1(1 To k)
arr1(k) = Range("b" & x)
End Select
Next x
Next y
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2015-6-3 20:48

十分简单：
Sub a()
    Dim arr1(), x, k
    For x = 2 To 10
        Select Case Range("a" & x)
        Case "B"
            k = k + 1
            ReDim Preserve arr1(1 To k)
            arr1(k) = Range("b" & x)
        End Select
    Next
End Sub
或
Sub a()
    Dim arr1(), x, k
    For x = 2 To 10
        If Range("a" & x) = "B" Then
            k = k + 1
            ReDim Preserve arr1(1 To k)
            arr1(k) = Range("b" & x)
        End If
    Next
End Sub

跳转到最佳答案楼层

zjdh

代码问题太多！！
1. 循环for....next 没有对应。
2. ReDim清除了以前的数据。
3. 循环只需要一个，为何写了2个？
4. 循环Y变量，取值却是X变量！
...............

zjdh

十分简单：
Sub a()
    Dim arr1(), x, k
    For x = 2 To 10
        Select Case Range("a" & x)
        Case "B"
            k = k + 1
            ReDim Preserve arr1(1 To k)
            arr1(k) = Range("b" & x)
        End Select
    Next
End Sub
或
Sub a()
    Dim arr1(), x, k
    For x = 2 To 10
        If Range("a" & x) = "B" Then
            k = k + 1
            ReDim Preserve arr1(1 To k)
            arr1(k) = Range("b" & x)
        End If
    Next
End Sub

markang

额确实变量怎么多写了一个.但是我不理解 1. 循环for....next 没有对应。怎么理解?包括下面的代码为什么一定得把next y放在前面而不能把next x放在前面?否则也会无效的next控件变量引用?
Sub a()
Dim arr, x, y, temp
arr = Range("a1:a9")
For x = 1 To UBound(arr) - 1
For y = x + 1 To UBound(arr)
If arr(x, 1) > arr(y, 1) Then
temp = arr(x, 1)
arr(x, 1) = arr(y, 1)
arr(y, 1) = temp
End If
Next x
Next y


End Sub

zjdh

markang 发表于 2015-6-3 20:58
额确实变量怎么多写了一个.但是我不理解 1. 循环for....next 没有对应。怎么理解?包括下面的代码为什么一定 ...

这你得补习一下循环语句啦！！