|
次のことをやりたいと思います。
○sheet1からsheet2へ1行ずつコピーしていく。
sheet1のa4:c4をコピーし、sheet2のF4からH4へペースト。
sheet2のD4をコピーし、sheet2のM4へペースト。
実行すると以下のメッセージが出ます。
○「アプリケーション定義、またはオブジェクト定義のエラーです」
以下のことを教えて下さい。
○アプリケーション定義、オブジェクト定義のやり方
●sheet1のデータ
A B C D E F
4 a b c 文字1
5 d e f 文字2
6 g h i 文字3
7 j k l 文字4
●sheet2のデータ
F G H ・・・ M
4 a b c 文字1
5 d e f 文字2
6 g h i 文字3
7 j k l 文字4
-------------------------------------------
Sub sample()
Dim a1, a2, a3, a4, a5 As Variant
'sheet1のabcをsheet2へコピーする
Sheets("sheet1").Select
a3 = 4
a2 = 0
a4 = 4
a5 = 5
Do While a1 <= a3
a1 = 4
Sheets("sheet1").Select
Range("A4").Offset(a1 - 4).Resize(0, a5).Select
Selection.Copy
Sheets("sheet2").Select
Range("F4").Offset(a2 * a4).Select
ActiveSheet.Paste
'sheet1の文字1,2,3,4をsheet2へコピーする
Sheets("sheet1").Select
Range("d" & a1).Offset(a1 - 4).Select
Selection.Copy
Sheets("sheet2").Select
Range("M4").Offset(a2 * a4).Select
ActiveSheet.Paste
a1 = a1 + 1
a2 = a2 + 1
Loop
End Sub
----------------------------------------------------
|
|