エクセルデータの該当条件と表の削除

質問

• エクセル2010を使用している際に、特定の条件に基づいて表を削除し、上に詰める方法について教えてください。
• 条件として、一つの表内の特定の列（F列またはG列）にある数値が設定した値以下の個数が一定数以上である場合に、その表を削除し、上に詰めることができます。
• この操作をボタンクリックで行い、データが存在する限り繰り返すことができます。別バージョンとして、条件の個数や列を簡単に変更することもできます。

回答No.1

tom04 · ベストアンサー

こんばんは！

＞書き換えが出来る形が理想形です。
いちいち書き換えずにインプットボックスに3つの条件を入力する方法にしてみました。
「表」ではなく行すべてを削除しています。

Sub Sample1()
Dim i As Long, k As Long, cnt As Long, myRng As Range
Dim str As String, myCnt As Long, myVal
str = Application.InputBox("対象列番号をアルファベットで入力")
myVal = Application.InputBox("数値を入力")
myCnt = Application.InputBox("検索個数を入力")
On Error Resume Next '←念のため★
For k = 1 To Cells(Rows.Count, str).End(xlUp).Row Step 8
If WorksheetFunction.CountIf(Cells(k, str).Resize(8), "<=" & myVal) >= myCnt Then
Set myRng = Cells(k, str).Resize(8)
Exit For
i = k
End If
Next k
If Not myRng Is Nothing Then
For i = k To Cells(Rows.Count, str).End(xlUp).Row Step 8
If WorksheetFunction.CountIf(Cells(i, str).Resize(8), "<=" & myVal) >= myCnt Then
Set myRng = Union(myRng, Cells(i, str).Resize(8))
End If
Next i
End If
myRng.EntireRow.Delete shift:=xlUp
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

回答ありがとうございます。

マクロで開くインプットフォーム初めてでした。

こんな事も出来るのですね、内容は、ばっちりでした、ありがとうございました！