Excel データ切り出しマクロについて

質問

Excelのマクロについてお聞きしたいと思います．

たくさんあるテキストファイルの一部を切り取って貼り付けたい場合は
どうしたらいいのでしょういか？

マクロではない流れとしては

テキストファイルを開く
↓
全選択してコピー
↓
Excelに貼り付ける
↓
必要な部分だけ切り取る
↓
貼り付け

データの例としては

A 12.3 78.5
B 13.5 65.5
C 23.5 65.8

とあるとしたら一番右側の列のデータのみ(78.5，65.5，65.8)

だけ必要とします（切り取りたい部分）

どのようなマクロを組んだらいいのでしょうか？

よろしくお願いいたします．．

マクロ実行時にファイルを選択できる機能もつけていただけたら
嬉しいです．

できましたら全コードを載せていただけたら幸いです．

回答No.2

n-jun

＃１です。

例えばマクロの自動記録で、

Workbooks.OpenText Filename:="D:\aaa.txt" '～続きは省略

とあったらその前後に

Dim vntFileName As Variant

'ファイルを開くダイアログを開きます
vntFileName = _
Application.GetOpenFilename( _
FileFilter:="テキストファイル(*.txt),*.txt" _
, FilterIndex:=1 _
, Title:="開けゴマ" _
, MultiSelect:=False _
)
If vntFileName <> False Then
Workbooks.OpenText Filename:=vntFileName ',～マクロの自動記録のコード
End If

としてみる。

回答No.1

n-jun

Excel でテキストファイルを読み込む（1/2） ～区切り文字入りデータ～
http://hp.vector.co.jp/authors/VA014071/tips/txtwiz_1.html

のようにしてテキストファイルを読み込み、必要のない列を削除する動作を
マクロの自動記録でコードを作成してみる。

ファイル選択ダイアログを使う
http://www.happy2-island.com/excelsmile/smile03/capter00803.shtml
などで読み込むファイルの選択をしてみる。

補足

ありがとうございます．

ファイルを選択してマクロを実行する方法が分かりません．．．
自動記録で必要な部分だけを得ることは出来たのですが
一つのファイルしか出来ません．．．

自動記録したVBAのコードにこのファイルを開くコードを
くっつければいいのですよね？
しかしよくわかりません．．．