- ©«¤l
- 678
- ¥DÃD
- 147
- ºëµØ
- 0
- ¿n¤À
- 799
- ÂI¦W
- 0
- §@·~¨t²Î
- win 8
- ³nÅ骩¥»
- MS 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2022-1-20
|
¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-1-16 08:23 ½s¿è
¦^´_ 9# ã´£³¡ªL
´ú¸ÕÀÉ :
·s¼W¸ê®Æ§¨.rar (152.36 KB)
ª©¥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¬On·j´MÀx¦s®æ<>""©Î¨ä¥¦È®É¡A·|¼vÅT¨ì³Ì²×ªºµª®×¡A©Ò¥H³o2Ó½d³ò¥²¶·n½Õ¾ã¬°¹ê»Úªºpºâ¦C(8¦C))
~~~
~~~
½Ð°Ý :
¨ä¥¦¬ÛÃöªºµ{¦¡½Xn¦p¦ó¦A×¥¿?
·q½Ð±z½ç¥¿¡A
ÁÂÁ±z^^ |
|