こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル VBA

いつも、皆々様にはお世話になり、大変役立たせていただいております。
エクセルのデータについての質問です。

セルごとに

A,B,C,D,E......
イ,ロ,ハ,ニ,ホ,ヘ,ト...

と並んでいるデータがあるとします。

それをテキストデータとして取り出して、

A
B
C
D
E
.
.



.
.
.

各データを改行して取り出すことは可能でしょうか。

行列の変換ではありません。
各セルのデータをひとつずつ取り出して、
テキストデータとして1行ずつ取り出す方法なのです。

VBAで別のシートに1個ずつデータを移して、
ちまちまやっていれば出来そうなのですが、
一発でやる方法はないでしょうか。

よろしくお願い申し上げます。

なぜこのようなことが必要かと申しますと、
歯科のレセ電のプログラムの一環であります。

投稿日時 - 2009-03-11 13:11:48

QNo.4787367

すぐに回答ほしいです

質問者が選んだベストアンサー

Sub try()
Dim v, vv, w
Dim i As Integer

v = "A,B,C,D,E,F"
vv = Split(v, ",")

w = Join(vv, vbLf)

MsgBox w
End Sub

こうゆう事なのでしょうか?

投稿日時 - 2009-03-11 13:47:58

お礼

早速ご回答いただきありがとうございました。

前回に引き続き、的確なご指摘をいただき、大変参考になりました。

もう少し理解して、自分用にアレンジして、利用させていただきます。
いろいろと、VBAのことをご存知なので、毎回大変に、勉強になります。

また不明の際は、よろしくお願いいたします。

投稿日時 - 2009-03-11 14:18:33

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問