- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 1# ashan0418
¸Õ¸Õ¡I¡I- Sub ¥¨¶°1()
- Dim arr1(1 To 10, 1 To 2)
- Set la = Cells(Rows.Count, "a").End(xlUp)
- arr = Range([A2], la)
- For i = 1 To la.Row - 1
- For J = 1 To UBound(arr1)
- x = arr(i, 1): y = arr1(J, 1)
- If arr(i, 1) = arr1(J, 1) Then
- arr1(J, 2) = arr1(J, 2) + 1
- GoTo 100
- End If
- Next J
- K = K + 1
- arr1(K, 1) = arr(i, 1)
- arr1(K, 2) = arr1(K, 2) + 1
- 100:
- Next i
- ¤u§@ªí2.[A2].Resize(K, 2) = (arr1)
- ¤u§@ªí2.Range("A" & K + 2) = "¦Xp"
- aaa = Application.Sum(¤u§@ªí2.Range("B2:B" & K + 1))
- ¤u§@ªí2.Range("B" & K + 2) = Application.Sum(¤u§@ªí2.Range("B2:B" & K + 1))
- End Sub
½Æ»s¥N½X |
|