エクセルVBAについて質問です。


最初に任意のシートで、任意の列が指定(例えばD列)されているとします。
シート1で、最初に指定された列(例えばD列)の1行目にある文字列を2行目から5行目までコピーし、シート2で、最初に指定された列(例えばD列)の1行目にある文字列を2行目から15行目までコピーでするというマクロを作って下さい。

回答の条件
  • 1人2回まで
  • 登録:2007/02/25 18:14:32
  • 終了:2007/02/26 03:01:06

回答(1件)

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692007/02/25 18:44:07

ポイント100pt
Sub Macro1()
    Dim retu As Long
    Dim i As Integer
    
    retu = ActiveCell.Column
    With Worksheets("シート1")
        For i = 2 To 5
            .Cells(i, retu).Value = .Cells(1, retu).Value
        Next i
    End With
    With Worksheets("シート2")
        For i = 2 To 15
            .Cells(i, retu).Value = .Cells(1, retu).Value
        Next i
    End With
End Sub
id:taroemon

ご回答ありがとうございます。

完璧に望んでいた物でした。

2007/02/26 03:00:40
  • id:taknt
    コピーするというのは 貼り付けるということでしょうか?
  • id:taroemon
    taknt様
    いつもありがとうございます。

    返事が遅くなってすみません。
    回答を締め切った後にコメントに気がつきました。

    今更ですが貼り付けるということです。

    またのご指導をお待ちしてます。

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

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

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

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