おはようございます。
よろしくお願いします。
シートに表を作っているのですが、行を削除して表の
行数を変えたくないので、行を削除しないで、データーのみ消去
さらにその下のデーターを上に詰める。
行には、2行分の結合セルが混ざっています。
2行づつ消去する。
下のデーターも同じ書式ですので2行づつ上に詰める。
下の構文では、1行のみ削除して下のデーターを上に
詰めることになります。
上の条件にするにはどうしたら、よいのでしょうか。
Dim DstRow As Long
Dim LastRow As Long
Dim Ms As Long
Ms = MsgBox(prompt:=あああ.Caption &_
"を消去してよろしいですか?", Buttons:=vbYesNo)
If Ms = vbYes Then
Rows(DstRow).Delete
DstRow = DstRow - 1
LastRow = LastRow - 1
End If
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
シートの構成にもよりますが、ご質問文から察するに行範囲をコピペで1行ずらしてあげればできそうですね。
最終行がどこなのか不明ですが、多分LastRowだろうと仮定しました。
・コピペなので書式などもコピーされますし、式が入っている場合
相対参照などはそのまま参照位置がずれます
・ずらした後の最終行をクリアしていますが、書式ごとクリアする場合は
Clearを使用してください。
Set rw = Rows(DstRow).Resize(LastRow - DstRow, 1).EntireRow
rw.Offset(1).Copy (rw)
Rows(LastRow).ClearContents
手動でコピペできないようなセル構成(結合などで)の場合はエラーになります
この回答への補足
fujillinさん 回答ありがとうございます。
手動でコピペできないようなセル構成(結合などで)の場合はエラーになりますとありますが
結合セル(2行にまたがっている場合)が混在する場合は
どのようにすればよいのでしょうか。
Set rw = Rows(DstRow).Resize(LastRow - DstRow, 1).EntireRow
rw.Offset(1).Copy (rw)
Rows(LastRow).ClearContents
実行するとオブジェクトエラーと表示されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) Sub 分けてソートして貼り付ける() Dim srcSheet As Worksheet Dim 6 2023/08/04 19:57
- Visual Basic(VBA) ワークシート内を検索 1 2022/12/19 23:46
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルを結合したA4とA5の条件付...
-
Excelで表を作り、自動で今月の...
-
excel:条件付き書式の適用範囲...
-
色のリンクは出来ますか?【エク...
-
左列の文字の色と同じ文字の色...
-
エクセルVBAで条件付書式の色を...
-
条件付き書式のやり方。隣のセ...
-
ある倍数だけを塗りつぶす方法 ...
-
【Excel】ガントチャートの作成...
-
エクセル 条件付書式で時刻の...
-
エクセル 条件付き書式が反映さ...
-
Excel2010 日付列を結合した予...
-
エクセル 文字列に数字を含む場...
-
EXCELで2つの条件設定で別のセ...
-
Excelで社歴管理をしており4年...
-
Excelで隣のセルを参照し...
-
WEEKDAY関数と条件付書式について
-
Excel2007 月ごと色分け
-
(エクセル)該当の場合、自動で...
-
エクセル2010の書式の条件設定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルを結合したA4とA5の条件付...
-
excel:条件付き書式の適用範囲...
-
色のリンクは出来ますか?【エク...
-
Excelで表を作り、自動で今月の...
-
Excelで社歴管理をしており4年...
-
ある倍数だけを塗りつぶす方法 ...
-
左列の文字の色と同じ文字の色...
-
エクセル 条件付書式で時刻の...
-
条件付き書式のやり方。隣のセ...
-
【Excel】ガントチャートの作成...
-
数字を入力するとセルに色が付...
-
エクセルの折られたセルを戻したい
-
Excelの塗りつぶしの反映
-
Excel2010 日付列を結合した予...
-
Excelで隣のセルを参照し...
-
エクセルの条件付き書式による...
-
EXCELで2つの条件設定で別のセ...
-
Excelで、期限切れのリストが一...
-
エクセルで
-
エクセル 文字列に数字を含む場...
おすすめ情報