[已解决]统计个数

oplkj · 发表于 2012-2-10 13:56

Book2.xls12.rar (2.86 KB, 下载次数: 16)

wenchduan · 发表于 2012-2-10 14:07

连续四个算2个？那连续五个算3个？是这个意思？！

liuts · 发表于 2012-2-10 14:22

本帖最后由 liuts 于 2012-2-10 14:26 编辑

Option Explicit

Sub liuts()

Dim arr, i%, j%, k%, icount%

With Sheet1

      arr = .Range("d6:av11")

      k = 1

      For i = 1 To UBound(arr)

         For j = 2 To UBound(arr, 2)

            If CStr(arr(i, j)) = CStr(arr(i, j - 1)) And arr(i, j - 1) <> "" Then

                  k = k + 1

            Else

                  If k >= 3 Then icount = icount + k - 2

                  k = 1

            End If

         Next j

      Next i

      .Range("d5") = icount

End With

End Sub
复制代码

Book2.rar (8.33 KB, 下载次数: 10)

雄鹰 · 发表于 2012-2-10 14:42

本帖最后由雄鹰于 2012-2-10 14:44 编辑

Sub 统计个数()
个数 = 0
连续个数 = 0
For j = 6 To 11
      For i = 5 To 48
         If Cells(j, i) = Cells(j, i - 1) And Cells(j, i) <> "" Then
            连续个数 = 连续个数 + 1
         Else
            连续个数 = 0
         End If

         If 连续个数 >= 2 Then 个数 = 个数 + 1
      Next
Next
Cells(5, 4) = 个数
End Sub

统计个数.zip (9.02 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册

[已解决]统计个数

相关帖子