回答編集履歴
4
修正
test
CHANGED
@@ -38,6 +38,8 @@
|
|
38
38
|
|
39
39
|
|
40
40
|
|
41
|
+
```ここに言語を入力
|
42
|
+
|
41
43
|
シートの数-1だけ繰り返し
|
42
44
|
|
43
45
|
i番目のシートのA3セルをコピー
|
@@ -50,11 +52,15 @@
|
|
50
52
|
|
51
53
|
次へ
|
52
54
|
|
55
|
+
```
|
56
|
+
|
53
57
|
|
54
58
|
|
55
59
|
という書き方になっているので、
|
56
60
|
|
57
61
|
貼付だけを無駄に繰り返すよう指示されてます。
|
62
|
+
|
63
|
+
コピーと貼り付けは、対になってないとだめですよね?
|
58
64
|
|
59
65
|
|
60
66
|
|
3
追記
test
CHANGED
@@ -55,3 +55,15 @@
|
|
55
55
|
という書き方になっているので、
|
56
56
|
|
57
57
|
貼付だけを無駄に繰り返すよう指示されてます。
|
58
|
+
|
59
|
+
|
60
|
+
|
61
|
+
[プロパティ、メソッドの探り方 マクロ記録とF1のHelpを使う](http://www.ken3.org/vba/excel-help.html)
|
62
|
+
|
63
|
+
|
64
|
+
|
65
|
+
↑を参考にステップインで1行づつ実行しながら、
|
66
|
+
|
67
|
+
ローカルウィンドウで変数の中身を監視し、
|
68
|
+
|
69
|
+
意図とする数字になっているか確認してみてください。
|
2
修正
test
CHANGED
@@ -31,3 +31,27 @@
|
|
31
31
|
集計シートの3行目のA列へ貼り付け
|
32
32
|
|
33
33
|
以降シートの右端まで繰り返し
|
34
|
+
|
35
|
+
|
36
|
+
|
37
|
+
いまのコードでは、
|
38
|
+
|
39
|
+
|
40
|
+
|
41
|
+
シートの数-1だけ繰り返し
|
42
|
+
|
43
|
+
i番目のシートのA3セルをコピー
|
44
|
+
|
45
|
+
シートの数-1だけ繰り返し
|
46
|
+
|
47
|
+
貼付
|
48
|
+
|
49
|
+
次へ
|
50
|
+
|
51
|
+
次へ
|
52
|
+
|
53
|
+
|
54
|
+
|
55
|
+
という書き方になっているので、
|
56
|
+
|
57
|
+
貼付だけを無駄に繰り返すよう指示されてます。
|
1
修正
test
CHANGED
@@ -8,9 +8,7 @@
|
|
8
8
|
|
9
9
|
For i = 2 To Sheets.Count
|
10
10
|
|
11
|
-
Sheets(i).Range("A3").Copy
|
11
|
+
Sheets(i).Range("A3").Copy Sheets("集計").Cells(i, 1)
|
12
|
-
|
13
|
-
Sheets("集計").Cells(i, 1).PasteSpecial
|
14
12
|
|
15
13
|
Next
|
16
14
|
|
@@ -26,10 +24,10 @@
|
|
26
24
|
|
27
25
|
左から2番目のシートのA3セルの値をコピー
|
28
26
|
|
29
|
-
集計シートの2行目のA列へ
|
27
|
+
集計シートの2行目のA列へ貼り付け
|
30
28
|
|
31
29
|
左から3番目のシートのA3セルの値をコピー
|
32
30
|
|
33
|
-
集計シートの3行目のA列へ
|
31
|
+
集計シートの3行目のA列へ貼り付け
|
34
32
|
|
35
33
|
以降シートの右端まで繰り返し
|