エクセルVBAについて質問です。次のページにあるようなマクロを作ってください。

以下のマクロを標準モジュールにコピペでできると思います。

ただ、連続的に行うとTXTの内容に挿入されていくので一度作ったファイルは移動するか名前を変更しないとおかしなことになります。

Option Explicit '配列宣言

Dim Y 'セルY軸座標

Dim Text1, Text2, Text3 '合成する文字列

Dim Tmp 'メモ帳起動用

Sub TEST()

'セルの座標

Y = 2

'計算の都度、メモ帳をアクティブにして書き出すのは時間がかかるため

'はてな.txtに書き出し、後で変換する

'ファイル「はてな.txt」を書き込みできる状態に

Open "D:\はてな.txt" For Append Access Read Write As #1

Do '1列目のデータがなくなるまでループ

'書き出す文字列作成

'1列目

Text1 = Cells(1, 1).Text & Cells(Y, 1).Text

'2列目

Text2 = Cells(1, 2).Text & Cells(Y, 2).Text

'5列目

Text3 = Cells(1, 5).Text & Cells(Y, 5).Text

'?列に変更するときは"Cells(1, X)"のXを任意の列番号に代えてください(2つとも)

'ファイル「はてな.txt」に書込み

Print #1, "XXX"

Print #1, "YYY"

Print #1, Text1

Print #1, Text2

Print #1, Text3

Print #1, "ZZZ"

Print #1, "========"

Print #1,

Print #1, "--------"

'処理を次の行へ

Y = Y + 1

Loop Until Cells(X, Y) = ""

'ファイル「はてな.txt」を書込みできる状態から開放

Close #1

'メモ帳を開いて「はてな.txt」を読み込む

'メモ帳をアクティブ

Tmp = Shell("notepad.exe", 1)

'「はてな.txt」を読込み

SendKeys "%FO", True

SendKeys "D:\はてな.txt", True

SendKeys "{ENTER}", True

'名前を代えて保存で名前・文字コード変更

SendKeys "%FA", True '%：「Alt」キー相当 ファイル-名前を付けて保存

SendKeys "%E", True '文字コード選択

SendKeys "{DOWN}{DOWN}{DOWN}", True 'UTF-8を選択 {DOWN}：「↓」キー

'文字コードは選択式ですので{DOWN}の回数でUTF-8にあわせてください。

'当方の文字コードは

'ANSI

'Unicode

'Unicode Big endian

'UTF-8

'となっているため標準「ANSI」から{DOWN}3回となってます

SendKeys "%S", True '保存

SendKeys "Y", True '上書き確認

SendKeys "%FX", True 'メモ帳終了

End Sub

参考

※Sendkeyについて過去にはてなであった質問

http://q.hatena.ne.jp/1159092555