質問編集履歴
1
誤字修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -40,15 +40,15 @@
|
|
|
40
40
|
|
|
41
41
|
K2S = 4 'シート2の最初の行番
|
|
42
42
|
|
|
43
|
-
K2E = WorksheetFunction.CountIf(Worksheets(2).Range("B:B"), "
|
|
43
|
+
K2E = WorksheetFunction.CountIf(Worksheets(2).Range("B:B"), "A") + 3 'シート2の最後の行番
|
|
44
44
|
|
|
45
45
|
K3S = 4 'シート3の最初の行番
|
|
46
46
|
|
|
47
|
-
K3E = WorksheetFunction.CountIf(Worksheets(3).Range("B:B"), "
|
|
47
|
+
K3E = WorksheetFunction.CountIf(Worksheets(3).Range("B:B"), "B") + 3 'シート3の最後の行番
|
|
48
48
|
|
|
49
49
|
K4S = 4 'シート4の最初の行番
|
|
50
50
|
|
|
51
|
-
K4E = WorksheetFunction.CountIf(Worksheets(4).Range("B:B"), "
|
|
51
|
+
K4E = WorksheetFunction.CountIf(Worksheets(4).Range("B:B"), "C") + 3 'シート4の最後の行番
|
|
52
52
|
|
|
53
53
|
Application.ScreenUpdating = False
|
|
54
54
|
|