Sub sakujyo()
Dim i, ii As Long
For i = 1 To Range("a65336").End(xlUp).Row
For ii = Range("a65336").End(xlUp).Row To i + 1 Step -1
If Cells(i, 4).Value = Cells(ii, 4).Value _
And Cells(i, 13).Value = Cells(ii, 13).Value Then
Delete Shift:=xlUp
End If
Next ii
Next i
End Sub
マクロに関しては、素人でございます。
こちらのマクロを作ってみたのですがうまくいきません。
4列目と13列目の列が重複したときのみ重複した行をすべて削除させたいと思っております。どうぞお教えください。
No.4ベストアンサー
- 回答日時:
[回答番号:No.2] の DOUGLAS_ です。
>結果として1と3と6、4と5行目を削除し2行目だけ残すというものを作りたい
失礼いたしました。意味が分かりました。
Delete Shift:=xlUp
End If
Next ii
を
Dim iii As Byte
iii = 1
Rows(ii).Delete Shift:=xlUp
End If
Next ii
If iii = 1 Then Rows(i).Delete Shift:=xlUp
iii = 0
ですね。
No.5
- 回答日時:
[回答番号:No.4] の DOUGLAS_ です。
たびたび失礼いたしました。
[回答番号:No.4] の
Rows(i).Delete Shift:=xlUp
の部分で「i」のインデックス番号が無くなってしまいますので、
i = i - 1
の処理が必要でした。
Sub sakujyo()
Dim i, ii As Long
Dim iii As Byte
For i = 1 To Range("a65336").End(xlUp).Row
For ii = Range("a65336").End(xlUp).Row To i + 1 Step -1
If Cells(i, 4).Value = Cells(ii, 4).Value _
And Cells(i, 13).Value = Cells(ii, 13).Value Then
iii = 1
Rows(ii).Delete Shift:=xlUp
End If
Next ii
If iii = 1 Then
Rows(i).Delete Shift:=xlUp
i = i - 1
End If
iii = 0
Next i
End Sub
何度もありがとうございます。
只今試したところ正常に動きました。
ご丁寧な対応ありがとうございます。
また、機会がございましたら宜しくお願いいたします。
No.3
- 回答日時:
取りあえず下記でどうでしょうか。
Sub tes1()
Dim i As Long, ii As Long
For i = 1 To Range("a65336").End(xlUp).Row
For ii = Range("a65336").End(xlUp).Row To i + 1 Step -1
If Cells(i, 4).Value = Cells(ii, 4).Value _
And Cells(i, 13).Value = Cells(ii, 13).Value Then
Cells(ii, 4).Delete Shift:=xlUp
Cells(ii, 13).Delete Shift:=xlUp
End If
Next ii
Next i
End Sub
No.2
- 回答日時:
>結果として1と3と6、4と5行目を削除し2行目だけ残すというものを作りたい
何か、矛盾があるような気もいたしますが。
Delete Shift:=xlUp
のトコロを
Rows(ii).Delete Shift:=xlUp
でいかがでしょうか?
No.1
- 回答日時:
どのようなデータの羅列で、削除したい条件と削除されると困る条件などを提示された方がいいかも。
この回答への補足
A B C E
1 1/26 a1234 jkl; 5000
2 1/27 a4567 abcd 4000
3 1/28 a1234 ghij 5000
4 1/30 b4567 yuio 6600
5 2/1 b4567 fdsa 6600
6 2/2 a1234 nmvc 5000
アドバイスありがとうございます。
B列とE列が同じ値のときに削除がしたいです。
結果として1と3と6、4と5行目を削除し2行目だけ残すというものを作りたいです。どうぞ宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) フォーム上のリストボックスに重複して表示しています 3 2022/10/19 11:55
- Visual Basic(VBA) このマクロの説明文を教えてほしいです。 1 2023/01/12 09:17
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで日付の入ったセルの...
-
エクセルでセルに「氏名を入力...
-
Excel ウインドウ枠の固定をす...
-
Excelファイルの「数式」タブ→...
-
関数を教えて下さい。
-
スマートな関数を教えて下さい。
-
EXACT関数とIF関数の組み合わせ...
-
スプレッドシートの関数VLOOKUP...
-
Excelのif関数で文字が見えなく...
-
Excel 2019 のピボットテーブル...
-
Excel 2019 は、SPILL機能があ...
-
各ページの1番上の表示について
-
写真のコピー
-
条件付き書式を教えてください
-
INDEX関数やMATCH関数で値を取...
-
エクセル グラフ軸について
-
excelの不要な行の削除ができな...
-
Excelで行をコピー、同じ行内に...
-
エクセル関数に詳しい方、教え...
-
Excel 改ページの文字色の変更...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報