[已解决]【请教】2个数据间的统计

吕?布

不明白题意

xdwy81129

QUOTE:

以下是引用吕?布在2010-3-25 11:48:00的发言：
不明白题意

1.答案请求输入为在c列的第8行依次得到答案（统计之间多少个2）

即把阿木老师的答案直接从c8单元格开始往下得出，不要中间的间隔

2   老师的答案中， Call 统计(""B"", 2, 3)和Call 统计(""B"", 3, 4)

这里的""B""，表示什么意思？？后面的2，3或者是3，4表示什么意思。因为也想统计其他数字的个数。

3.如果就本题而言，我不是计算B字母之间有多少个2，而是计算D字母之间有多少个2应该怎么改动宏。

再次希望得到老师的解答。期盼！

[此贴子已经被作者于2010-3-25 16:51:23编辑过]

吕?布

Option Explicit

Function CountNumber(Data, 统计字符, 统计数字) As Variant
    Dim x As Variant
    Dim lCount As Long, lTmp As Long
    Dim arr(1 To 1, 1 To 200)  As String
    
    lCount = 0: lTmp = 0
    For Each x In Data
        If x = 统计字符 Then
            lCount = lCount + 1
            If lCount > 1 Then
                arr(1, lCount - 1) = lTmp
                lTmp = 0
            End If
        ElseIf x = 统计数字 Then
            If lCount > 0 Then lTmp = lTmp + 1
        End If
    Next x
    CountNumber = Application.Transpose(arr)
End Function
7evf7W7H.rar (7.83 KB, 下载次数: 1)

2010-3-25 18:22 上传

点击文件名下载附件
【请教】2个数据间的统计

xdwy81129

QUOTE:

以下是引用吕?布在2010-3-25 18:22:00的发言：

Option
  Explicit

Function CountNumber(Data, 统计字符, 统计数字) As
  Variant
    Dim x As
  Variant
    Dim lCount As
  Long, lTmp As
  Long
    Dim arr(1 To 1, 1 To 200)  As
  String
    
    lCount = 0: lTmp = 0
    For
  Each x In Data
        If x = 统计字符 Then
            lCount = lCount + 1
            If lCount > 1 Then
                arr(1, lCount - 1) = lTmp
                lTmp = 0
            End
  If
        ElseIf x = 统计数字 Then
            If lCount > 0 Then lTmp = lTmp + 1
        End
  If
    Next x
    CountNumber = Application.Transpose(arr)
End
  Function

感谢吕版了，只是答案必须单元格里面要输入“公式”，而且还不能更改一组单元格的地方，所以，这个方法我不适用，还请老师们再赐教下。

感谢

xdwy81129

QUOTE:

以下是引用xdwy81129在2010-3-25 16:50:00的发言：

1.答案请求输入为在c列的第8行依次得到答案（统计之间多少个2）

即把阿木老师的答案直接从c8单元格开始往下得出，不要中间的间隔

2   老师的答案中， Call 统计(""B"", 2, 3)和Call 统计(""B"", 3, 4)

这里的""B""，表示什么意思？？后面的2，3或者是3，4表示什么意思。因为也想统计其他数字的个数。

3.如果就本题而言，我不是计算B字母之间有多少个2，而是计算D字母之间有多少个2应该怎么改动宏。

再次希望得到老师的解答。期盼！

请老师帮助解上面的惑下，感谢，感谢。

顶顶