«½Æ©Êªº¾ã²z~½Ð¦U¦ì°ª¤âÀ°À°¦£!!·PÁÂ!!
- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- WindosXP
- ³nÅ骩¥»
- xp3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-18
- ³Ì«áµn¿ý
- 2015-9-9
|
«½Æ©Êªº¾ã²z~½Ð¦U¦ì°ª¤âÀ°À°¦£!!·PÁÂ!!
¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-9-9 05:21 ½s¿è
ÀÉ®×.rar (5.73 KB)
½Ð°Ý¦U¦ì°ª¤â¡A
n¦p¦ó³]©w¤~¯à§â Àɮ׸̪º¤u§@ªí1(쥻¸ê®Æ)Åܦ¨¤u§@ªí2(¾ã²z«áªº¸ê®Æ)
¦]¬°¸ê®Æ«Ü¦h¡A·Qn¾ã²z¡A¦ý¥Ø«e¥u¥Î½Æ»s¶K¤W¡A
¥[¤W¤£¤Ó·|¸ÑÄÀ¡A©Ò¥Hª½±µªþ¤WÀɮסA½Ð¦U¦ì°ª¤âÀ°¦£!!
·PÁ¦U¦ì¤j¤j!!! |
|
|
|
|
|
|
- ©«¤l
- 2836
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2892
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-30
|
¶Ç²Î¤èªk¡A³t«×¤£§Ö¡A¦ý®e©öÀ´¡G- Sub TEST()
- Dim xR As Range, xRow As Range, xA As Range, M%, N&
- [¾ã²z«á¸ê®Æ!3:60000].ClearContents
- Application.ScreenUpdating = False
- ¡@
- For Each xR In Sheets("쥻¸ê®Æ").UsedRange.Columns(1).Cells
- ¡@'¢ÏÄ榳¡e¢°¢±¦ì¼Æ¡f½s¸¹®É
- ¡@If xR Like String(12, "#") Then
- ¡@¡@Set xRow = xR.Resize(1, 12)¡@ '©w¦ì¨Cµ§º¦C¸ê®Æ
- ¡@¡@Set xA = [¾ã²z«á¸ê®Æ!A65536].End(xlUp)(2) ¡@ '¨ú±o¹wp¶ñ¤J¦ì¸m
- ¡@¡@If xA.Row > 3 Then Set xA = xA(2) ¡@ '²Ä¢±µ§¥H«á¡AªÅ¤@¦æ
- ¡@¡@M = 1: N = 0: GoTo 101¡@ '¼Ð°O¡Aª½±µ¸õ¦Ü¤U¤@¦C
- ¡@End If
- ¡@
- ¡@'¶ñ¤J¥k¤è¸ê®Æ
- ¡@If M = 1 Then N = N + 1: xA(N, 13).Resize(1, 11) = xR(1, 2).Resize(1, 11).Value
- ¡@
- ¡@'¶ñ¤J¥ª¤è¸ê®Æ
- ¡@If (xR(2) <> "" Or xR(2, 2) = "") And N > 0 Then xA.Resize(N, 12) = xRow.Value: M = 0: N = 0
- 101: Next
- End Sub
½Æ»s¥N½X °Ñ¦Òªþ¥ó¡G
ÀÉ®×v01.rar (13.39 KB)
¡@ |
|
|
|
|
|
|
- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- WindosXP
- ³nÅ骩¥»
- xp3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-18
- ³Ì«áµn¿ý
- 2015-9-9
|
¦^´_ 2# ã´£³¡ªL
·PÁª©¥D¤j¤jªº¦^ÂÐ
¦ý¬O§Ú¥Ø«e¿n¤À¤£°÷¡AµLªk¤U¸ü§A¤W¶ÇªºÀɮסA
ÁÙ¬Oª©¥D¤j¤j¯à±H¨ì¥»¤Hªº«H½c¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 2836
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2892
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-30
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2015-9-9 22:19 ½s¿è
¦^´_ 3# hamj3113
Åv©y´£¨Ñ¥t¤@¤U¸ü§}¡]³o¤w»Pª©³W¤£²Å¡A¤U¦¸¥i¤£¦æ¡^¡G
http://www.funp.net/183625
¶i¨Ó½×¾Â¤@¦~¦h¡A©|¥BµLªk¤U¸üªþÀÉ¡I^^
«Øij¦h¥[ÂI¤O¡Aexcel¦b¾³õ¤]¬O¼sªxÀ³¥Î¡A±o¦n¦n§Q¥Î¦¹½×¾Â¡]¦h°Ñ»P°Q½×©Îµo°ÝÃD¬Ò¥i¡^¡A´£¤É¹ê¤O¡I
¦h¬Ý¬Ý¨ä¥¦©«¤l¤]¤£¿ù¡A¥i¼W¥[excelª¾ÃÑ¡A¤d¸U¤£n¦³°ÝÃD¤~¨Óµo°Ý¡A¦³¸Ñµª´N¶]¡A
¥»½×¾Â¬O¥xÆWµ}¦³ªºexcel±Mªù¥æ¬y¯¸¡A»Ýn¤j®aªº¤ä«ù¡]§Ṳ́]¬O³o¼Ë¾Ç¨Óªº¡^¡I |
|
|
|
|
|
|
- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- WindosXP
- ³nÅ骩¥»
- xp3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-18
- ³Ì«áµn¿ý
- 2015-9-9
|
¦^´_ 4# ã´£³¡ªL
·PÁª©¥D¤j¤j!
¤p¤k¤l¬ã¨s¤@¤U!! |
|
|
|
|
|
|