µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¦³Ãösheet1©î¶}¤Î½Æ»s¸ê®Æ¦Üsheet2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
¦³Ãösheet1©î¶}¤Î½Æ»s¸ê®Æ¦Üsheet2
Hsieh
µoµu®ø®§
¥[¬°¦n¤Í
Hsieh
·í«eÂ÷½u
UID
3
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ª÷¿ú
4916
ÂI¦W
140
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
¦b½u®É¶¡
4142 ¤p®É
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2025-6-10
¶W¯Åª©¥D
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ÂI¦W
140
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2025-6-10
1
#
¸õÂà¨ì
»
µoªí©ó 2010-5-24 22:43
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
1#
pesi2884
Sub Ex()
Dim Ay(16), Ary()
With Sheet1
For Each a In .Range(.[A2], .[A65536].End(xlUp))
Ar = Split(a, "¡B")
For i = 0 To UBound(Ar)
Ay(0) = Ar(i)
For j = 1 To 11
Ay(j) = a.Offset(, j).Value
If i > 0 And Ay(j) = 1 Then Ay(j) = "-"
Next
x = 0
For k = 0 To UBound(Ar)
If k <> i Then Ay(12 + x) = Ar(k): x = x + 1
Next
ReDim Preserve Ary(s)
Ary(s) = Ay
s = s + 1
Erase Ay
Next
Next
End With
Sheet2.[A2:P65536] = ""
Sheet2.[A2].Resize(s, 16) = Application.Transpose(Application.Transpose(Ary))
End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý
TOP
Hsieh
µoµu®ø®§
¥[¬°¦n¤Í
Hsieh
·í«eÂ÷½u
UID
3
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ª÷¿ú
4916
ÂI¦W
140
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
¦b½u®É¶¡
4142 ¤p®É
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2025-6-10
¶W¯Åª©¥D
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ÂI¦W
140
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2025-6-10
2
#
µoªí©ó 2010-6-19 16:52
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
4#
sping
µu¤£¤@©w´N¬O¦n
¯à°÷§¹¦¨»Ý¨Dªºµª®×³£¬O¦nµª®×
¤À¬q°õ¦æ¦³¤À¬q°õ¦æªº¦n³B
®e©ö°£¿ù¤Î×¥¿µ{¦¡
µ{¦¡µu¥i¯à¥Î¨ìªº¨ç¼Æ¦h°õ¦æ®Ä²v¤£¤@©w¤ñ¸û¦n
¦Ó¥B¦pªG¨S¦³§¹¥þ¤F¸Ñµ{¦¡ªº·N«ä
¥H«án×§ï¥i¯à·|³y¦¨«Ü¤jªº§xÃø
©Ò¥H¤£¥²¸r¼}µ{¦¡Â²µu
¾Ç²ß¨ì¤º®e§t·N¤~¬O«nªº
¾Ç®üµL²P_¤£®¢¤U°Ý
TOP
ÀR«ä¦Û¦b :
ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
Excel£¸¯ë°Ï
EXCEL±MÄݰQ½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·