質問編集履歴
1
誤字の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,15 +34,22 @@
|
|
|
34
34
|
Dim ws As Worksheet
|
|
35
35
|
Set ws = wb.Sheets("Sheet1")
|
|
36
36
|
|
|
37
|
+
Dim sRow As Long
|
|
38
|
+
Dim mRow As Long
|
|
37
39
|
Dim arry
|
|
38
40
|
Dim x
|
|
41
|
+
|
|
42
|
+
'開始行
|
|
43
|
+
sRow = 4
|
|
44
|
+
'終了行
|
|
45
|
+
mRow = ws.Cells(Rows.Count, "B").End(xlUp).Row
|
|
39
46
|
|
|
40
47
|
j = 1
|
|
41
48
|
|
|
42
49
|
'L列目が空白の場合は配列へ格納
|
|
43
50
|
ReDim x(1 To mRow, 1 To 29)
|
|
44
51
|
|
|
45
|
-
For i =
|
|
52
|
+
For i = sRow To mRow
|
|
46
53
|
|
|
47
54
|
arry = ws.Range(ws.Cells(i, 1), ws.Cells(i, 29))
|
|
48
55
|
|