さまざまなシートからすべての行と列をコピーして、1つのワークシートに上下に貼り付けたいと思います。
しかし、エラーが発生しています。サイトから提供されている様々な例を使ってみました。しかし、誰も私のために働いていません。解決にご協力ください。ワークシートを配列で渡します。シートを順番に取得します。
エラーが発生するコードを提供しました。貼り付けセクションでエラーが発生します。A1かR1C1のどちらかだと言っています。ただし、すべてのシートを1枚のシートに上下に貼り付ける必要があります。
For m = 1 To fnum
lastrow = tempws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws(m).Cells.Copy tempws.Cells((lastrow + 1), 1)
Next m
tempws.Save