ＶＢＡ基本構文の作り方

Sub ボタン2_Click()
Sheets("データ").Select

Dim n As Long

n = Cells(Rows.Count, "C").End(xlUp).Row

Cells(n, "C").Resize(, 10).Delete


Dim d As Long
d = Cells(Rows.Count, "A").End(xlUp).Row

Cells(n, "A").Delete
End Sub

この構文を動かすと、Ｂ列がＡ列に移動してしまいます。どうすれば、Ｂ列に固定したままにできるか、お知恵をお借りできないでしょうか。

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2020/09/27 13:06

削除とはそういうもの。

そのままにしたいなら
Cells(n, "A").Clearにする。

この回答へのお礼

ありがとうございます。
手でやっていたら、わからない違い、、こういう違いがあるのですね、、

お礼日時：2020/09/27 14:08