Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7766 / 13644 ツリー ←次へ | 前へ→

【36958】重複セルを残すには? カド 06/4/19(水) 8:42 質問[未読]
【36963】Re:重複セルを残すには? Statis 06/4/19(水) 9:32 回答[未読]
【36978】Re:重複セルを残すには? カド 06/4/19(水) 12:08 質問[未読]
【36980】Re:重複セルを残すには? Statis 06/4/19(水) 12:36 回答[未読]
【37017】Re:重複セルを残すには? カド 06/4/19(水) 20:18 お礼[未読]

【36958】重複セルを残すには?
質問  カド  - 06/4/19(水) 8:42 -

引用なし
パスワード
   データが重複しているセルを行ごと削除するマクロはしばしば見かけますが、
逆に、データが重複していないセルを行ごと削除したいのですが、どのような
ロジックを組めばいいのでしょうか?

自分でも現在考え中ですが、すでに良い方法をご存知の方教えてください。

【36963】Re:重複セルを残すには?
回答  Statis  - 06/4/19(水) 9:32 -

引用なし
パスワード
   こんにちは

A列のデータを基準としIV列を作業列で使用します。

Sub Test()

With Range("A1", Range("A65536").End(xlUp)).Offset(, 255)
   .Formula = "=IF(COUNTIF(A:A,A1)=1,1,"""")"
   .Value = .Value
   On Error GoTo End_Len
   .SpecialCells(xlCellTypeConstants).EntireRow.Delete
   On Error GoTo 0

End_Len:
  .Clear

End With

End Sub

【36978】Re:重複セルを残すには?
質問  カド  - 06/4/19(水) 12:08 -

引用なし
パスワード
   ▼Statis さん こんにちは。いつもお世話になります。

アクティブセルより下の行に対して、同じ処理をしたいのですが
コードをどのように変更したら良いのか分かりません。
申し訳ないですが、教えてください。

***************************************************

大変シンプルなコードですばらしいですね。
あれから一応自分でも作ってみましたが、またまた原始的なコードに
なってしまいました。

セルに式を書き込むコードは、便利そうなのですが、自分ではあまり使いません。
””””なんかはどうして、4回も”が出てくるのか悩んでしまいました。

アクティブセルに対して、行うよう悪戦苦闘しましたが、今ひとつ分からず
再度質問させて頂きました。

【36980】Re:重複セルを残すには?
回答  Statis  - 06/4/19(水) 12:36 -

引用なし
パスワード
   こんにちは

これで如何かな?

ub Test_1()
Dim R As Range, R1 As Range

Set R = ActiveCell
Set R1 = Range(R, Cells(Rows.Count, R.Column).End(xlUp))

With R1.Offset(, 256 - R.Column)
  .Formula = "=IF(COUNTIF(" & R1.Address & "," & R.Address(0, 0) & ")=1,1,"""")"
   .Value = .Value
   On Error GoTo End_Len
   .SpecialCells(xlCellTypeConstants).EntireRow.Delete
   On Error GoTo 0

End_Len:
  .Clear

End With

Set R1 = Nothing: Set R = Nothing

End Sub

【37017】Re:重複セルを残すには?
お礼  カド  - 06/4/19(水) 20:18 -

引用なし
パスワード
   ▼Statis さん ありがとうございました。
大変便利な方法ですね。
今回のコードを私の雛形のひとつに加えて活用させていただきます。

7766 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free