VBA Âà txtÀÉ(¤£¦P¸ê®Æ©ó¤£¦PÄæ¦ì)
- ©«¤l
- 104
- ¥DÃD
- 32
- ºëµØ
- 0
- ¿n¤À
- 144
- ÂI¦W
- 0
- §@·~¨t²Î
- windowsXP
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-25
- ³Ì«áµn¿ý
- 2022-9-2
|
VBA Âà txtÀÉ(¤£¦P¸ê®Æ©ó¤£¦PÄæ¦ì)
¤j¤j¦n¡G
¦]¬°¥±`³£¥Î°O¨Æ¥»¿é¤J¡A°O¨Æ¥»¹ï©ónקï©Î¯S§O¼Ðµùªº¥\¯à«Ü®t¡A
·Qn§ï¥Îexcel¤è«K§@·~¡A¦ý¬O³Ì«áÁÙ¬O±on¿é¥X¦¨°O¨Æ¥»ÀÉ¡Aªþ¥ó¦³½d¨Ò
©Mexcel(±Ôz)¡AÁÂÁ¡C
(¥¼¨Ó¥i¯à·|¦A¥[¼WÄæ¦ì¡A½Ð¦bÅܼƪº¦a¤èµù¸Ñ¤@¤U¡A·PÁÂ)
transform.rar (13.43 KB)
|
|
|
|
|
|
|
- ©«¤l
- 104
- ¥DÃD
- 32
- ºëµØ
- 0
- ¿n¤À
- 144
- ÂI¦W
- 0
- §@·~¨t²Î
- windowsXP
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-25
- ³Ì«áµn¿ý
- 2022-9-2
|
¤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 |
|
|
|
|
|
|
- ©«¤l
- 104
- ¥DÃD
- 32
- ºëµØ
- 0
- ¿n¤À
- 144
- ÂI¦W
- 0
- §@·~¨t²Î
- windowsXP
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-25
- ³Ì«áµn¿ý
- 2022-9-2
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-4-16
- ³Ì«áµn¿ý
- 2013-12-30
|
¦^´_ 5# lifedidi
text to column? fixed width, 1 19 ... |
|
|
|
|
|
|