質問編集履歴
1
誤字修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,11 +19,11 @@
|
|
|
19
19
|
Dim K1, K2S, K2E, K3S, K3E, K4S, K4E, w, x As Integer
|
|
20
20
|
K1 = 4 'シート1(統合版)の行番
|
|
21
21
|
K2S = 4 'シート2の最初の行番
|
|
22
|
-
K2E = WorksheetFunction.CountIf(Worksheets(2).Range("B:B"), "
|
|
22
|
+
K2E = WorksheetFunction.CountIf(Worksheets(2).Range("B:B"), "A") + 3 'シート2の最後の行番
|
|
23
23
|
K3S = 4 'シート3の最初の行番
|
|
24
|
-
K3E = WorksheetFunction.CountIf(Worksheets(3).Range("B:B"), "
|
|
24
|
+
K3E = WorksheetFunction.CountIf(Worksheets(3).Range("B:B"), "B") + 3 'シート3の最後の行番
|
|
25
25
|
K4S = 4 'シート4の最初の行番
|
|
26
|
-
K4E = WorksheetFunction.CountIf(Worksheets(4).Range("B:B"), "
|
|
26
|
+
K4E = WorksheetFunction.CountIf(Worksheets(4).Range("B:B"), "C") + 3 'シート4の最後の行番
|
|
27
27
|
Application.ScreenUpdating = False
|
|
28
28
|
Worksheets(1).Range(Cells(K2S, "B"), Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet) _
|
|
29
29
|
= Worksheets(2).Range(Cells(K2S, "B"), Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet)
|