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ランキング
-
エクセルのデーターが2か月前の...
-
エクセルVBA、別ブックへ転記す...
-
【マクロ】顧客番号にて一致さ...
-
エクセル共有したが、アクセス...
-
エクセル②
-
(マクロ)データをAブックからB...
-
Excelでセルの値が同じか...
-
エクセルを使っていて2024/5/15...
-
指定文字の間に
-
Microsoft 365の Excel を使用...
-
エクセルの計算
-
エクセルでの作業計算方法について
-
Excelで全角を半角にしたいので...
-
エクセル関数に詳しい方教えて...
-
Googleスプレッドシートでファ...
-
エクセル 文字を増やしたい。
-
はがきについて。
-
エクセルの暗号化なしのバーの...
-
【マクロ】必要な項目(列)の...
-
Excel
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報