Excelで、シートの4枚目から最後までA列を『重複を削除』するマクロが組みたいです！

Question

組み方の考え方を教えて頂きたいです。

『マクロの記録』を利用して、コードを書いてみたのですがうまくいきません。

1、シートの4枚目をアクティブセルに
2、A列を選択
3、重複を削除
4、次のシートをアクティブセルに

2〜4をfor〜nextでループさせれば上手くいくと思ったのですが、この考え方で合ってるでしょうか？

よろしくお願いします。

Comments

[退会済みユーザー]

ちなみに、上記のマクロを組んだとすると、非表示のシートがあった場合非表示のシートまで処理されてしまいますか？

[mako1972]

マクロを提示して下さい。
非表示にしーとをする場合は
マスターとか処理に
関係ないしーとだと思いますが。

[mako1972]

組み方の考え方ですが

ワークシートの数を数える。
ループ回数を決めたら、シートが4以上のインデックス番号であること、非表示シートでないことを
if文で条件分けする。
条件に合致したシートのA列のデータ数をチェックして
重複していない場合は
集約したいシートに転記を繰り返すループ処理と
判定を行いながら
結果をまとめる。

以上。

[hatena19]

> 2〜4をfor〜nextでループさせれば上手くいくと思ったのですが、この考え方で合ってるでしょうか？

あってます。その方針でまずはご自身でコードを書いてみてください。

> 非表示のシートがあった場合非表示のシートまで処理されてしまいますか？

条件分けすれば、非表示のシートは処理しないようにもできます。まずはご自身でコードを書いてみてください。

Answer 1

これではどうですか。

Sub Test_Sample_Miniature()
    Dim MySh As Worksheet
    For Each MySh In Worksheets
        If MySh.Index > 4 Then
            MySh.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
        End If
    Next
End Sub

Comments

[退会済みユーザー]

4〜最後のシートまでループじゃなくて、全選択して1〜3を除外っていうやり方もあるんですね。
こっちでもやってみます！

Answer 2

こんにちは。
こんな感じでいいのかなぁ、と考えてみました。

---

Option Explicit

Sub 重複削除()

Dim ssh As Long 'Start Sheetの意味
Dim sh As Long

ssh = 4 '4枚目と書かれていましたので 4 開始にしました

For sh = ssh To Worksheets.Count

Next sh

Range("A:A").RemoveDuplicates Columns:=Array(1), Header:=xlYes

End Sub

1～3 はこんな感じだと思うのですが、
４,「次のシートをアクティブセルに」
なんですが、シートの枚数とか、どのセルをアクティブに
したらいいのか、 分かりませんでした。

毎回同じなのか、毎回異なるのか？ とか・・・。

でも、
ちゃんと動作は確認しましたので 1～3は大丈夫かと思います。

尻切れトンボ見たいな回答りましたが、参考になれば嬉しいです。

Comments

[退会済みユーザー]

皆さんありがとうございました！
上記コードを参考にし、完成させる事が出来ました！

すみません、『シートの4枚目をアクティブセルに』って意味わからないですね(汗
正しくは『シートの4枚目を選択』で、４,「次のシートをアクティブセルに」 は次(5...)のシートを選択でした。

Answer 3

sheet名・シート数はご自由にお願いいたします。また、非表示のシートを作成しておきます。
各シートのA列には何らかのデータがあるとして、下記のVBAコードを標準モジュールに貼り付けて
実行してみてください。
重複処理を除いた非表示シートか否かを判定して情報をイミディエイトウィンドウに表示するというサンプルです。

参考にならないかもしれませんが、大枠の処理となりますのでよろしくお願いいたします

Sub test()
Dim sh As Integer
Dim データ数 As Double


For sh = 1 To Worksheets.Count
    
    If sh >= 4 Then
         
          If Sheets(sh).Visible = True Then
          
              データ数 = Sheets(sh).Range("A1").CurrentRegion.Rows.Count - 1
              
              Debug.Print "ForNext-" & sh & "回目-" & "Sheet名：" & Sheets(sh).Name & "データ数：" & データ数
          Else
          
               Debug.Print "●シート名：" & Sheets(sh).Name & "は非表示なのでスルーしました！！"
        
          End If
          
              Debug.Print "　　------------ 重複判定をしました！ --------------------"
    Else
    
        Debug.Print "●シートの順番が4未満なのでスルーします！"
              
    End If
Next

End Sub