求助！用VBA写一个统计一行中奇偶数个数的代码

yugongys

f0229f0229 发表于 2018-1-22 15:05
请教，我要设置大于11，小于23，如何改代码
If Sheet1.Cells(x, y) >11 to < 23 Then

If Sheet1.Cells(x, y) > 11 And Sheet1.Cells(x, y) < 23 Then

应该是这样写的吧？

咸鱼翻身却粘锅

f0229f0229 发表于 2018-1-22 19:34
这样运行不了，提示：缺少标签或语句或语句结束

我这边运行没有任何问题啊。你出错的时候点下调试，看是哪里出问题了再跟我说下。另外你这个数据有2万行？不然怎么提前就限定了2万的数组？

f0229f0229

咸鱼翻身却粘锅 发表于 2018-1-23 08:40
我这边运行没有任何问题啊。你出错的时候点下调试，看是哪里出问题了再跟我说下。另外你这个数据有2万行 ...

你好，这句代码修改为If Sheet1.Cells(x, y).value> 11 And Sheet1.Cells(x, y).value < 23 Then，再把Sheet1都改为 Sheet2，就符合我的要求了，
2000行是我自己估算的最大行数，我的本意是想把 For x = 1 To 20000这句如何才能修改为 For i = 1 To UBound(arr)或类似的语句，只是自己不会，还请你给指点一下，谢谢

咸鱼翻身却粘锅

f0229f0229 发表于 2018-1-23 13:21
你好，这句代码修改为If Sheet1.Cells(x, y).value> 11 And Sheet1.Cells(x, y).value < 23 Then，再把Sh ...

Sub 统计每行大于12小于23的数字个数()

    Dim x%, y%, k%, e%

    Dim arr
    e = Sheet2.UsedRange.Rows.Count
    ReDim arr(1 To e)
    Sheet2.Range("k1").Resize(e) = ""
    For x = 1 To e
   
        For y = 1 To 10

            If 11 < Sheet2.Cells(x, y) And Sheet2.Cells(x, y) < 23 Then

                k = k + 1

            End If

        Next y

        arr(x) = k

        k = 0

    Next x

    Sheet2.Range("k1").Resize(e) = WorksheetFunction.Transpose(arr)

End Sub

差不多是这样，我模拟的数据是从A1开始计算的，具体你可能要稍加修改一下。另外有个地方我说错了，大于11小于23的表达应该是x>11 and x<23。非常不好意思啊。