复杂的VBA条件调用文本文件，跪求高手！！！！！！

luluzr

这是经过整理的文本文件，红色框表示下面会有几行，蓝色框表示除第一列外，后面还会有几个数据，如58102行红色框显示是6，所以下面会有从12-72，6行数据，蓝色框是21，后面就会有21个数据，而58116行蓝色框是22，表示这一部分会有22个数据。
再次申明，上面的文本文档是经过整理的，实际的应该是如下图。所以还需要判定从12开始每隔12个数另起一新行。最终需要如图3的EXCE表，跪求大神提供代码！！！！！！附件是两个文本文档，需要转换的是2.txt文档。


VBA按复杂条件调用文本文件.zip (9.14 KB, 下载次数: 8)

2016-12-9 10:50 上传

点击文件名下载附件

上清宫主

是把2.txt整理成1.txt的样子吗？还是其他什么意思？
如果是前者，不难。如果是后者，写清楚求吧

luluzr

上清宫主 发表于 2016-12-9 15:17
是把2.txt整理成1.txt的样子吗？还是其他什么意思？
如果是前者，不难。如果是后者，写清楚求吧

要求是把2.txt整理成EXCEL表的样子，因为要对数据做一些说明，所以先整成了1.txt的样子。

上清宫主

试试
Sub test()
Cells.Clear
Open ThisWorkbook.Path & "/2.txt" For Input As #1
k1% = 1: k2% = 6: k3% = 1
r% = 1: c% = 0
Do While Not EOF(1)
   Line Input #1, sl$
   sl = Replace(Trim(sl), Chr(10), "")
   If Len(sl) Then
   For Each tmp In Split(sl, " ")
       If Len(tmp) Then
          n1 = n1% + 1
          If k1 = 1 Then
             If n1 <= 6 Then
                c = c + 1
             Else
                k2 = Cells(r, c) + 1
                k3 = Cells(r, c - 1)
                r = r + 1
                c = 2
                k1 = 0
                n1 = 1
             End If
          Else
             If n1 <= k2 Then
                c = c + 1
             Else
                k3 = k3 - 1
                r = r + 1
                n1 = 1
                If k3 Then
                   c = 2
                Else
                   c = 1
                   k1 = 1
                End If
             End If
          End If
        Cells(r, c) = tmp
       End If
   Next
   End If
Loop
Close #1
End Sub