![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.5ベストアンサー
- 回答日時:
> 列は全列で、下から10行目までを削除する場合
> どのようにマクロに書けばいいのでしょうか
Sub test()
Dim mDeleteRows As Integer
mDeleteRows = 10
If Range("A" & Rows.Count).End(xlUp).Row - mDeleteRows + 1 > 0 Then
Rows(Range("A" & Rows.Count).End(xlUp).Row - mDeleteRows + 1 & ":" & Range("A" & Rows.Count).End(xlUp).Row).Delete Shift:=xlUp
End If
End Sub
でいかがですか
No.4
- 回答日時:
こんばんは。
本当は、history.csv から始まるような気もしますが、この程度でよいのでしょうか。
Sub DeleteTest1()
Dim i As Long
Dim j As Long
'ユーザー入力
j = 15 '削除する行
If j <= 0 Then Exit Sub
With ActiveSheet
i = .Cells(Rows.Count, 1).End(xlUp).Row '最終行を求める
If i > j Then
i = i - j + 1
Else
j = i: i = 1
End If
Application.ScreenUpdating = False
.Cells(i, 1).Resize(j).EntireRow.Delete
Application.ScreenUpdating = True
End With
End Sub
No.3
- 回答日時:
既出の回答や下記なども参考になると思います。
行列操作 http://www.asahi-net.or.jp/~zn3y-ngi/YNxv20004.h … の
挿入・削除 http://www.asahi-net.or.jp/~zn3y-ngi/YNxv204.htm … や
範囲選択 http://www.asahi-net.or.jp/~zn3y-ngi/YNxv20006.h … の
範囲を検出して選択 http://www.asahi-net.or.jp/~zn3y-ngi/YNxv206.htm … 等
Sub test() '2~4を削除
Dim x, y
x = 2 '上端行
y = 4 '下端行
Rows(x & ":" & y).Delete
End Sub
確認用のSheetで確認しながら、ご自分で変更してみてください。
No.2
- 回答日時:
'-----------------------------------
Sub Test()
Dim myTarget As Range
Set myTarget = Cells(Rows.Count, "A").End(xlUp)
On Error Resume Next
myTarget.Offset(-9).Resize(10, 1).EntireRow.Delete xlUp
End Sub
'-------------------------------------
当然ながら、データが10以下の場合は
Deleteのところでエラーが出るので
On Error Resume Next
これで、エラーを回避(削除しない)してます。
以上です。
この回答への補足
どうもありがとうございます。
助かりました。
ところで参考までに教えていただきたいのですが、
もし15行目までを削除の場合には、
myTarget.Offset(-14).Resize(15, 1).EntireRow.Delete xlUp
2ヶ所変えればいいのでしょうか。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/10 11:34
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで階層図を作る方法
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
Excel97 指定した行だけマク...
-
【VBA】条件に一致しない行を削...
-
【至急】Excel 同一人物の情報...
-
縦型カレンダーを横型にできま...
-
条件に合った行を削除するマク...
-
エクセルのVBAで指定した行数の...
-
エクセル住所録でフラッグの個...
-
エクセルで行を挿入して小計合...
-
Excel VBAでオートフィルタで抽...
-
エクセル マクロ セルを一気...
-
VBAでの重複データに色付け
-
空白を複数行一気に挿入するには?
-
エクセルのVBAについて
-
エクセルで特定の文字が入って...
-
エクセル VBA 条件が一致した...
-
マクロで最終行を取得してコピ...
-
VBAで保存しないで閉じると空の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
列から特定の文字列検索→該当以...
-
Excel97 指定した行だけマク...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
マクロにて指定の文字間の文字...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
-
Excel マクロ 検索結果を別シ...
-
VBAで特定の行と一つ上の行を削...
-
各個体に対する平均値の自動計...
おすすめ情報