[已解决]如何给表中的0显示成计数数据

mmc998

Book1.rar (62.52 KB, 下载次数: 17)

2014-4-29 21:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

Zipall

2014-4-29 22:29

mmc998 发表于 2014-4-29 22:18
能不能在我的原代码基础上修改，然后显示出正确的数据

1. Sub test1()
   
2.     Dim arr(), brr(), crr(), i&, j%, d%
   
3.     arr = Range("A4").CurrentRegion.Value
   
4.     brr = Range("C2").CurrentRegion.Value
   
5.     ReDim crr(1 To UBound(arr), 1 To UBound(brr, 2))
   
6.     For j = 1 To UBound(crr, 2)
   
7.         For i = 1 To UBound(crr)
   
8.             If arr(i, 1) = brr(1, j) Then
   
9.                 d = d + 1
   
10.                 crr(i, j) = d
    
11.             End If
    
12.         Next
    
13.         d = 0
    
14.     Next
    
15.   Range("C4").Resize(UBound(crr), UBound(crr, 2)) = crr
    
16. End Sub

复制代码

跳转到最佳答案楼层

tgydslr

怎么计数啊，模拟结果也成啊

mmc998

c列d列填写了一部分数据 Book1.rar (54.98 KB, 下载次数: 9)

2014-4-29 21:45 上传

点击文件名下载附件

Zipall

不知道猜的对不对

1. Sub test()
   
2.     For c = 3 To 30
   
3.         For Each cel In Cells(4, c).Resize(9999).SpecialCells(xlCellTypeConstants, xlNumbers)
   
4.             i = i + 1
   
5.             cel.Value = i
   
6.         Next
   
7.         i = 0
   
8.     Next
   
9. End Sub

复制代码

FnG

c4右拉下拉：

1. =IF($A4=C$2,COUNTIF($A$4:$A4,C$2),"")

复制代码

mmc998

Zipall 发表于 2014-4-29 22:00
不知道猜的对不对

能不能在我的原代码基础上修改，然后显示出正确的数据

FnG

mmc998 发表于 2014-4-29 22:18
能不能在我的原代码基础上修改，然后显示出正确的数据

我写完了才看到你的原代码，我的思路跟你的基本一样，就是定义的变量名称不一样而已。

1. Sub test()
   
2. Dim Arr1, Arr2, Arr3()
   
3. Dim R%, Col%, Cot%
   
4. Arr1 = [a4].CurrentRegion.Value
   
5. Arr2 = [c2].CurrentRegion.Value
   
6. ReDim Arr3(1 To UBound(Arr1), 1 To UBound(Arr2, 2))
   
7. For Col = 1 To UBound(Arr2, 2)
   
8.     Cot = 0
   
9.     For R = 1 To UBound(Arr1)
   
10.         If Cells(R + 3, 1) = Cells(2, Col + 2) Then
    
11.             Cot = Cot + 1
    
12.             Arr3(R, Col) = Cot
    
13.         End If
    
14.     Next
    
15. Next
    
16. [c4].Resize(UBound(Arr1), UBound(Arr2, 2)) = Arr3
    
17. End Sub

复制代码

Zipall

mmc998 发表于 2014-4-29 22:18
能不能在我的原代码基础上修改，然后显示出正确的数据

1. Sub test1()
   
2.     Dim arr(), brr(), crr(), i&, j%, d%
   
3.     arr = Range("A4").CurrentRegion.Value
   
4.     brr = Range("C2").CurrentRegion.Value
   
5.     ReDim crr(1 To UBound(arr), 1 To UBound(brr, 2))
   
6.     For j = 1 To UBound(crr, 2)
   
7.         For i = 1 To UBound(crr)
   
8.             If arr(i, 1) = brr(1, j) Then
   
9.                 d = d + 1
   
10.                 crr(i, j) = d
    
11.             End If
    
12.         Next
    
13.         d = 0
    
14.     Next
    
15.   Range("C4").Resize(UBound(crr), UBound(crr, 2)) = crr
    
16. End Sub

复制代码