ziv976688

¦^´_ 9# ­ã´£³¡ªL
ª©¥D¤j¤j   : ±z¦n !
®Ä²v´£°ª«Ü¦h~¦P¼ËªºÀɮשM¦P¼ËªºÀô¹Ò(ÃäÅ¥youtubeªº­µ¼Ö©MÃä¦b®à­±°õ¦æ¾Þ§@)¡A¥u¯Ó®É13¬í
·PÁ±z¤@ª½¥H¨Óªº¼ö¤ßÀ°¦£©M­@¤ß«ü¾É~¨ü´f¨}¦h~·P®¦¦A·P®¦(Áù°`)~~~ ~~~~

ziv976688

¦^´_ 10# n7822123
n¤j : ±z¦n!
¹ï¤p§Ì¦Ó¨¥¡A±zÄ@·NÀ°¦£©M«ü¾É~§Ú¤w¸g¬O·P¿E¤£ºÉ¤F
±zªº¦Ò¶q¬O¥¿½Tªº~±zªºµ{¦¡½X¹ï¤p§Ì¤]¬O¤Ó°ª²`~¤p§Ì¤@¯ë¬O¦³¬Ý¨S¦³À´¡AÁÙ¦n±z±`¦³¥[µù¸Ñ¡A¹ï¤p§ÌÀ°§U«Ü¤j(¨Ò¦p:§ï¬°539ªº®æ¦¡¡A¨ì¥Ø«e¬°¤î¡A³£¨S¦³¹J¨ì§xÃø)

¦A¦¸·PÁ±zªø´Á¥H¨Óªº¼ö¤ßÀ°¦£©M­@¤ß«ü¾É~´f§Ú¨}¦h~·P®¦¦A·P®¦(Áù°`)~~~ ~~~~~

ziv976688

¦^´_ 11# ziv976688
Sorry~¦³µ§»~~13¬í§ï¬°33¬í
®Ä²v´£°ª37%

jackyq

¦^´_ 13# ziv976688


³oµ{¦¡§A¦Û¤v¦b¥Îªº¼Ú

lotoµL¸Ñ  ³Ì²×´N¬O¨«¦V°Ñ¼Æ©t®q

¥Î¥È¾Ç·|¤ñ¸û¦³·Ç? §A¦³¤ñ¸û¹L¶Ü

ziv976688

¦^´_ 14# jackyq
¨£¯º¤F!¥u¬O¹ï²Î­p¾Ç¦³¿³½ì¡A©Ò¥H§Q¥Î"·§²v"¨Ó¬ã¨s¼Ö³z½}¤F!
³o­Óª©¸ô¬O¤£¥XµP¥Îªº~¥Ø«eªº¬ö¿ý¬O³sÄò36´Á¨S¦³¯}ª©¡C
¥È¾Ç§¹¥þ¤£À´~«¢~«¢~

ziv976688

¦^´_ 9# ­ã´£³¡ªL
´ú¸ÕÀÉ : ·s¼W¸ê®Æ§¨.rar (152.36 KB)

¤U¸ü¦¸¼Æ: 2

2021-1-16 08:17

ª©¥D¤j¤j : ±z¦n!
¤£¦n·N«ä¡A¦pªG±N
¤½¦¡A_D¼Ò²Õ
Sub DATAÀÉ_AAAªí_¤½¦¡()
Dim AAA_Fx$, xR As Range, N%, xArea
AAA_Fx = "=IF(COLUMN(A$1)>SUM(N(INDEX(A!°Ï°ì,,ROW($A1))="""")),"""",SMALL(IF(INDEX(A!°Ï°ì,,ROW($A1))="""",A!$A$2:$A$51),COLUMN(A$1)))"
xArea = Array("", "$B$2:$S$51", "$V$2:$AM$51", "$AP$2:$BG$51", "$BJ$2:$CA$51")   '¦C4
For Each xR In Sheets("AAA").Range("B2,B52, B102, B152")
    N = N + 1
    xR.FormulaArray = Replace(AAA_Fx, "°Ï°ì", xArea(N))
    xR.Copy xR(1, 2).Resize(1, 48)
    xR.Resize(1, 49).Copy xR(2, 1).Resize(17, 49)
    xR.Resize(18, 49).Value = xR.Resize(18, 49).Value
Next
End Sub
§ï¬°
~~~
~~~
xArea = Array("", "$B$2:$S$51", "$V$2:$AM$51", "$AP$2:$BG$9", "$BJ$2:$CA$9")   '¦C5
(¦]¬°¤F·j´MÀx¦s®æ=""®É¡A¨S¦³¼vÅT¡A¦ý¦pªG¬O­n·j´MÀx¦s®æ<>""©Î¨ä¥¦­È®É¡A·|¼vÅT¨ì³Ì²×ªºµª®×¡A©Ò¥H³o2­Ó½d³ò¥²¶·­n½Õ¾ã¬°¹ê»Úªº­pºâ¦C(8¦C))
~~~
~~~

½Ð°Ý :
¨ä¥¦¬ÛÃöªºµ{¦¡½X­n¦p¦ó¦A­×¥¿?
·q½Ð±z½ç¥¿¡A
ÁÂÁ±z^^

­ã´£³¡ªL

¦^´_ 16# ziv976688


Sub DATAÀÉ_AAAªí_¤½¦¡()
Dim AAA_Fx$(4), xR As Range, N%, xArea
AAA_Fx(1) = "=SMALL(IF(INDEX(A!$B$2:$S$51,,ROW($A1))="""",A!$A$2:$A$51),COLUMN(A$1))"
AAA_Fx(2) = "=SMALL(IF(INDEX(A!$V$2:$AM$51,,ROW($A1))="""",A!$A$2:$A$51),COLUMN(A$1))"
AAA_Fx(3) = "=SMALL(IF(INDEX(A!$AP$2:$BG$9,,ROW($A1))="""",A!$A$2:$A$9),COLUMN(A$1))"
AAA_Fx(4) = "=SMALL(IF(INDEX(A!$BJ$2:$CA$9,,ROW($A1))="""",A!$A$2:$A$9),COLUMN(A$1))"
For Each xR In Sheets("AAA").Range("B2,B52, B102, B152")
    N = N + 1
    xR.FormulaArray = AAA_Fx(N)
    xR.Copy xR(1, 2).Resize(1, 48)
    xR.Resize(1, 49).Copy xR(2, 1).Resize(17, 49)
    With xR.Resize(18, 49)
        .Value = .Value
        .Replace "#*", "", lookat:=xlWhole
    End With
Next
End Sub

ziv976688

¦^´_ 17# ­ã´£³¡ªL
ª©¥D¤j¤j   : ±z¦n !
ÁÂÁ±zªº­@¤ß«ü¾É~·P®¦(Áù°`)