数字

ツイッターで何かいい方法は無いかという話題があったため

これをVisual Basic Editorに書いて、
メニューの ツール - マクロ で sp を実行すると
ワークシートの右までいっぱいに1桁づつ数字をつめていきます。

K:\Documents and Settings\Administrator\デスクトップ\test.txt
がテキストファイルです。
格納先のファイルに変更します。

text読み込み.xls

がexcelのファイル名です

---

Sub sp()
Application.ScreenUpdating = False
Open "K:\Documents and Settings\Administrator\デスクトップ\test.txt" For Input As #1
For i = 1 To 65536
For j = 1 To 256
s$ = Input(1, #1)
Workbooks("text読み込み.xls").Sheets("Sheet1").Cells(i, j) = s$
If EOF(1) = True Then Exit For
Next
If EOF(1) = True Then Exit For
Next
Close #1
Application.ScreenUpdating = True
End Sub

---