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

[µo°Ý] (¤w¸Ñ¨M)²Î­pÃC¦â¦¸¼Æ

¦^´_ 9# freeffly
"¥i¬O§Ú§Ñ¤FÁÙ¦³²Ä3¡B4....®æ "  ¨S¦³°Ú
Y = [iv4].End(xlToLeft).Column - 1 §@¦ó¥Î??
10¼ÓªºªþÀɤ£²Å¦X¥Î©ó9¼Óªºµ{¦¡

¦^´_10# freeffly

987


³o±ø¥ó ½ÐÁÙ­n¸Ô­z

TOP

¦^´_ 11# GBKEE


    ¦pªþÀɶÀ¦â¼Ð°_¨Óªº¦a¤è¤£À³¸Ó³Q»{¬°º¦»ù
      ¦]¬°«e­±¨S¥æ©ö
       §A´£ªº¨º¦æµ{¦¡½X§Ú¬O­n¥Î¨ÓÅý¥Lª½±µ¦b¸ê®Æªº¥kÃä²Î­p
    ²Î­pÃC¦â.rar (6.6 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¤£ª¾¹D§ÚªºªþÀɤj¤j¬ÝªºÀ´¶Ü?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 13# freeffly


¬O³o¼Ë¶Ü?
  1. Sub up()
  2.     Application.ScreenUpdating = False
  3.     Dim Rng As Range, R As Range, i%, ii%
  4.     With Cells
  5.         .Interior.ColorIndex = xlNone
  6.         .Font.ColorIndex = 0
  7.         .Font.Bold = False
  8.     End With
  9.     Set Rng = Range("C5:AD" & [A65536].End(xlUp).Row)
  10.     For Each R In Rng.Rows
  11.         A = 0
  12.         Set Rng = R.Cells(1, 0).End(xlToRight)
  13.         Rng.Interior.ColorIndex = 6
  14.         For ii = Rng.Column - 1 To 28
  15.             If R.Cells(ii) <> "" And Rng < R.Cells(ii) Then
  16.                 Set Rng = R.Cells(ii)
  17.                 With R.Cells(ii).Font
  18.                     .ColorIndex = 7
  19.                     .Bold = True
  20.                 End With
  21.                 A = A + 1
  22.             ElseIf R.Cells(ii) <> "" And Rng > R.Cells(ii) Then
  23.                 Set Rng = R.Cells(ii)
  24.             End If
  25.         Next
  26.         With R.Cells(1, 29)
  27.             .Value = A
  28.             .Interior.ColorIndex = 4
  29.         End With
  30.     Next
  31.     Set Rng = Nothing
  32.     Set R = Nothing
  33. End Sub
½Æ»s¥N½X

TOP

¦^´_ 14# GBKEE


    ªí¹F¤W¥i¯à¦³¨Ç¤£²M·¡
¤£¹L¤j¤jªº¤è¦¡§Ú§ï¹L¤w¸g¬O§Ú­nªº

¥u¬O¤£ª¾¹D§Ú³o¼Ë§ï¨Æ¤£¬O³Ì¨Îªº¤è¦¡
ªþ¤W§Ú­nªº§¹¦¨«~
¤S¾Ç¨ì·sªF¦è
ÁÂÁÂ
  1. Sub up()
  2.     Application.ScreenUpdating = False
  3.     Dim Rng As Range, X As Range, R As Range, Tolta%, A%, i%, ii%
  4.     With Cells
  5.         .Interior.ColorIndex = xlNone
  6.         .Font.ColorIndex = 0
  7.         .Font.Bold = False
  8.     End With
  9.     Set Rng = Range("C5:AD" & [A65536].End(xlUp).Row)
  10.     For Each R In Rng.Rows
  11.         Set Rng = R.Cells(1)
  12.         A = 0
  13.         Set Rng = R.Cells(1, 0).End(xlToRight)
  14.         Rng.Interior.ColorIndex = 0
  15.         Y = [iv4].End(xlToLeft).Column - 1
  16.         For ii = 2 To 28
  17.             If R.Cells(1, ii) <> "" And Rng < R.Cells(1, ii) Then
  18.                 Set Rng = R.Cells(1, ii)
  19.                 With R.Cells(1, ii).Font
  20.                     .ColorIndex = 7
  21.                     .Bold = True
  22.                 End With
  23.                 A = A + 1
  24.                 With R.Cells(1, Y)
  25.                     .Value = A
  26.                     .Interior.ColorIndex = 4
  27.                 End With
  28.             ElseIf R.Cells(1, ii) <> "" And Rng > R.Cells(1, ii) Then
  29.                 Set Rng = R.Cells(1, ii)
  30.             End If
  31.         Next
  32.     Next
  33. End Sub
½Æ»s¥N½X
²Î­pÃC¦â.rar (10.83 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 15# freeffly


    ª½±µ§PÂ_¼Æ­È¬O§_¼W¥[
  1. Sub ex()
  2. [AE:AE] = ""
  3. R = 5
  4. Do Until Cells(R, 2) = ""
  5. Set Rng = Range(Cells(R, 3), Cells(R, "AD"))
  6. i = 1
  7. Do Until Rng(1, i) <> ""
  8. i = i + 1
  9. Loop
  10. first = Rng(1, i): i = i + 1
  11. For k = i To Rng.Count
  12.   If Rng(1, k) > first Then cnt = cnt + 1
  13.   If Rng(1, k) <> "" Then first = Rng(1, k)
  14. Next
  15. Cells(R, "AE") = cnt: cnt = 0
  16. R = R + 1
  17. Loop
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 16# Hsieh


    ÁÂÁ¤j¤j´£¨Ñ¥t¥~¤@ºØ¤è¦¡
   ³o­Óªº°j°é¦n´X¼h
   ·Pı³£§Ö¶Ã¤F¡÷¹ï§Ú¦Ó¨¥
¥i¥H°Ý¤@¤U³o¨â¥yªº·N«ä¶Ü
first = Rng(1, i): i = i + 1
Cells(R, "AE") = cnt: cnt = 0

³Ñ¤Uªºµ{¦¡½X©î¶}³£¬Ý±oÀ´
¤£¹LÁٻݭn²z¸Ñ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 17# freeffly


    Sub ex()
[AE:AE] = ""
R = 5'²Ä5¦C¶}©l
Do Until Cells(R, 2) = ""
Set Rng = Range(Cells(R, 3), Cells(R, "AD"))'C:ADÄ檺¦C½d³ò
i = 1
Do Until Rng(1, i) <> ""'§ä¨ì¸Ó¦Cªº²Ä¤@­Ó¼Æ­È¦ì¸m
i = i + 1
Loop
first = Rng(1, i): i = i + 1'§â²Ä¤@­Ó¼Æ­È°O¦í¡A·Ç³Æ±q²Ä¤@­Ó¼Æ­È«á¶}©l§ä¼Æ­È
For k = i To Rng.Count
  If Rng(1, k) > first Then cnt = cnt + 1'¦pªGÀx¦s®æ¼Æ­È¤ñ«e¤@­Ó¼Æ­È¤j¡A­p¼ÆªºÅܼƴN¥[1
  If Rng(1, k) <> "" Then first = Rng(1, k)'¦pªG¤£¬OªÅ®æ¡A´N§âÀx¦s®æªº­È°O¦í¡A·Ç³Æ¸ò¤U¤@­Ó¼Æ­È°µ¤ñ¸û
Next
Cells(R, "AE") = cnt: cnt = 0'¾ã¦C¶]§¹«á¡A´N§â­p¼Æªº­È¶ñ¤J¡AµM«áÂk¹s
R = R + 1'¤U¤@¦C
Loop
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 18# Hsieh


    ÁÂÁ¤j¤jªá®É¶¡¸Ñ»¡
    ¨º¨â¥yªº¼gªk¹ï§Ú¨Ó»¡Áٻݭnªá®É¶¡¸Ì¸Ñ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¯uªº¦n¼F®`~

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD