统计区域个数

excelcpeh

统计选取区域每行个位数的个数。

microyip

for each 单元格变量 in 所选区域
可以对每个格子进行读取，这样就可以对比后数出有多少个个位数了

jnsxmt

1. Sub test()
   
2.     Dim ar, br(), m&, n&, k&, w&, q&, dic, s
   
3.     Range("j61").CurrentRegion.ClearContents
   
4.     w = 60
   
5.     Set dic = CreateObject("scripting.dictionary")
   
6.     ar = Selection
   
7.     q = Selection.Row
   
8.     For n = LBound(ar, 1) To UBound(ar, 1)
   
9.         For m = 0 To 9
   
10.             dic(m) = 0
    
11.         Next
    
12.         For k = LBound(ar, 2) To UBound(ar, 2)
    
13.         s = Right(ar(n, k), 1)
    
14.             dic(Val(Right(ar(n, k), 1))) = dic(Val(Right(ar(n, k), 1))) + 1
    
15.         Next k
    
16.         w = w + 1
    
17.         Cells(w, "j") = q & "行各数个数": q = q + 1
    
18.         Cells(w, "k").Resize(1, 10) = dic.items
    
19.         dic.RemoveAll
    
20.     Next n
    
21. End Sub

复制代码

excelcpeh

jnsxmt 发表于 2018-7-26 11:04

运行错误哦

jnsxmt

请审阅，是否符合你要求

excelcpeh

jnsxmt 发表于 2018-7-26 13:04
请审阅，是否符合你要求

你好老师，代码还是运行不了哦。一点运行，就出现类型不匹配的窗口，麻烦老师看下。

jnsxmt

按照你要求编写的代码，你运用的时候先在13 到33行  E列到DD列选 中一区域呀，你的要求不是“统计选取区域每行个位数的个数”，然后才点击单元格N55的按钮1呀

excelcpeh

jnsxmt 发表于 2018-7-26 13:19
按照你要求编写的代码，你运用的时候先在13 到33行  E列到DD列选 中一区域呀，你的要求不是“统计选取区域 ...

你好老师~
1.可否是选取一个单元格。自动得到区域。如：selection.resize(18,50)
2.结果填入是对应选取单元格同列放置。也就是跟着选取单元格跑的。

YZC51

请参考
Function my(rng, x)
    For Each r In rng
    If Right(r, 1) = x & "" Then n = n + 1
    Next
    my = n 'Len(s)
End Function

lsdongjh

1. 
   
2. Sub Test()
   
3.     Dim shSource As Worksheet
   
4.     Dim rgSource As Range
   
5.     Dim arrSource As Variant
   
6.     Dim lngRow As Long, lngCol As Long
   
7.     Dim intVal As Integer, lngColID As Long
   
8.     Dim arrResult(0 To 18, 0 To 9) As Variant, intIndex As Integer
   
9.    
   
10.     Set shSource = Sheets("Sheet1")
    
11.     shSource.Range("40:58").ClearContents
    
12.     Set rgSource = Selection.Resize(18, 50)
    
13.     lngColID = rgSource.Column
    
14.     arrSource = rgSource
    
15.    
    
16.     For lngCol = 0 To 9
    
17.         arrResult(0, lngCol) = lngCol
    
18.     Next
    
19.    
    
20.     For lngRow = 1 To 18
    
21.         For lngCol = 1 To 50
    
22.             intVal = arrSource(lngRow, lngCol)
    
23.             intIndex = intVal Mod 10
    
24.             arrResult(lngRow, intIndex) = arrResult(lngRow, intIndex) + 1
    
25.         Next
    
26.     Next
    
27.    
    
28.     Set rgSource = shSource.Cells(40, lngColID).Resize(18, 10)
    
29.     rgSource.ClearContents
    
30.     rgSource = arrResult
    
31. End Sub

复制代码