ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¸ê®Æ­åªR(VBA)¨D¸Ñ¨M

[µo°Ý] ¸ê®Æ­åªR(VBA)¨D¸Ñ¨M

¤j¤j§A­Ì¦n
§Ú¬O¨Ï¥Î¿ý»s»E¶°ªº¤è¦¡§Ë¤@­ÓÃö©ó¸ê®Æ­åªRªºµ{¦¡
¥D­n¬O·Q§âItem   Version Part number      Serial number     Description
                                             ¡ô         ¡ô              ¡ô                       ¡ô                           ¡ô
                                             A1         B1             C1                      D1                         E1

¤Á³Î¦¨¨C­Ó¸ê®Æ¹ïÀ³¨ì¨C­ÓÄæ¦ì¤¤
Á|Item   ¬°¨Ò ·Q­n§âItem   ¨ìVersion«e­±ªº³o­ÓV¤§«eªº¦r¦ê©ñ¨ìA1
Á|Version ¬°¨Ò ·Q­n§âVersion ¨ìPart number      «e­±ªº³o­ÓP¤§«eªº¦r¦ê©ñ¨ìB1
¥i¥H®M¥Î¨ì¦h­ÓEXCEL¤À­¶¤¤ ¥Ñ©óItem¨ìVersion¤§«eªºªÅ®æ¤£¤@©w¬Û¦P,¥i§_¦³µ{¦¡¬O§ì¨ú¨ìV¤§«eªº¦r¦ê©ñ¨ìA1¤¤
¥H¤U¬°¿ý»sµ{¦¡½X ¤£ª¾¬O§_¥¿½T ¬O§_¦³ÅçÃÒªº¤èªk ©Î¬O¦³¤j¤j¥i¥Hª½±µ¸Ñ¨M³o­Ó°ÝÃD
For a = 2 To Worksheets.Count
    Worksheets(a).Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(17, 1), Array(26, 1), Array(39, 1), Array(57, 1)) _
        , TrailingMinusNumbers:=True
    Worksheets(a).Columns("A:A").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=-60
Next

ªþ¥ó¤@

QQ.png

ªþ¥ó¤@

QQ.png

¤j¤j§A­Ì¦n
§Ú¬O¨Ï¥Î¿ý»s»E¶°ªº¤è¦¡§Ë¤@­ÓÃö©ó¸ê®Æ­åªRªºµ{¦¡
¥D­n¬O·Q§âItem   Version Part number     ...
s13983037 µoªí©ó 2014-11-23 00:22
  1. Sub nn()
  2.   Dim iI%, iJ%, iA%
  3.   Dim vA
  4.   
  5.   vA = Split([A1])
  6.   iA = UBound(vA)
  7.   iI = 0
  8.   Do While iI <= iA
  9.     If Trim(vA(iI)) = "" Then
  10.       For iJ = iI To iA - 1
  11.         vA(iJ) = vA(iJ + 1)
  12.       Next
  13.       iA = iA - 1
  14.       ReDim Preserve vA(iA)
  15.       iI = iI - 1
  16.     End If
  17.     iI = iI + 1
  18.   Loop
  19.   [A5].Resize(, UBound(vA)) = vA
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# luhpro


    ¤j¤j±z¦n §Ú·Q­n½Ð°Ý¤@¤U
©w¸q¥H¤U¨â­Ó¬O­n°µ¬Æ»òªºªü?? ¬Ý¤£¤ÓÀ´ ¥i¥H¸ÑÄÀ³o­Óµ{¦¡½X¦A¶]¬Æ»ò¶Ü §Ú¹ï©óVBA¬Oªì¾ÇªÌ ·PÁÂ
  vA = Split([A1])
  iA = UBound(vA)

TOP

¦^´_ 2# luhpro


    ¤j¤j±z¦n §Ú¥i¯à¨S¦³ªí¹F±o«Ü¦n ¨ä¹ê§Ú¬O·Q§Ë¦¨
¹ï¦P¤@­ÓÀx¦s®æ¶}­åªR ªþ»\¤W¥h¤]¨SÃö«Y

´y­z¤@

qq5.png
2014-11-23 14:32

TOP

¦^´_  luhpro
    ¤j¤j±z¦n §Ú·Q­n½Ð°Ý¤@¤U
©w¸q¥H¤U¨â­Ó¬O­n°µ¬Æ»òªºªü?? ¬Ý¤£¤ÓÀ´ ¥i¥H¸ÑÄÀ³o­Óµ{ ...
s13983037 µoªí©ó 2014-11-23 14:03

vA = Split([A1])
¹ïÀx¦s®æ [A1] ¸Ìªº¦r¦ê°µ¤Á³Î, ¥HªÅ®æ¬°¤Á³ÎÂI, ¤Á³Î¥X¨Óªº¤l¦r¦ê¨Ì§Ç©ñ¦b VA °}¦C¤º.

iA = UBound(vA)
Àx¦s°j°é³B²z®Éªº³Ì¤j­È(§Y¥Ø«e¤@ºû°}¦C VA ¤º¤¸¯Àªº­Ó¼Æ)
   
¦^´_  luhpro
    ¤j¤j±z¦n §Ú¥i¯à¨S¦³ªí¹F±o«Ü¦n ¨ä¹ê§Ú¬O·Q§Ë¦¨
¹ï¦P¤@­ÓÀx¦s®æ¶}­åªR ªþ»\¤W¥h¤] ...
s13983037 µoªí©ó 2014-11-23 14:33

¬Ý¤£À´.
§A¬O­n¥H ªÅ®æ °µ¬°¤À³Îªº¨Ì¾Ú?
­Y¬O, ¤W­zµ{¦¡´N¤w¹ê²{.

ÁÙ¬O©T©w¤å¦rªø«×°µ¬°¤À³Îªº¨Ì¾Ú?
¥i°Ñ·Ó©³¤U¨ç¼Æ©w¸q§ì¨ú§A­nªº¦r¦ê
A=Left(sStr, X) ' A¦r¦ê³]¬° sStr ¦r¦ê±q¥ªÃäºâ°_ X ­Ó¦r
A=Mid(sStr, B, C)   ' A¦r¦ê³]¬° sStr ¦r¦êªº²Ä B ­Ó¦r¶}©l¨ú C ­Ó¦r
A=Right(sStr, D) ' A¦r¦ê³]¬° sStr ¦r¦ê±q¥kÃäºâ°_ D ­Ó¦r

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD