如何把导入的横行文本变竖行

小女孩

工作文件夹.zip (13.59 KB, 下载次数: 19)

2024-1-18 16:47 上传

点击文件名下载附件

把对应的文本导入，并且横变竖向，谢谢高手帮忙！！

LIUZHU

这个文本文件太长了，读不出来啊

LIUZHU

这些txt文件好像有点难问题，我把最后回车了一下，就能读出来了，否则读不出来

LIUZHU

JSA代码

LIUZHU

附件在此，WPS测试

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, cr, i&, j&, r&, dic As Object, n As Byte
    Dim strFileName$, strPath$, strFName$, iRowSize&, iPosCol&
   
    Application.ScreenUpdating = True
    Set dic = CreateObject("Scripting.Dictionary")
    With [A1].CurrentRegion
        .Offset(1).Clear
        ar = .Resize(10 ^ 4)
        For j = 1 To UBound(ar, 2)
            dic(ar(1, j)) = j
        Next j
        r = 1
    End With
   
    strPath = ThisWorkbook.Path & "\数据源\"
    strFileName = Dir(strPath & "*.txt")
    Do Until strFileName = ""
        strFName = Left(strFileName, InStrRev(strFileName, ".") - 1)
        If dic.exists(strFName) Then
            n = FreeFile: iPosCol = dic(strFName): r = 1
            Open strPath & strFileName For Input As #n
                cr = Split(Replace(StrConv(InputB(LOF(n), #n), vbUnicode), vbCrLf, ""), " ")
            Close #n
            For j = 0 To UBound(cr)
                r = r + 1
                ar(r, iPosCol) = cr(j)
            Next j
            If r > iRowSize Then iRowSize = r
        End If
        strFileName = Dir
    Loop
   
    [A1].Resize(r, UBound(ar, 2)) = ar
    Application.ScreenUpdating = True
    Beep

gwjkkkkk

请参考。。。

小女孩

gwjkkkkk 发表于 2024-1-18 18:41
请参考。。。

导入后都变数字了，不是三位，彩票是三位数，我设置成文本也不行，能帮我看看么？多谢老师！

gwjkkkkk

小女孩 发表于 2024-1-18 19:16
导入后都变数字了，不是三位，彩票是三位数，我设置成文本也不行，能帮我看看么？多谢老师！

请参考附件。。。

小女孩

gwjkkkkk 发表于 2024-1-21 21:45
请参考附件。。。

太感谢了，要不然我用公式好几步，还把表弄很大！