宏将单个单元格导入整个文本文件

Question

我需要创建一个Excel宏，将每个单个字符从一个txt文件导入列中的一个单元格。例如。如果文本是“测试”，则在电子表格中，“t”将转到A1，“e”转换为A2等等。谢谢！

Answer 1

尝试这种适应您的需求：

Sub Macro1() 
    Dim s As String, i As Long, j As Long 
    Open "C:\TestFolder\Inputs.txt" For Input As #1 Len = 1 
    i = 1 
    j = 1 

    Do Until EOF(1) 
     s = Input(1, #1) 
     Cells(i, j) = s 
     i = i + 1 
     If i > Rows.Count Then 
      i = 1 
      j = j + 1 
     End If 
    Loop 
    Close #1 
End Sub