[[20190603212155]]　『複数シート、複数セルの重複削除』（たま）　ページの最後に飛ぶ

『複数シート、複数セルの重複削除』（たま）

マクロの超初心者です。ご教授下さい。

同じ形式のシートが2つあり（シートA、シートBとします）、
1行目は項目名が入っており、2行目以降がデータです。

20列ほどある項目のうち、複数の項目を指定して
シートAとシートBが、すべて同じ値だった場合、
シートAのデータのみ行ごと削除したいです。

シートA、シートBとも、毎回行数は変わります。列数は変わりません。
同シート内での指定項目の重複は削除済みです。

説明がわかりづらくて申し訳ありませんが、何卒よろしくお願い致します。

＜使用 Excel：unknown、使用 OS：unknown ＞

質問者（たま）です。

Excelは2013、OSはWindows10です。
反映されておらずすみません。
（質問者） 2019/06/03(月) 21:46

一例です。

1）作業列で、COUNTIFS関数で重複数を計算
２）オートフィルタで１を抽出し削除
３）オートフィルタ解除
４）作業列削除

（マナ） 2019/06/03(月) 21:54

もう一例

１）sheet2の対象列をsheet1にコピー
２）それを抽出条件にして、フィルタオプション実行
３）抽出行を削除
４）フィルタオプション解除
５）１）でコピーした列を削除

（マナ） 2019/06/03(月) 22:00

もう一例

１）sheet1データをsheet2の下に１行あけてカット＆ペースト
２）重複の削除
３）sheet2の空白行より下をsheet1にカット＆ペースト

（マナ） 2019/06/03(月) 22:10

マナ様、回答ありがとうございます。

言葉足らずで申し訳ありません。
今回、マクロでどうにかできないかと考えております。

ですが、さっそく教えて頂いた方法でも試してみます！
取り急ぎお礼申し上げます。
（たま） 2019/06/04(火) 07:42

＞マクロでどうにかできないかと考えております。

はい。手作業の流れを理解できれば、
それをマクロにすることを考えればよいです。
最後のだと、こんな感じです。

 Sub test()
    Dim r1 As Range
    Dim r2 As Range

    Set r1 = Worksheets("Sheet1").Cells(1).CurrentRegion
    Set r2 = Worksheets("Sheet2").Cells(1).CurrentRegion

    r1.Offset(1).Cut r2(1).Offset(r2.Rows.Count + 1)
    r2.EntireColumn.RemoveDuplicates Array(1, 3)    '1、3列目で重複判定
    r2(1).Offset(r2.Rows.Count + 1).CurrentRegion.Cut r1(1).Offset(1)

 End Sub

（マナ） 2019/06/08(土) 14:13

フィルタオプション使う場合のも書いてみました。

 Sub test2()
    Dim r1 As Range
    Dim r2 As Range
    Dim c As Range

    Set r1 = Worksheets("Sheet1").Cells(1).CurrentRegion
    Set r2 = Worksheets("Sheet2").Cells(1).CurrentRegion   
    Set c = r1(1).Offset(, r1.Columns.Count + 1)

    Union(r2.Columns(1), r2.Columns(3)).Copy c

    r1.AdvancedFilter xlFilterInPlace, c.CurrentRegion
    r1.Offset(1).Delete xlShiftUp
    r1.Worksheet.ShowAllData

    c.CurrentRegion.Clear

 End Sub

（マナ） 2019/06/08(土) 21:56

マナ様

お礼が大変遅くなり申し訳ありません。
早速試してみます。ありがとうございました！！
（たま） 2019/07/18(木) 20:22

コメント返信：

[ 一覧(最新更新順) ]

[[20190603212155]] 『複数シート、複数セルの重複削除』（たま） ページの最後に飛ぶ

[[20190603212155]]　『複数シート、複数セルの重複削除』（たま）　ページの最後に飛ぶ