セルコピーを指定範囲先に張り付けループさせるマクロを作成したいと
思います。
調べたところ以下のように指定範囲をコピーしてセルに貼り付けは
できるみたいですが、指定範囲先に貼り付けができません。
Sub CopyCell()
Range(Cells(1,2),Cells(3,4)).Copy Destination:=Cells(5,6)
End Sub
↓
最終的に以下のように実行を考えています。
Dim p As Integer
For p = 1 To 10
Range(5,6).Copy Destination:=Range(Cells(10*p+2,2),Cells(10*p+15,4))
Next p
セル値を等間隔に連続して貼り付けは可能でしょうか?
よろしくお願いします。
No.1
- 回答日時:
コピー元が1個のセルなのに,貼り付け先は2列14行の範囲になってますが,それでいいんですね?
コピー元と貼り付け先のカタチが違っていると意図しない結果になる場合があるので,先の回答でもしてましたが注意や,それなりの手当が必要です。
作成例:
sub macro1()
dim p as long
for p = 12 to 112 step 10
cells(5, 6).copy destination:=range(cells(p, 2), cells(p + 13, 4))
next p
end sub
No.2ベストアンサー
- 回答日時:
Sub CopyDomein(ByVal Domein01 AS range , ByVal Domein02 AS range)
Dim count As long,cal01 As long,rose01,As long,rose02 As long' …乙女か!! (ここでrowse01とかすると怒られるの… (-_-;)涙 可読性高いのにね~)
rose01 = Domein01.rows
rose02 = Domein02.rows
cal01 = (rose02 - (rose02 mod rose01)) / rose01
For count = 0 to cal01 - 1 Step rose01
Domein01.Copy Cells(Domein02.row + count , Domein02.column)
Next
End Sub
最初何故か Rengeを返すファンクションにしたのですが、
返すものがエラー状況しかないので 止めました 汗
迷った … と、云えば
Domein02.rowの扱いも迷いました、
幾度となく参照されるものなので、
変数に入れてしまうか 迷ったのですが、
まあ、こう留めました。
Domein01がコピー元、Domain02がコピー先です。
VBEどころか デバッグすら掛けていないので、
間違いがあったら直して下さいね。
コピーの時、
コピー先は 左上隅の一セルのみを指定すれば
それで範囲を 自動判別してくれるので
これでいけるはずです。
お役に立てていたならば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
可視セル設定をデフォルトにしたい
-
エクセルで勝手に「折り返して...
-
フォームのテキストボックスの...
-
エクセルで、選択範囲の数値全...
-
「選択範囲を解除してアクティ...
-
Excelでコピーした行の挿入を繰...
-
エクセルで値だけコピーして背...
-
Excelのコピー・切り取り機能が...
-
EXCELで「行と列を入れ替える」...
-
エクセルのコピペでクリップボ...
-
エクセル 別シートへのコピー...
-
EXCELのオートフィルの設定を変...
-
Excelの日付をコピーし、貼り付...
-
EXCEL数値が存在する列の項目名...
-
エクセルオートフィルで書式を...
-
【Excel】【VBA】空白のセルに...
-
VBAでセルがコピーされているか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルの2ページ目の作り方
-
エクセルのアポストロフィを一...
-
Excel 行の連続データを列に参...
-
エクセルで勝手に「折り返して...
-
Excelでコピーした行の挿入を繰...
-
EXCELのオートフィルの設定を変...
-
EXCELシートをPowerPointにきれ...
-
エクセルで、選択範囲の数値全...
-
Excel)軽いデーターのはずなの...
-
メールソフト「サンダーバード...
-
エクセルでの行数・列数を指定...
-
「選択範囲を解除してアクティ...
-
Excelに、ダブルクォーテーショ...
-
エクセル 別シートへのコピー...
-
エクセルオートフィルで書式を...
-
エクセルで値だけコピーして背...
-
EXELで複数のとびとびのセルを...
-
Excelで、横並べのデータを縦並...
-
エクセル・数値が変化したらカ...
おすすめ情報