回答編集履歴
2
修正
answer
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
Worksheets("Sheet2").Range("A2:H100").ClearContents
|
|
4
4
|
```
|
|
5
5
|
２番目は.CopyはRangeオブジェクトに対するメソッドですので、単なるStringとしてしか定義されていないRowにはそんなメソッドはありませんというエラーです。
|
|
6
|
-
コードの記述としての是非はありますが、エラーとならない意図するコードとしては、
|
|
6
|
+
コードの記述としての是非はありますが、エラーとならない意図するコードとしては、以下のような記述です。
|
|
7
7
|
```VBA
|
|
8
8
|
Range(Cells(i, 1), Cells(i, 8)).Copy Sheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Offset(1, 0)
|
|
9
9
|
```
|
1
追記
answer
CHANGED
|
@@ -1,4 +1,10 @@
|
|
|
1
1
|
Sheet2が正しく参照できていないのでは。
|
|
2
2
|
```VBA
|
|
3
3
|
Worksheets("Sheet2").Range("A2:H100").ClearContents
|
|
4
|
-
```
|
|
4
|
+
```
|
|
5
|
+
２番目は.CopyはRangeオブジェクトに対するメソッドですので、単なるStringとしてしか定義されていないRowにはそんなメソッドはありませんというエラーです。
|
|
6
|
+
コードの記述としての是非はありますが、エラーとならない意図するコードとしては、いかのような記述です。
|
|
7
|
+
```VBA
|
|
8
|
+
Range(Cells(i, 1), Cells(i, 8)).Copy Sheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Offset(1, 0)
|
|
9
|
+
```
|
|
10
|
+
全体的に作りかけのコードですね。色々とありそうですが頑張ってください。
|