[ページレイアウト]⇒[シートのオプション]

質問

添付図の…
上段はワークシート画面で此の状態から、印刷させる事も、テキストファイル化する事も出来ることは承知して居ます。。
下段左は馴染の[印刷プレビュー]画面で、
下段右は[ページレイアウト]⇒[シートのオプション]⇒[見出し]で“印刷”にチェックを入れての[印刷プレビュー]画面です。
下段右の場合は、印刷させた際の姿でもある訳で、此れをテキストファイル化する方法(あるいはアプリ)は無いものでしょうか？
行列番号を囲んだ枠は無くても構いません(むしろ無い方が良い)

行列番号入りのテキスト化の目的は、此処“Excelの部屋”への添付図の代わりに、本文中にコピー＆ペーストするため、です。

回答No.2

kkkkkm

別シートに列をAから順にと行を1から順に記載しておいてそこにコピペしたらと思ったのですが、添付画像を見ると途中の列と途中の行からのデータが必要っぽいので

マクロでよければ

以下は選択された部分のデータをSheet2に列番号のアルファベットと行番号を付加して転記します。添付画像はSheet1のC3:E5を選択した状態で実行した結果です。

Sub Test()
Dim i As Long

With Sheets("Sheet2")
.Range("B2").Resize(Selection.Rows.Count, Selection.Columns.Count).Value = Selection.Value
For i = 2 To Selection.Columns.Count + 1
.Cells(1, i).Value = Split(Selection.Offset(0, i - 2).Address, "$")(1)
Next
For i = 2 To Selection.Rows.Count + 1
.Cells(i, "A").Value = Selection.Row + i - 2
Next
End With
End Sub

お礼

投稿したときに失念していました、私がマクロ音痴であることの断り書きを。
何れにしても、コメントありがとうございました。

回答No.1

imogasi

問題を難しくして、質問してるな。
PrintScreen－－＞ペイントー＞範囲切り取り　でできないのかな。
ーー
質問者も、エクセル関数がお好きな人ではないかな？それで、
小生には、初めて考える問題だが
A1を左上頂点にする望みの範囲を、マウスでつかみ、右下方向に１行・１列（範囲全体を）ずらす。
A列と第行が空白になる。
A2に１を入れて右下の＋ハンドルを、下方向に引っ張る。
第１列に数字連番が入る。
列記号（正しくは列番号と言うらしい）の方は、
B2に　=SUBSTITUTE(ADDRESS(1,COLUMN(A$1),4),"1","")
と入れて右方向に式を複写。
アドレス番地の記号をADDRESS関数で出し（A1のように）、１を削除している。
結果
A B C D
1 a1 a1 a1
2 a2 a2 a2 a2
3 a3 a3 a3 a3
4 a4 a4 a4 a4
5 a5 a5 a5 a5
6 a6 a6 a6 a6
7 a7 a7 a7 a7

お礼

速攻回答、多謝。

補足

投稿したときに失念していました、私がマクロ音痴であることの断り書きを。
何れにしても、コメントありがとうございました。