重複するデータ(列 "c")があり、列 "D"の数値を持つ行を削除したいとします。のみ画像に見られるように、奇数日付と重複、 条件付き重複行全体の削除
このコードイム使用しているが、私は「D」のデータと行を削除する方法を知らないとが重複
ありますSet wS = ThisWorkbook.Sheets("Sheet1")
であなたのシートの名前に
Sub del_doops()
Dim RowNdx As Long
Dim RowNdx2 As Long
For RowNdx = Range("A1:f1").End(xlDown).Row To 2 Step -1
For RowNdx2 = RowNdx - 1 To 1 Step -1 'Begin at one above RowNdx
If Cells(RowNdx, "b").Value = Cells(RowNdx2, "b").Value And _
Cells(RowNdx, "C").Value = Cells(RowNdx2, "C").Value And _
Cells(RowNdx, "E").Value = Cells(RowNdx2, "E").Value And _
Cells(RowNdx, "F").Value <> Cells(RowNdx2, "F").Value Then
Rows(RowNdx2).Delete 'this is where i need help
End If
Next RowNdx2
Next RowNdx
End Sub
なぜライン17は(ありますあなたの2番目のグループで 'Feb 20'が削除されていますか? –
日付は変わりますが、決して気にしません。 mr R3uKが私を助けました。とにかくありがとうございます –