回答編集履歴
1
変更
test
CHANGED
|
@@ -1,19 +1,19 @@
|
|
|
1
|
-
|
|
1
|
+
ここを
|
|
2
|
-
|
|
3
|
-
これだと「jj」というシートがないとエラーになります。
|
|
4
2
|
|
|
5
3
|
```vba
|
|
6
4
|
|
|
7
|
-
|
|
5
|
+
Z = .Cells(Row.Count, 2).End(xlUp).Row
|
|
6
|
+
|
|
7
|
+
Y = .Cells(Row.Count, 14).End(xlUp).Row
|
|
8
8
|
|
|
9
9
|
```
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
こうしましょう
|
|
12
|
-
|
|
13
|
-
※他の部分に合わせてWorkSheetsにしてます
|
|
14
12
|
|
|
15
13
|
```vba
|
|
16
14
|
|
|
15
|
+
Z = .Cells(Rows.Count, 2).End(xlUp).Row
|
|
16
|
+
|
|
17
|
-
|
|
17
|
+
Y = .Cells(Rows.Count, 14).End(xlUp).Row
|
|
18
18
|
|
|
19
19
|
```
|