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

[µo°Ý] ½Ð°ÝEXCEL¥t¦sTXT¥i¥H«ü©wªÅ¥Õ¼Æ¶q?

[µo°Ý] ½Ð°ÝEXCEL¥t¦sTXT¥i¥H«ü©wªÅ¥Õ¼Æ¶q?

¦U¦ì«e½ú¦n¡A½Ð°Ý¤@¤U¦]¬°¤½¥q­n°µÂà±b¸ê®Æ¡A»Ý­n¤j¶q«Ø¥ß¤H­û±b¤á¸ê®Æ¡A
¦ý¬O¦]¬°»È¦æ­n¶×¤JªºÀɮ׬OTXTÀÉ¡A§Úªº¸ê®Æ¬OEXCELÀÉ¡A©Ò¥H¦b³o½Ð±Ð«e½ú¡A³Â·Ð«ü±Ð¡C
Àɮצp¤U¡R
11104.rar (4.86 KB)

»È¦æ»¡©ú¡R
§ë¼v¤ù1.JPG
2022-3-22 13:42

§ë¼v¤ù11.jpg
2022-3-22 13:43
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

¦^´_ 1# kkooo15

¤£¦n·N«ä¡A¬Ý¤£À´±zªº»Ý¨D¡A¥i§_¦A´£¨Ñ»¡©ú¦³¸Ô²Ó½d¨Ò(¸Ñµª»Ý¨D)¡AÁÂÁÂ

TOP

¦^´_ 2# samwang
§ë¼v¤ù1.JPG
2022-3-23 11:34


´N¬O»È¦æ­nTXTÀÉ.
§Ú­n±NEXCELÀÉ®×¥t¦sTXTÀÉ.
¤å¦r®æ¦¡­n¨Ì»È¦æ»Ý¨D
²Ä¤@¬q¤å¦r»Ý­n12­Ó¦r¡A¹ê»Ú¤å¦r¨S¦³12­Ó¡A´N¥ÎªÅ¥Õ¸É¨ì12­Ó
¨Ò¡R
²Ä¤@¦æ1234567<«á­±´N¬O­n¥[5­ÓªÅ¥Õ
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

¦^´_ 3# kkooo15

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, a, FN, T$, T1$, R&, C&, s&
FN = "D:\test.txt"
Open FN For Output As #1
Arr = Sheets(1).[a1].CurrentRegion
For R = 1 To UBound(Arr)
    If R = 1 Then a = Array(12, 80, 8, 7, 16, 18, 3) Else a = Array(80, 7, 40, 16, 18, 12, 40, 5, 20, 8, 18, 40)
    For C = 2 To UBound(Arr, 2)
        T = Arr(R, C - 1): T1 = Arr(R, C): If T = "" Then GoTo 99
        Ept = a(s) - Len(T)
        If Ept > 0 Then For j = 1 To Ept: Arr(R, 1) = Arr(R, 1) & " ": Next
        Arr(R, 1) = Arr(R, 1) & T1
        s = s + 1
99: Next C
    s = 0: Print #1, Arr(R, 1)
Next R
Close #1
End Sub

test.zip (221 Bytes)

TOP

¦^´_ 4# samwang

¤Ó·PÁ¤F¡A­ì¨Ó¥i¥H³o¼Ë¼g¡C
·PÁ«e½úªºµL¨p©^Äm¡AÅý§Ú¤W¤F¤@½Ò¡C
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD