【質問2】

エクセルのマクロを作って下さい。
文章が下手なもので理解しづらいかもしれませんが、宜しくお願い致します。
私の要望通りのものでしたら、200ポイントを差し上げます。


エクセルファイルのsheet2の3行目セルA3~セルM3を選択しコピー。
それを同じシートの:sheet2の4行目から◆行まで貼付け。
コピー解除。

◆行は「質問1」bbbb.csvの最終行と同じ行数

エクセルファイルのsheet3の3行目セルA3~セルL3を選択しコピー。
それを同じシートの:sheet3の3行目から◆行まで貼付け。
コピー解除。

◆行は「質問1」bbbb.csvの最終行と同じ行数

回答の条件
  • 1人3回まで
  • 登録:2009/03/16 23:37:17
  • 終了:2009/03/17 23:25:55

回答(1件)

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692009/03/17 01:50:21

ポイント200pt
Sub macro2()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Sheet2")
    For i = 4 To lastRow
        .Range("A3:M3").Copy .Cells(i, 1)
    Next i
    End With
End Sub
id:pinko_pinpin

ありがとうございました。

また、よろしくお願いいたします。

2009/03/17 23:25:32

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません