エクセルのVBAの質問です。以下の「例」をご覧ください。




変更前



・・・・・

変更後

A 1 B
A 2 B
A 3 B
・・・・

上記例の変更前のようにデータが2000行ぐらいあります。1つのセルに2つのデータです。

そのセル内のデータの最初と最後に文字列を挿入したいと考えています。
マクロでできないでしょうか?
VBAは初心者なので、できれば詳しく教えていただけると幸いです。
よろしくお願いします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/06/29 11:35:48
  • 終了:--

回答(2件)

id:maniac2003 No.1

maniac2003回答回数50ベストアンサー獲得回数02005/06/29 11:44:19

ポイント25pt

その程度のことなら、マクロを組むよりも関数で一気にやった方が早いと思います。


仮に変更前のデータが「A列」にあったとします。

B列の一行目に以下の関数を入れて、全行コピーで大丈夫だと思います。


=”$最初につける文字列$”&A1&”$最後につける文字列$”


例えば、最初につける文字列をabc、最後につける文字列をxyzとすると、


=”abc”&a1&”xyz”


で大丈夫です。

id:hauntcrow

ありがとうございます。さっそく試してみます。

2005/06/29 11:46:35
id:ycyc No.2

ycyc回答回数37ベストアンサー獲得回数62005/06/29 11:45:12

ポイント25pt

マクロでやるなら

while ( Cells(nRow,列番号) <> ”” )

Cells(nRow,列番号) = ” A” & Cells(nRow,列番号) & ” B”

wend

みたいな感じですが、イメージつかめます?


まくろじゃなくても、1列目に1,2,3が入っていれば、2列目に =”A ”&A1&” B”っていれて、セル右下の■をDrag&Dropで連続データを作成して、2列目をコピーして、1列目に形式を選択して貼り付け(値)ってやればできそうですね。

id:hauntcrow

ありがとうございます。さっそく試してみます。

2005/06/29 11:47:07

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません