[已解决]请问一下，用宏命令做下面的计算？

kilyj300

用宏或者函数做都可以。比如姓名：张三，位置25，两个。自动在张三行25列的位置出现2
李四，位置16，一个。自动在李四行16列的位置出现1.

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-31 16:51

用VBA做的：
计算.rar (7.95 KB, 下载次数: 23)

2013-12-31 16:51 上传

点击文件名下载附件

跳转到最佳答案楼层

xdragon

1. =TEXT(SUMPRODUCT(N($A$4:$A$12&$B$4:$B$12=$F4&G$3)),"0;;")

复制代码

右拉下拉

xdragon

1. Sub t()
   
2.   Dim arr(), brr(), i&, d As Object, cnt%
   
3.   arr = Range("A3").CurrentRegion.Value
   
4.   Set d = CreateObject("scripting.dictionary")
   
5.   For i = 2 To UBound(arr)
   
6.     If Not d.exists(arr(i, 1)) Then
   
7.       cnt = cnt + 1
   
8.       d(arr(i, 1)) = cnt
   
9.       ReDim Preserve brr(1 To 27, 1 To cnt)
   
10.     End If
    
11.     brr(arr(i, 2), d(arr(i, 1))) = brr(arr(i, 2), d(arr(i, 1))) + 1
    
12.   Next
    
13.   Range("G4").Resize(UBound(brr, 2), 27) = Application.Transpose(brr)
    
14. End Sub

复制代码

VBA的

yyyydddd8888

用VBA做的：
计算.rar (7.95 KB, 下载次数: 23)

2013-12-31 16:51 上传

点击文件名下载附件

kilyj300

太好了！谢谢你们