回答編集履歴
2
修正
test
CHANGED
|
@@ -2,13 +2,15 @@
|
|
|
2
2
|
|
|
3
3
|
```VBA
|
|
4
4
|
|
|
5
|
-
Dim kacho, member
|
|
5
|
+
Dim ka, kacho, member
|
|
6
|
+
|
|
7
|
+
ka = ResultRange.Value
|
|
6
8
|
|
|
7
9
|
kacho = ResultRange.Offset(1, 0).Value
|
|
8
10
|
|
|
9
11
|
member = ResultRange.Offset(0, 1).Value
|
|
10
12
|
|
|
11
|
-
Worksheets("Sheet1").Cells(Rows.Count,
|
|
13
|
+
Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(1, 3).Value = Array(ka, kacho, member)
|
|
12
14
|
|
|
13
15
|
|
|
14
16
|
|
1
修正
test
CHANGED
|
@@ -1,4 +1,20 @@
|
|
|
1
|
-
こんな感じでどうでしょうか。
|
|
1
|
+
こんな感じでどうでしょうか。（修正しました）
|
|
2
|
+
|
|
3
|
+
```VBA
|
|
4
|
+
|
|
5
|
+
Dim kacho, member
|
|
6
|
+
|
|
7
|
+
kacho = ResultRange.Offset(1, 0).Value
|
|
8
|
+
|
|
9
|
+
member = ResultRange.Offset(0, 1).Value
|
|
10
|
+
|
|
11
|
+
Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(1, 2).Value = Array(kacho, member)
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
```
|
|
16
|
+
|
|
17
|
+
（修正前）
|
|
2
18
|
|
|
3
19
|
```VBA
|
|
4
20
|
|