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

[µo°Ý] EXCELÀɮפºªºÀx¦s®æ¤º®e¦p¦ó¼gVBA¶×¥X¦¨TXTÀɮ׮榡?

[µo°Ý] EXCELÀɮפºªºÀx¦s®æ¤º®e¦p¦ó¼gVBA¶×¥X¦¨TXTÀɮ׮榡?

¤p§Ì¦³¤@¥÷EXCELªí®æ­nÂনTXT®æ¦¡ ,¦ý¬O«ç»ò§Ë´N¬OµLªk»PTXT®æ¦¡¹ï»ô
½Ð¨D¦U¦ì¤j¤j¦³¬Æ»ò¤èªk. ÁÂÁÂ
Âà´«¦¨TXT®æ¦¡¨Ã¹ï»ô.rar (13.05 KB)
¤pªZ

¥u¦³ÀÉ®×, ¨S¦³»¡©ú³W«hÅÞ¿è,
À³¸Ó¨S¦³¯à¸Ñ~~

TOP




¤pªZ

TOP

¤£¬OTXT???
«ç¤S¬OCSV???

TOP

¦^´_ 4# ­ã´£³¡ªL

´N¬OCSVªº¤º®e Âন¸òTXT¤@¼Ëªº¹ï»ô¤è¦¡
¤pªZ

TOP

¤å¦rÀÉ/excelÀÉ/»P¹Ï¤ù¤¤ªºcsv
¤º®e³£¤£¬Û¦P, Ãø¥HÁp·Q¤@°_~~
¿ì¤£¤F~~

TOP

»¡¤£²M·¡, ¥u¯à²q¤@¤U:
Xl0000423.rar (16.38 KB)

TOP

¥»©«³Ì«á¥Ñ show5217 ©ó 2019-7-23 10:20 ½s¿è

¦^´_ 7# ­ã´£³¡ªL


ÁÂÁÂ, «ü±Ð¤F. §Ú¬O¥Î¤U­±³oºØ¤èªk
new_id = s_id
        n = n + 1
        Sheet1.Cells(n, "n") = s_id
        txt_str = txt_str & Space(7 - Len(s_id)) & s_id
        
        If Sheet1.Cells(i, "f") <> "" Then
            Sheet1.Cells(n, "o") = Sheet1.Cells(i, "f")
            txt_str = txt_str & Space(1) & Sheet1.Cells(n, "o") & Space(21 - Len(Sheet1.Cells(n, "o")))
            j = j + 1
            txt_str = txt_str & Space(22)
            If Sheet1.Cells(i, "e") = "" Then
                Sheet1.Cells(n, "q") = "-"
            Else
                Sheet1.Cells(n, "q") = Sheet1.Cells(i, "e")
            End If
            txt_str = txt_str & Sheet1.Cells(n, "q") & Space(2)
            Set Rng = Sheet2.Range("a:a").Find(Sheet1.Cells(i, "g"), lookat:=xlWhole)
            If Not Rng Is Nothing Then
                r = Rng.Row
                supply = Sheet2.Cells(r, "b")
            Else
                supply = Sheet1.Cells(i, "g")
            End If
            Sheet1.Cells(n, "r") = supply
            txt_str = txt_str & supply & Space(40 - Len(supply))
            Sheet1.Cells(n, "s") = Sheet1.Cells(i, "h")
            txt_str = txt_str & Sheet1.Cells(n, "s") & Space(5 - Len(Sheet1.Cells(n, "s")))
        End If
        txt_str = txt_str & vbCrLf
¤pªZ

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD