質問編集履歴
1
追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,9 +8,7 @@
|
|
|
8
8
|
Sub SampleExtraction()
|
|
9
9
|
Dim maxRow As Long
|
|
10
10
|
Dim InSheet As Worksheet
|
|
11
|
-
Dim OutSheet As Worksheet
|
|
12
11
|
Set InSheet = Worksheets("sample")
|
|
13
|
-
Set OutSheet = Worksheets("output")
|
|
14
12
|
Application.ScreenUpdating = False
|
|
15
13
|
InSheet.Range("J:O").Clear
|
|
16
14
|
maxRow = InSheet.Range("A65536").End(xlUp).Row
|