No.3ベストアンサー
- 回答日時:
こんにちは!
横からお邪魔します。
すでに的確な回答がでていますが・・・
いちいちSelectすると時間を要するだけなので、そのままコピー&ペーストする方が簡単です。
Sub Sample1()
Dim i As Long
For i = 1 To 22
Cells(i, "A").Resize(, 7).Copy Cells(i * 2 + 26, "A")
Next i
End Sub
こんな感じでしょうかね。
※ コピー&ペーストではなく、値だけの操作の方がもう少し早くなります。
(書式などもそのままコピー&ペーストしたい場合は使えません)
Sub Sample2()
Dim i As Long
For i = 1 To 22
Cells(i * 2 + 26, "A").Resize(, 7).Value = Cells(i, "A").Resize(, 7).Value
Next i
End Sub
といった具合になります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) 【マクロ】PasteSpecialメソッドにて、コードが動かない理由が分かりません 2 2023/08/15 20:47
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) Excel フィルタ後のコピー貼付けと可視セルの関係について 3 2023/02/07 16:42
- Visual Basic(VBA) 範囲を指定して別シートにコピペ 2 2022/09/15 07:32
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
-
4
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
5
エクセル VBA 指定の範囲内をコピー 複数行あけて貼り付けを指定範囲内で
Excel(エクセル)
-
6
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
7
連続データを1行おきに貼り付けする方法(エクセル)
Excel(エクセル)
-
8
エクセルで1個飛ばしで、一括でコピペする方法は有りますか?
Excel(エクセル)
-
9
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
10
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
11
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
12
エクセル コピーしたデータを1行おきに貼り付け
Excel(エクセル)
-
13
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
14
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
15
コピーしたデータを2行ずつに貼り付け
その他(Microsoft Office)
-
16
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
17
【Excel :VBA】 最終行から一行空けて貼り付けたい
Excel(エクセル)
-
18
Excelの連続データから数行おきのコピー
Excel(エクセル)
-
19
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
20
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラムについて。
-
DataTableに入っているデータを...
-
Ctrl + Cなど複数の入力キー...
-
Eclipseのコード入力時の、行コ...
-
Access VBAから使用したExcelプ...
-
マウントしたディスクにcpで、...
-
Activesheet.Pasteで困っています
-
エクセルVBA 実行時エラー'...
-
arduino unoからデータを読み出...
-
C++言語で、構造体のコピーは可...
-
Excelでコピーしたセル(テキス...
-
Listviewに表示された文字のコ...
-
Subversionで作業一段落の作業...
-
バッチで当日日付で作成される...
-
文字列の切り出し
-
一行おきに貼り付ける 可能でし...
-
EPROM Writer の使い方がわから...
-
VBA 最終行・最終列コピー範囲...
-
VBAのコピーマクロがデバッグに...
-
Windows上のマウス操作をプログ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
C++言語で、構造体のコピーは可...
-
DataTableに入っているデータを...
-
マウントしたディスクにcpで、...
-
エクセルVBA 実行時エラー'...
-
gitってなんですか?
-
Listviewに表示された文字のコ...
-
arduino unoからデータを読み出...
-
一行おきに貼り付ける 可能でし...
-
Ctrl + Cなど複数の入力キー...
-
Activesheet.Pasteで困っています
-
Eclipseのコード入力時の、行コ...
-
ブラウザからコピペすると文字...
-
シートに張り付けたボタンがシ...
-
ROBOCOPYをスペース付きのフォ...
-
文字列の切り出し
-
Eclipseでコピーするとき行数な...
-
【UWSC】WEBページ内コピーした...
-
jakarta poiを使用し、EXCELの...
-
バッチで当日日付で作成される...
おすすめ情報
A1の行をA28、A2の行をA30、A3の行をA32、・・・ということですか?
はい できますでしょうか
難しいですよね