ここから本文です

エクセルで縦集計を横方向へコピーするマクロについて質問します。 VBA初心者です...

a77********さん

2014/11/511:53:28

エクセルで縦集計を横方向へコピーするマクロについて質問します。
VBA初心者です。エクセル2007を使用しています。

今まではコピー&ペーストのマクロを繰り返しで使用していましたが、対象のデータが増えコピー&ペーストのマクロが4つになってしまいました。今後のデータ増加に備えて簡素化したマクロに出来ればと思っています。
縦に集計された表を31行づつ別シートの横方向へコピーするマクロです。
シート“803”セルAH4~AH34のデータをシート“集計”セルC36~C66へコピー
シート“803”セルAH37~AH34のデータをシート“集計”セルD36~D66へコピー
最終の動作はシート“803”AH1555~AH1585をシート“集計”AX36~AX66になり、コピー&ペーストを合計48回繰り返します。

Sub コピーテスト()
Sheets("803").Select
Range("AH4:AH34").Select
For a = 1 To 48
Selection.Copy
Selection.Offset(33, 0).Select
Sheets("集計").Select
For i = 3 To 50
Cells(36, i).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
Next a
End Sub

上記のようにしてみましたが、AH4:AH34をペーストするというループになってしまいました。
お知恵をお貸しください。よろしくお願いします。

閲覧数:
733
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

kai********さん

2014/11/513:40:47

変数を使うと作りやすいかと思います^^

Sub コピーテスト_sample()
Dim myRngC As Range
Dim myRngV As Range
Dim myLoop As Long

Set myRngC = Sheets("803").Range("AH4:AH34")
Set myRngV = Sheets("集計").Range("C36:C66")

For myLoop = 1 To 48
myRngV.Value = myRngC.Value

Set myRngC = myRngC.Offset(33, 0)
Set myRngV = myRngV.Offset(0, 1)
Next myLoop
End Sub

参考程度に。

  • 質問者

    a77********さん

    2014/11/514:37:37

    ありがとうございます!!!!
    一発で出来ました。感動です。
    本当にありがとうございます・:*:・(*´∀`*)ウットリ・:*:・

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる