回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
lastLine = Cells(Rows.Count, "A").End(xlUp).Row
|
|
8
8
|
|
|
9
9
|
Dim sourceData() As Variant
|
|
10
|
-
sourceData = Range("A4:
|
|
10
|
+
sourceData = Range("A4:O" & lastLine).Value
|
|
11
11
|
```
|
|
12
12
|
|
|
13
13
|
この配列に対して内容を精査して別配列に出力すればいいでしょう。
|