文本数据导入Excel似乎是个老生常谈，方法也有很多，例如
- 使用文本编辑器打开文本文件，拷贝粘贴到Excel然后分类
- Power Query中的【从文本/CSV】如下图所示。
但是这个需求略有不同，文本数据为单列，每7行数据为一组，如下图所示。
现在需要将数据导入工作表中B3单元格开始的区域中，并在A列添加序号，如下图所示。
示例代码如下。
Sub ImportTransposedCSV()
Dim strLines as String, strTxtFile as String
Dim intIdx as Intger, intCol as Integer, intRow as Integer
strTxtFile = ThisWorkbook.Path & "\data.csv"
strLines = CreateObject("Scripting.FileSystemObject").OpenTextFile(strTxtFile).ReadAll
arrData = Split(strLines, vbCrLf)
Range("A3:H" & Rows.Count).ClearContents
intRow = 3
For intIdx = 3 To UBound(arrData) Step 7
For intCol = 0 To 6
Cells(intRow, intCol + 2) = "'" & arrData(intIdx + intCol - 3)
Next intCol
Cells(intRow, 1) = "'" & (intRow - 2)
intRow = intRow + 1
Next intIdx
End Sub
【代码解析】
第4行代码创建文本文件的全路径。
第5行代码调用FSO读取文本文件中的全部数据行。
第6行代码调用Split函数将数据按照换行符拆分为数组。
第7行代码清空保存数据的工作表区域。
第9~15行代码循环处理每行数据。
第10~12行代码循环写入工作波每行的7个单元格。
第11行代码写入数据时，在数据之前添加```，确保数字可以正确显示，而不会被显示科学计数法。
第13行代码在A列填充序号。
