提供写入的数据少于指定的数据_Excel VBA 7.33 TXT数据如何按指定行数写入？继续扩展Excel功能...

前景提要(文末提供源码下载)

之前我们分享了如何通过VBA来讲TXT文件的数据导入Excel的方法，增加Excel的功能，也给我们在处理多样化的数据源的过程中，提供了很大的方便，不过我们也看到了，在之前写入数据的过程中，一次只能写入TXT的一行数据，如果我们恰好是希望将多行txt数据写入到Excel的一行呢？

场景简介

假设我们当前有这样一份数据

网络导出的数据中，经常会碰到这样的数据，我们理想中的一行数据因为代码转行或者是分隔符等原因，爬取的数据被分割在了txt的每一行，假设我们正好要汇总的数据有四行，那么我们如何将这几行数据汇总在一行呢？

代码区

本案例中，我们需要实现的是这样的效果。

即每次循环4行，那么在代码中要如何实现呢？

Sub test()With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then pathn = .SelectedItems(1) End IfEnd Withk = 0i = Cells(Rows.Count, 1).End(xlUp).Rownum = InputBox("请输入行数