EXCEL²M³æ¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼®æ¦¡
- ©«¤l
- 100
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-8-11
- ³Ì«áµn¿ý
- 2024-3-12
|
EXCEL²M³æ¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼®æ¦¡
§Ú¦³¤@¥÷EXCEL²M³æ(¦P¤@¦æ¦³µo²¼³æÀY¤Îµo²¼³æ¨,¦pªG³æ¨¦³2¦æ,¨ºÓ³æÀY´N·|«ÂÐ),½Ð°Ý¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼CSVªº®æ¦¡(³æÀY¤@¦æ,¤U¤@¦æ³æ¨,¤@Ó«~¦W¤@¦æ,¦A´«¤U¤@Ó³æÀY,¦A´«¤U¤@µ§³æ¨ )
½Ð¦U¦ì¤j¤jÀ°À°¦£,ÁÂÁÂ
¬¡¶Ã¯1.zip (22 Bytes)
|
|
|
|
|
|
|
- ©«¤l
- 100
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-8-11
- ³Ì«áµn¿ý
- 2024-3-12
|
|
|
|
|
|
|
- ©«¤l
- 100
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-8-11
- ³Ì«áµn¿ý
- 2024-3-12
|
|
|
|
|
|
|
- ©«¤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-12-4
|
ªí¨µ§¼Æ¤£©w, ¥Îvba§a!
¼W¥[¤@Ó¤u§@ªí2:
Sub ¸ü¤J()
Dim xR As Range, xH As Range, T$
[¤u§@ªí2!A1:L3000].ClearContents
Set xH = [¤u§@ªí2!A1]
Application.ScreenUpdating = False
For Each xR In Range([¤u§@ªí1!A1], [¤u§@ªí1!A65536].End(xlUp))
If xR <> "M" Then GoTo 101
If xR(1, 2) <> T Then
xR.Resize(1, 12).Copy xH
Set xH = xH(2): T = xR(1, 2)
End If
xR(1, 16).Resize(1, 6).Copy xH
Set xH = xH(2)
101: Next
End Sub
Xl0000322.rar (11.59 KB)
|
|
|
|
|
|
|
- ©«¤l
- 100
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-8-11
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ 4# ã´£³¡ªL
¥i¥H吔,ÁÂÁÂ, |
|
|
|
|
|
|
- ©«¤l
- 100
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-8-11
- ³Ì«áµn¿ý
- 2024-3-12
|
½Ð°Ý¦pªG§Ú·Q¨C¦¸°õ¦æVBA®É,¥L¥i¥H©T©w¥ý²£¥Í¤U¦C³o¦æ,À³¸Ón¦p¦ó¦æקïVBA?
H 12345678 ´ú¸ÕªÑ¥÷¦³¤½¥q ¥x¥_¥«¤¤¥¿°Ï 02-88888888 |
|
|
|
|
|
|
- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-10-30
|
¦^´_ 6# VANESSA
¤£¤Ó¯à¤F¸Ñ±zªº·N«ä¡A¥i¥H¤W¶Ç§¹¦¨«áªºÀɮ׶Ü? ÁÂÁ¡C |
|
|
|
|
|
|