VBA A列のみにしか入力できないようにする

質問

いつも大変お世話になっております。
Excel2003を使用してます。

メールをExcelにコピペして、
A列のみに表示されるようにしたいと思っております。

例えば、

A,B
　,件名テスト
本文
本文
担当者名,文書名
　,システム名
メール終わり

このような状態だったとして、
B列に記入されたことも、A列に結合し、
A列以外には何も記入されていないようにしたいです。

↓　変換後

A,B
件名テスト
本文
本文
担当者名文書名
システム名
メール終わり

Worksheet_Changeで実行すべきかと思いますが
どのようにすべきでしょうか？

TargetをRangeオブジェクトに入れなおして
ForEachループで回すとかでしょうか？

どうしたら良いのか分からず困っているのが
「A列以外を変更した」と判断する記述です。

コピペした際、A列、B列ともに変更しており
If Application.Intersect(Target, Range("A:A")) Is Nothing Then
としてしまうと、TargetにA列が含まれていたら実行しなくなってしまいます。

「A列以外を変更した場合」という判定はどのようにすべきでしょうか？
以上、よろしくお願い致します。

回答No.1

eden3616 · ベストアンサー

現状すでに1列目（A列）に何かが入っている場合であっても上書きされてしまいますが。
こんなかんじでどうでしょうか。

判定は以下の方法で判定できます。
セルオブジェクト.Columnの値が1であればA列

■VBAコード

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range

'イベント一時中止
Application.EnableEvents = False
'変更されたセルだけループ
For Each myRng In Target
'変更されたセルが2列目以上で、変更されたセルが空白以外の場合
If myRng.Column > 1 And myRng <> "" Then
'1列目に値をセット
Cells(myRng.Row, 1) = myRng
'変更されたセルを削除
myRng.ClearContents
End If
Next
'イベント再開
Application.EnableEvents = True
End Sub

お礼

回答頂き、ありがとうございます。
自分でも組んでいたのですが、
Application.EnableEvents = Falseを忘れており
だいぶ時間がかかってしまいました。
また、ClearContentsをはじめて知りました。
今まで　＝""　で消していたので…

良い方法かは分かりませんが、
Cells(myRng.Row, 1) = myRng
の部分を
Cells(myRng.Row, 1) = Cells(myRng.Row, 1) & myRng
と変更させて頂きました。
これでA列も保持されている…みたいです。

ありがとうございました！
本当に助かりました＾＾