ID非公開

2021/9/22 10:12

22回答

一か所だけ選択したセルを含めて次の空白行が出るまでの複数行の選択セルを1段下げてください。

画像

Excel72閲覧

ベストアンサー

0

ID非公開

質問者2021/9/22 11:29

このコードだと1行挿入することによって13行目の「さ」の位置が下に一行づつずれていって14行目になってしまいます。下の空白分のみを詰めていく感じです。

その他の回答(1件)

0

Insertしようとするからややこしくなるのでは? コピーして上書きすれば済むこと、 Sub Macro1() Dim rng As Range Set rng = Range("A7:A10") rng.Copy rng.Offset(1) rng(1).Value = "月日 - 、" End Sub