Excelでセルを一度だけ参照したい-便乗質問

質問

過去に次のような質問をしている方がいました。

------------------------------
Excelでセルを一度だけ参照したい
例えば、
Ａ１に「鈴木」
Ｂ１に「=A1」
Ｃ１に「=A1」
…
と入力するとします。
この場合、Ａ１を「佐藤」に変更するとＢ１，Ｃ１,Ｄ１共に「佐藤」になります。

Ａ１を「佐藤」に変更した時に、Ｂ１は「鈴木」のままでＣ１は「佐藤」と
Ｂ１に一度だけ参照させる方法はないでしょうか。
-------------------------------

自分の場合、A1からA100のセル範囲に変動する値が入り、対応するB1からB100のセルに１度だけ
参照させるようにしたいのです。
VBA初心者でまったく足がかりがありません。よろしくお願いします。

回答No.2

mu2011 · ベストアンサー

一例です。
対象シートタブ上で右クリック→コードの表示→サンプルコードを貼り付けてお試しください。

サンプルコード
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
For Each a In Target
If a.Offset(0, 1) = "" Then
a.Offset(0, 1) = a
End If
Next
End Sub

お礼

感謝いたします。
ドンピシャリの期待通りの動作でした。
本当にありがとうございます。

回答No.1

tom04

こんばんは！
外していたらごめんなさい。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Offset(, 1) = "" Then
Target.Offset(, 1) = Target
End If
Target.Offset(, 2) = Target
End Sub

こういう感じで良いのでしょうか？m（_ _）m

お礼

こんばんわ。
こんなに早く回答いただけるとは思いませんでした。
早速試してみました。
正常に動作しました。
ありがとうございました。