- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 3# b9208
¸Õ¸Õ¬Ý
Sub ex()
Dim arr
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
arr = Sheets("¸ê®Æ").[B5].CurrentRegion
For i = 2 To UBound(arr)
If Not d.Exists(arr(i, 2) & arr(i, 8)) Then
d.Add (arr(i, 2) & arr(i, 8)), 1
Else
d(arr(i, 2) & arr(i, 8)) = d(arr(i, 2) & arr(i, 8)) + 1
End If
Next
With Sheets(1)
arr = .[B6].CurrentRegion
For i = 2 To UBound(arr, 2) - 1
For j = 2 To UBound(arr)
If d(arr(j, 1) & arr(1, i)) = "" Then
arr(j, i) = 0
Else
arr(j, i) = d(arr(j, 1) & arr(1, i))
End If
Next
Next
.[B6].CurrentRegion = arr
.[L7].Resize(UBound(arr) - 1) = "=sum(c7:K7)"
.[L:L] = .[L:L].Value
End With
Set d = Nothing
End Sub |
|