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

VBA Âà txtÀÉ(¤£¦P¸ê®Æ©ó¤£¦PÄæ¦ì)

VBA Âà txtÀÉ(¤£¦P¸ê®Æ©ó¤£¦PÄæ¦ì)

¤j¤j¦n¡G
¦]¬°¥­±`³£¥Î°O¨Æ¥»¿é¤J¡A°O¨Æ¥»¹ï©ó­n­×§ï©Î¯S§O¼Ðµùªº¥\¯à«Ü®t¡A
·Q­n§ï¥Îexcel¤è«K§@·~¡A¦ý¬O³Ì«áÁÙ¬O±o­n¿é¥X¦¨°O¨Æ¥»ÀÉ¡Aªþ¥ó¦³½d¨Ò
©Mexcel(±Ô­z)¡AÁÂÁ¡C

(¥¼¨Ó¥i¯à·|¦A¥[¼WÄæ¦ì¡A½Ð¦bÅܼƪº¦a¤èµù¸Ñ¤@¤U¡A·PÁÂ)

transform.rar (13.43 KB)

¦^´_ 1# lifedidi
¸Õ¸Õ¬Ý
  1. Sub Àˬd¿ù»~()
  2.     With Sheets("Sheet1").Range("d:d")
  3.         .Replace "T", "t", xlPart
  4.         .Replace "x", "X", xlPart
  5.     End With
  6. End Sub
  7. Sub Âà´«¦¨°O¨Æ¥»()
  8.     Dim fs As Object, a As Object, i As Integer
  9.    Set fs = CreateObject("Scripting.FileSystemObject")
  10.     Set a = fs.CreateTextFile("D:\transform\123.tx", True)
  11.     With Sheets("Sheet1").Range("a1").CurrentRegion
  12.         For i = 1 To .Rows.Count     '²Ä¤@¦C¶}©lÂà¤J°O¨Æ¥»
  13.             a.WriteLine Join(Application.Transpose(Application.Transpose(.Rows(i).Value)), vbTab)
  14.         Next
  15.     End With
  16.     a.Close
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤j¤j§A¦n¡G
°²¦p§Ú¦bÀˬd¿ù»~³o¥[¤J
¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w
Sub Àˬd¿ù»~()
    With Sheets("Sheet1").Range("d:d")
        For i = 1 To 9999
        If .cell(3, i).Value = "PLATE" Then
            .Replace "T", "t", xlPart
            .Replace "x", "X", xlPart
        End If
        Next
    End With
End Sub
¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w
§Ú·Qªí¹F¬O ¦pªG«e¤èÄæ¦ì¦WºÙ¬°"PLATE"«h°õ¦æ¤j¤p¼gÂà´«
½Ð°Ý­þ¸Ì»Ý­n­×§ï©O¡H

¥i¥H¦¨¥\Âà´«¡IÁÂÁ¡I
¥i¬OÄæ¦ì¸¹½X¬O¿ùªº¡Aµ{¦¡·|§ì¤£¨ì¼Æ¾Ú¡C
EX¡G
23100-0030        1      PLATE   30tX2000X500                    SA-516-70                 20
³oµ§¸ê®Æ¤¤¶¡³£¬O¡i¥b¦æ¡jªºªÅ¥Õ¡A¤£¬O¡i¥þ¦æ¡jor¡iTab¡j
·PÁ¡I

TOP

¦^´_ 3# lifedidi
  1. Sub Àˬd¿ù»~()  '¥H¤]¥i¥H¦p¦¹
  2.     With Sheets("Sheet1").Range("c:c")
  3.         If Not .Find("PLATE", LookIn:=xlValues) Is Nothing Then
  4.             .Replace "PLATE", "=xxx", xlWhole         '´À´«¬°¤½¦¡:¿ù»~ªº¤½¦¡¦WºÙ
  5.             With .SpecialCells(xlCellTypeFormulas, xlErrors)
  6.                 With .Offset(, 1)
  7.                     .Replace "T", "t", xlPart
  8.                     .Replace "x", "X", xlPart
  9.                 End With
  10.                 .Value = "PLATE"                      '´_­ì¬°­ì¨Óªº¦r¦ê
  11.             End With
  12.         End If
  13.     End With
  14. End Sub
½Æ»s¥N½X
¥i¬OÄæ¦ì¸¹½X¬O¿ùªº¡Aµ{¦¡·|§ì¤£¨ì¼Æ¾Ú¡C

³o»¡©ú¬Ý¤£À´
  1. ¡iÂà´«°O¨Æ¥»¡j        
  2. ¶µ¥Ø          ¹ïÀ³°O¨Æ¥»Äæ¼Æ
  3. ½s¸¹        1
  4. MARK        19
  5. Ãþ§O        26
  6. ³W®æ        34
  7. §÷½è#1        65
  8. §÷½è#2        78
  9. ¼Æ¶q        93   ¡ö³o¤ñ¸û¯S§O »Ý­n±q«á­±©¹«e EX: ¼Æ¶q54­Ó «h 5¦b92Äæ 4¦b93Äæ Ãþ±À
  10. REMARK        94
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ lifedidi ©ó 2013-4-19 22:47 ½s¿è

¤j¤j§A¦n¡G
ÁÂÁ§AªºÀ°¦£¡AÀˬd¿ù»~OK¤F¡C

¹ï©ó¥t¤@­Ó°ÝÃD¡A½Ð¬Ý¤U¹Ï


¹Ï¤¤¥´¿ù¦r@@¡A¡i¥H²Ä¤@¦æ¦C¨Ó»¡¡j

TOP

¦^´_ 5# lifedidi

text to column? fixed width, 1 19 ...

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD