![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
マクロ初心者です。
下記の①と②の動きを実現したいです。
①までは方々で方法論をご教示いただいてどうにか出来ているのですが、
②がなかなかうまくいかず、、
どなたかお力添えいただけますと嬉しいです。
実現したい動きは以下です。
①指定範囲の全セルに処理を行う
ファイル#1の指定sheetのF5→AR12までの値をコピー
ファイル#2の指定sheetのF5→AR12までの値をコピー
ファイル#3のF5→AR12に上記2つの値を加算で貼り付け
+
②F列、H列、J列…と、列おきに処理を行う
ファイル#1の指定sheetのF13→AR42までの値をコピー
ファイル#2の指定sheetのF13→AR42までの値をコピー
ファイル#3のF13→AR42に上記2つの値を加算で貼り付け
補足ですが、①は今のところ以下で組んでおります。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub マクロ()
Dim i As Integer
Const xAdr As String = "F5:AR42"
With Workbooks("#3.xlsm").Worksheets("指定のシート名")
Workbooks("#1.xlsm").Worksheets("指定のシート名").Range(xAdr).Copy
.Range(xAdr).PasteSpecial Paste:=xlPasteAll
Workbooks("#2.xlsm").Worksheets("指定のシート名").Range(xAdr).Copy
.Range(xAdr).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
どこかで見たような内容と思ったら、続きでしょうか?
https://oshiete.goo.ne.jp/qa/11369449.html
①は良いものとして、②の場合1列おきのデータはコピーしても、1列おきにペーストすることはできません。
詰めてペーストすることは可能ですけれど、なさりたいのはそういうことではないですよね?
…ですので、②の場合は対象範囲の中の1列ずつの処理を繰り返すという方法が簡単だと思います。
実はこれって、対象範囲が変わるだけで、処理は①とまったく同じ内容になっているみたいですね。
ということから、対象範囲のアドレスだけ変えるようにして繰り返せば、①、②の処理ともまとめて共通化できるものと思われます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
-
4
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
5
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
6
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
7
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
8
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
9
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
10
連続データを1行おきに貼り付けする方法(エクセル)
Excel(エクセル)
-
11
エクセル VBA 指定の範囲内をコピー 複数行あけて貼り付けを指定範囲内で
Excel(エクセル)
-
12
エクセル コピーしたデータを1行おきに貼り付け
Excel(エクセル)
-
13
【Excel :VBA】 最終行から一行空けて貼り付けたい
Excel(エクセル)
-
14
コピーしたデータを2行ずつに貼り付け
その他(Microsoft Office)
-
15
エクセルで1個飛ばしで、一括でコピペする方法は有りますか?
Excel(エクセル)
-
16
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
17
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
18
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
19
エクセルで1列おきのデータのみコピペする計算式
Excel(エクセル)
-
20
エクセルVBA ブックを閉じる前に確認メッセージを表示したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
至急!尿検査前日にオナニーし...
-
EXCELで条件付き書式で空白セル...
-
甲状腺が腫れているが血液検査...
-
勃起する時って痛いんですか? ...
-
尿検査前日に自慰行為した時の...
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
MIN関数で空白セルを無視したい...
-
中出しをするとお腹が痛い・・・。
-
EXCELで式からグラフを描くには?
-
【Excelで「正弦波」のグラフを...
-
ある範囲のセルから任意の値を...
-
エクセルのグラフで、値0のとき...
-
リンク先のファイルを開かなく...
-
これって喉仏ですか? 私は女性...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報