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

¤u§@ªí¸ê®Æ­«·s±Æ¦C°ÝÃD

¤u§@ªí¸ê®Æ­«·s±Æ¦C°ÝÃD

¦U¦ì¤j­ô¦n
¤p§Ì¦³¤u§@ªí¸ê®Æ­«±Æ°ÝÃD¡A¦ý¬O¤@ª½µLªk§JªA¦pªþ¥ó¡C
½Ð±Ð¦U¦ì¤j­ô§ÚÀ³¦p¦ó­×§ï¡C
±b³æ.rar (16.09 KB)
lionliu

¦^´_ 1# lionliu

¤w±Æ§¹
±b³æ(¤w¸Ñ¨M).rar (19.11 KB)
  1. Sub sort()
  2.     For i = 5 To Range("A65536").End(xlUp).Row
  3.         With Sheets("±b³æ")
  4.             '§ä¥X¦UÀç·~¶µ¥Ø
  5.             For j = 2 To 8
  6.                 If Not Rows(i).Find(.Cells(2, j), Lookat:=2) Is Nothing Then
  7.                     ' "¦³¸ê®Æ"
  8.                     .Cells(i - 2, j) = Rows(i).Find(.Cells(2, j), Lookat:=2).Offset(0, 1)
  9.                 Else
  10.                    ' "¬dµL¸ê®Æ¤£°µ¥ô¦ó°Ê§@"
  11.                 End If
  12.             Next
  13.         End With
  14.     Next
  15. End Sub
½Æ»s¥N½X
PKKO

TOP

¦^´_ 2# PKKO
ÁÂÁÂ BOB ¥ý¨Ó¸Õ¸Õ

:D
lionliu

TOP

¦^´_ 3# lionliu


    À£ÁYÀɤº,¬O¤w¸gÀ°±z±Æ§¹ªº¸ê®Æ,¥i¥Hª½±µ¨Ï¥Î,µ{¦¡½X«h¬O#2POªº³¡¤À
PKKO

TOP

¦^´_ 4# PKKO
P¤j
   ÁÂÁ§A¡A§Ú´ú¸Õ¨Ï¥Î¥i¥H¤F¡A¦ý¬O¦³¤@­Ó°ÝÃD
´N¬O§Úªº²Mªí­Y»P¸ê®Æªíªº±b¸¹¶¶§Ç¤£¦P¡A¦n¹³¤£·|§@½Õ¾ã¡C
¥Ø«e¦b¹Á¸Õ­×§ï¤¤¡C
lionliu

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD