求助：根据某一列的不同数据，将第一列相同的几行，归类生成为txt

寻梦的谷

该数据为气象数据，第一列是站点名称
根据站点名称，导出特定行生成txt文件（第2.3列，不包含第1列），txt文件名称为站点的名称

最好可以在代码中加入选择导出的行；
可以在代码中加入，可自定义txt文件的前几行（如前4行），而后从第五行开始录入上述气象信息

麻烦你们啦，谢谢谢谢~

寻梦的谷

求助~~~
(*^▽^*)

寻梦的谷

(╥╯^╰╥)

寻梦的谷

大概是这样的
如果不可以修改txt前几行的话，那我最后再手动改也可以了~

Yalishanda30

附件供参考

寻梦的谷

Yalishanda30 发表于 2019-3-15 15:33
附件供参考

谢谢你！！我先去试试哈~

Yalishanda30

寻梦的谷 发表于 2019-3-15 15:37
谢谢你！！我先去试试哈~

附件不是你要求的。。。需要修改，

一把小刀闯天下

'假设A列有序，，，

Option Explicit

Sub test()
  Dim arr, i
  arr = [a1].CurrentRegion.Offset(1)
  Open ThisWorkbook.Path & "\" & arr(1, 1) & ".txt" For Output As #1
  For i = 1 To UBound(arr, 1) - 1
    Print #1, arr(i, 2) & ";" & arr(i, 3)
    If arr(i, 1) <> arr(i + 1, 1) Then
      Close #1
      If Len(arr(i + 1, 1)) Then Open ThisWorkbook.Path & "\" & arr(i + 1, 1) & ".txt" For Output As #1
    End If
  Next
End Sub

寻梦的谷

Yalishanda30 发表于 2019-3-15 15:39
附件不是你要求的。。。需要修改，

谢谢，因为我是新人，限制了回帖，我等到现在才能回消息
我刚刚试了下，有如下尚未完成的部分：
1、不能按照第一列的名称生成不同的文件
2、选中4w多行的时候，会提示报错。

但是优点是，很好的实现了前四行的自定义，小白表示无压力，哈哈

可不可以再帮我改进一下呢？    谢谢谢谢~

寻梦的谷

一把小刀闯天下 发表于 2019-3-15 15:52
'假设A列有序，，，

Option Explicit

谢谢你，我刚刚测试了下代码，发现可以完美运行
已经完成了我的最低要求啦
如果方便的话，可以帮我再升级一下代码吗？
不方便也没关系，我再自己一个个更改也行
总之非常感谢你！！