宏將單個單元格導入整個文本文件

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