µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excel£¸¯ë°Ï
» ¦p¦ó±N¨C¦C30¦æªº³æ¤¸®æ¶¶§Ç±Æ¦C?
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¦p¦ó±N¨C¦C30¦æªº³æ¤¸®æ¶¶§Ç±Æ¦C?
FAlonso
µoµu®ø®§
¥[¬°¦n¤Í
FAlonso
·í«eÂ÷½u
UID
2608
©«¤l
135
¥DÃD
19
ºëµØ
0
¿n¤À
165
ª÷¿ú
165
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»´ä
¦b½u®É¶¡
67 ¤p®É
µù¥U®É¶¡
2010-12-9
³Ì«áµn¿ý
2012-8-27
¤¤¾Ç¥Í
©«¤l
135
¥DÃD
19
ºëµØ
0
¿n¤À
165
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»´ä
µù¥U®É¶¡
2010-12-9
³Ì«áµn¿ý
2012-8-27
1
#
¸õÂà¨ì
»
µoªí©ó 2011-3-27 13:46
|
Åã¥Ü¥þ³¡©«¤l
Sub test()
Dim i As Integer, j As Integer, k As Integer, ar(), dic As Object
[j1:k65536] = ""
For i = 1 To [IV1].End(xlToLeft).Column Step 2
For j = 1 To [a65536].End(xlUp).Row Step 30
ar = Range(Cells(j, i), Cells(j + 29, i + 1))
For k = 1 To UBound(ar)
If Not ar(k, 1) Like "*³¡" Then
ar(k, 1) = Left(ar(k, 1), 1)
End If
Next
If [j65536].End(xlUp).Address = "$J$1" Then
[j65536].End(xlUp).Resize(UBound(ar), 2) = Application.Transpose(Application.Transpose(ar))
Else
[j65536].End(xlUp).Offset(1).Resize(UBound(ar), 2) = Application.Transpose(Application.Transpose(ar))
Erase ar
End If
Next
Next
End Sub
½Æ»s¥N½X
¸Õ¸Õ³oÓ
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
TOP
ÀR«ä¦Û¦b :
®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
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¯»µ·