回答編集履歴

3

こちらかがいいかも

2020/08/04 14:45

投稿

mako1972
mako1972

スコア383

test CHANGED
@@ -54,7 +54,13 @@
54
54
 
55
55
 
56
56
 
57
- Debug.Print "------------ 重複判定をしました! --------------------"
57
+ Debug.Print "  ------------ 重複判定をしました! --------------------"
58
+
59
+ Else
60
+
61
+
62
+
63
+ Debug.Print "●シートの順番が4未満なのでスルーします!"
58
64
 
59
65
 
60
66
 

2

こちらかがいいかも

2020/08/04 14:44

投稿

mako1972
mako1972

スコア383

test CHANGED
@@ -26,33 +26,39 @@
26
26
 
27
27
  For sh = 1 To Worksheets.Count
28
28
 
29
-
30
-
31
-
32
-
33
- If Sheets(sh).Visible = True Then
34
-
35
29
 
36
30
 
31
+ If sh >= 4 Then
32
+
33
+
34
+
35
+ If Sheets(sh).Visible = True Then
36
+
37
+
38
+
37
- データ数 = Sheets(sh).Range("A1").CurrentRegion.Rows.Count - 1
39
+ データ数 = Sheets(sh).Range("A1").CurrentRegion.Rows.Count - 1
40
+
41
+
42
+
43
+ Debug.Print "ForNext-" & sh & "回目-" & "Sheet名:" & Sheets(sh).Name & "データ数:" & データ数
44
+
45
+ Else
46
+
47
+
48
+
49
+ Debug.Print "●シート名:" & Sheets(sh).Name & "は非表示なのでスルーしました!!"
38
50
 
39
51
 
40
52
 
41
- Debug.Print "ForNext-" & sh & "回目-" & "Sheet名:" & Sheets(sh).Name & "データ数:" & データ数
53
+ End If
42
54
 
43
- Else
55
+
44
56
 
45
-
57
+ Debug.Print "------------ 重複判定をしました! --------------------"
46
58
 
47
- Debug.Print "●シート名:" & Sheets(sh).Name & "は非表示なのでスルーしました!!"
59
+
48
-
49
-
50
60
 
51
61
  End If
52
-
53
-
54
-
55
- Debug.Print "------------ 重複判定をしました! --------------------"
56
62
 
57
63
  Next
58
64
 

1

こちらかがいいかも

2020/08/04 14:42

投稿

mako1972
mako1972

スコア383

test CHANGED
@@ -1,4 +1,4 @@
1
- sheet数はご自由に。非表示のシートを作成しておきます。
1
+ sheet名・シート数はご自由にお願いいたしますまた、非表示のシートを作成しておきます。
2
2
 
3
3
  各シートのA列には何らかのデータがあるとして、下記のVBAコードを標準モジュールに貼り付けて
4
4