ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¶µ¥Ø­p¼Æ

[µo°Ý] ¶µ¥Ø­p¼Æ

¤u§@ªí1¦³¤@Äæ¦ì¡AÄæ¦W¬°¡y¸ê®ÆÀÉ¡z¡A¸ÓÄæ·|¥X²{¦p¡yA¡BB¡BC....¡zµ¥¤£¤@ªº¸ê®Æ¡A


¤u§@ªí2¤¤¡A§Æ±æ¯à¥X²{¦U¶µ¸ê®Æªº¶µ¥Ø­p¼Æ¡A¦pªþ¥ó¡A½Ð¦U¦ì¥ý¶i¸Ñ´b¡AÁÂÁÂ!!

TEST.zip (3.64 KB)

¦^´_ 1# ashan0418


    ¸Õ¸Õ¡I¡I
  1. Sub ¥¨¶°1()
  2. Dim arr1(1 To 10, 1 To 2)
  3. Set la = Cells(Rows.Count, "a").End(xlUp)
  4. arr = Range([A2], la)

  5. For i = 1 To la.Row - 1
  6.     For J = 1 To UBound(arr1)
  7.         x = arr(i, 1): y = arr1(J, 1)
  8.         If arr(i, 1) = arr1(J, 1) Then
  9.             arr1(J, 2) = arr1(J, 2) + 1
  10.             GoTo 100
  11.         End If
  12.     Next J
  13.         K = K + 1
  14.         arr1(K, 1) = arr(i, 1)
  15.         arr1(K, 2) = arr1(K, 2) + 1
  16. 100:
  17. Next i
  18. ¤u§@ªí2.[A2].Resize(K, 2) = (arr1)
  19. ¤u§@ªí2.Range("A" & K + 2) = "¦X­p"
  20. aaa = Application.Sum(¤u§@ªí2.Range("B2:B" & K + 1))
  21. ¤u§@ªí2.Range("B" & K + 2) = Application.Sum(¤u§@ªí2.Range("B2:B" & K + 1))
  22. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# lpk187


¨S°ÝÃD¤F¡AÁÂÁ±z!!

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD