マクロで特定の行だけを削除したい

Question

下記のように、コピペのマクロはできています、この後「成績 大中小の中小のみ」のシートの行削除を一気に処理したいのですが、うまくできません。教えて頂けませんか。(3000件程あります)
Sub ②コピペする()
   'Sheet1のA3から最終行までをコピー
     With Sheets("成績順")
         .Range("A3:J" & .Cells(Rows.Count, "A").End(xlUp).Row).Copy
    End With
  'Sheet2のA列の最終行の次の行に貼付け
     Sheets("成績 大中小の中小のみ").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial
         Application.CutCopyMode = False
End Sub

 条件に一致した行を削除するというようにしたい
　「成績 大中小の中のみ」の名前のシート、J列に大中小のセルがあります。条件として、「大」を削除して「中と小」だけにしたいのです。
　マクロは初心者で試行錯誤していますが、うまくできず困っています。この後の削除をどのようにしたらよいか、教え頂けませんか。よろしくお願いします。

　　　因みに参考として
　　　　　Sub 条件に一致した行を削除する()
　　　　　　　Dim i As Long

　　　　　For i = Range("A1").End(xlDown).Row To 2 Step -1
　　　　　　With Cells(i, "J")
　　　　　　　　　If _
　　　　　　　　　　.Value Like "大*" Then
　　　　　　　　　　.EntireRow.Delete
　　　　　　　　　　　　　End If
　　　　　　　　　End With
　　　　　　　　　Next i
　　　　　　　　　End Sub

tatsumaru77 · Accepted Answer

＞他にも多くのシートがありまして、シートの特定のやり方が分からないのです。
以下のようにしてください。

Sub 条件に一致した行を削除する()
    Dim i As Long
    With Worksheets("成績 大中小の小中のみ")
        For i = .Range("A1").End(xlDown).Row To 2 Step -1
            With .Cells(i, "J")
                If _
                        .Value Like "大*" Then
                    .EntireRow.Delete
                End If
            End With
        Next i
    End With
End Sub

mygoonickname · Answer

No.1の者です。

他にも多くのシートがありまして、シートの特定のやり方が分からないのです。
幾つかのシートを処理したいという事でしょうか？
それとも、特定のシートを選択したい？

特定のシートなら、Worksheets("シート名").Select　で、そのシートを
選択できます。その後に、提示のマクロで、そのシートが処理できます。

＞このモジュールのなか
→すみません、何を伝えたいのかが、分かりません。
マクロは、標準モジュールに記載で良いかと思います。
特定のシートを選択して、その中で提示のマクロで問題ないかと。

Option Explicit
Sub 条件に一致した行を削除する()
    Dim I As Long
　 Worksheets("処理したいシート名").Select
    For I = Range("A1").End(xlDown).Row To 2 Step -1
        With Cells(I, "J")
            If .Value Like "大*" Then
                .EntireRow.Delete
            End If
        End With
    Next I
End Sub

t_fumiaki · Answer

J列が”大"だったら、行DELETEすれば1行上に詰められます。
それを使ってfor文で実行。

Dim Sh1 As Worksheet
    Set Sh1 = Worksheets("成績 大中小の中のみ")
    
    END1 = Sh1.Range("J65536").End(xlUp).Row
              
    For CNT = 1 To END1
       If Sh1.Range("J" & Cnt1).Value = "大" Then
       　Sh1.Rows(Cnt1).Delete
       　CNT = CNT - 1
      End If
    Next Cnt1

mygoonickname · Answer

こんにちは。

提示されたコードで、問題なさそうに見えますが、どの様な問題が出て
いるのでしょうか？

ただ、データ件数が多いと、削除するのも時間が掛かるかも知れません。
フィルターで、"大"以外を表示させて、それをコピーという手もあるかも
知れません。

マクロで特定の行だけを削除したい

＞他にも多くのシートがありまして、シートの特定のやり方が分からないのです。

No.1の者です。

J列が”大"だったら、行DELETEすれば1行上に詰められます。

こんにちは。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング