エクセルでの左のセルのコピー

アクテブなセルの左のセルのコピーをしたいのですが　ネットで調べてみたら

　With ActiveCell
　　If .Column <> 1 Then
　　　.Value = .Offset(0, -1).Value
　　End If
　End With

End Sub

とでていたが　やってみると　その左のセルに計算式が入ってゐる場合は計算式が反映されなかったが
どうすればいいか。　たとえば左セルの内容が100（ある範囲を合計した計算式結果）　だが　計算式が入ってなくて単に数字だけコピーされるのですが。左セルの計算式をコピーするにはどうすればいいのでしょうか。

No.3 ベストアンサー 回答者： bonaron 回答日時： 2022/07/25 14:11

> 　.Value = .Offset(0, -1).Value

.Offset(0, -1).Copy .Offset(0, 0)

全く同じ式にしたいなら
.Formula = .Offset(0, -1).Formula
とか。

この回答へのお礼

できました。ありがとう！！！

お礼日時：2022/07/25 18:58

No.2 回答者： めぐみん_ 回答日時： 2022/07/25 13:17

あ、ダメですね

ワクチン接種の副作用でボケてました

No.1 回答者： めぐみん_ 回答日時： 2022/07/25 13:15

＞.Value = .Offset(0, -1).Value

.Offset(0, -1).copy .cells

コピペするとか？