回答編集履歴
3
こちらかがいいかも
answer
CHANGED
|
@@ -26,7 +26,10 @@
|
|
|
26
26
|
|
|
27
27
|
End If
|
|
28
28
|
|
|
29
|
-
Debug.Print "------------ 重複判定をしました！ --------------------"
|
|
29
|
+
Debug.Print " ------------ 重複判定をしました！ --------------------"
|
|
30
|
+
Else
|
|
31
|
+
|
|
32
|
+
Debug.Print "●シートの順番が4未満なのでスルーします！"
|
|
30
33
|
|
|
31
34
|
End If
|
|
32
35
|
Next
|
2
こちらかがいいかも
answer
CHANGED
|
@@ -12,20 +12,23 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
For sh = 1 To Worksheets.Count
|
|
15
|
-
|
|
16
|
-
|
|
17
|
-
If Sheets(sh).Visible = True Then
|
|
18
15
|
|
|
16
|
+
If sh >= 4 Then
|
|
17
|
+
|
|
18
|
+
If Sheets(sh).Visible = True Then
|
|
19
|
+
|
|
19
|
-
|
|
20
|
+
データ数 = Sheets(sh).Range("A1").CurrentRegion.Rows.Count - 1
|
|
21
|
+
|
|
22
|
+
Debug.Print "ForNext-" & sh & "回目-" & "Sheet名：" & Sheets(sh).Name & "データ数：" & データ数
|
|
23
|
+
Else
|
|
24
|
+
|
|
25
|
+
Debug.Print "●シート名：" & Sheets(sh).Name & "は非表示なのでスルーしました！！"
|
|
20
26
|
|
|
21
|
-
Debug.Print "ForNext-" & sh & "回目-" & "Sheet名：" & Sheets(sh).Name & "データ数：" & データ数
|
|
22
|
-
|
|
27
|
+
End If
|
|
23
|
-
|
|
28
|
+
|
|
24
|
-
|
|
29
|
+
Debug.Print "------------ 重複判定をしました！ --------------------"
|
|
25
|
-
|
|
30
|
+
|
|
26
31
|
End If
|
|
27
|
-
|
|
28
|
-
Debug.Print "------------ 重複判定をしました！ --------------------"
|
|
29
32
|
Next
|
|
30
33
|
|
|
31
34
|
End Sub
|
1
こちらかがいいかも
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
sheet数はご自由に。非表示のシートを作成しておきます。
|
|
1
|
+
sheet名・シート数はご自由にお願いいたします。また、非表示のシートを作成しておきます。
|
|
2
2
|
各シートのA列には何らかのデータがあるとして、下記のVBAコードを標準モジュールに貼り付けて
|
|
3
3
|
実行してみてください。
|
|
4
4
|
重複処理を除いた非表示シートか否かを判定して情報をイミディエイトウィンドウに表示するというサンプルです。
|