No.3ベストアンサー
- 回答日時:
こんばんは!
コピー&ペーストではなく、値の代入にしています。
一例です。
Sub Sample1()
Dim i As Long
Dim cnt As Long
cnt = 1
For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row
cnt = cnt + 1
Cells(3 * cnt, "B") = Cells(i, "A")
Next i
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.4
- 回答日時:
Sub test()
Dim i, Target
i = 6
For Each Target In ActiveSheet.Range("A4:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If Target.Value = "" Then Exit For
Range("B" & i) = Target.Value
i = i + 3
Next
End Sub
Sub test1()
Dim i, j
j = 6
For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & i) = "" Then Exit For
Range("B" & j) = Range("A" & i)
j = j + 3
Next
End Sub
Sub test2()
Dim i, j
i = 4
j = 6
Do
Range("B" & j) = Range("A" & i)
i = i + 1
j = j + 3
Loop Until Range("A" & i).Value = ""
End Sub
他にも書き方はありますが、基本的に#1のくんこばさんの考え方で良いかと。
!回答付いたけど、、書いたので掲示します。重複された方、申し訳ありません。
No.2
- 回答日時:
終わりの条件が判らないので元のセルが空欄になったら終了にしました。
Sub Sample1()
Dim 元 As Long
Dim 先 As Long
元 = 4
先 = 6
Do While Cells(元, 1).Value <> ""
Cells(先, 2).Value = Cells(元, 1).Value
元 = 元 + 1
先 = 先 + 3
Loop
End Sub
または
Sub Sample2()
Dim 元 As Long
Dim 先 As Long
先 = 6
For 元 = 4 To Rows.Count
If Cells(元, 1).Value = "" Then Exit For
Cells(先, 2).Value = Cells(元, 1).Value
先 = 先 + 3
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
EXELで複数のとびとびのセルをコピー&ペーストする方法
PowerPoint(パワーポイント)
-
エクセル 飛び飛びのセルの値を貼る方法
Excel(エクセル)
-
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
-
4
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
5
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
6
複数のセルをコピーし、別シートの任意のセルへペーストをするためのマクロ
Excel(エクセル)
-
7
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
8
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
9
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
10
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
13
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
14
マクロについて 複数セルの値を別シートの任意のセルにコピー貼り付けしたい
Excel(エクセル)
-
15
(Excel2013)複数条件によって一定間隔でコピー&ペーストするVBA
Visual Basic(VBA)
-
16
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
17
エクセル VBA 指定の範囲内をコピー 複数行あけて貼り付けを指定範囲内で
Excel(エクセル)
-
18
マクロで貼り付け位置を可変させる方法が知りたいです。
Excel(エクセル)
-
19
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
20
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
PDFの一部を切り取って別のシー...
-
Excel 3列毎のセルを別の表に抽...
-
コピーされたセルの文字が途中...
-
EXCEL 1つ飛ばしのセル参照
-
【エクセル】表の中の文字だけ...
-
セルに値がある行のみを抽出す...
-
WORDのグレー括弧って?
-
VBAのテキストボックスに文字列...
-
空白行を無視してコピーするマ...
-
googleで翻訳したテキストがコ...
-
エクセル VBA・マクロ コピー ...
-
エクセルでコピーしたものをコ...
-
マイナスの場合「xxxx-」...
-
Wordの「背景色を消す方法」教...
-
セルから一部だけを抜き出して...
-
数式による空白を無視して最終...
-
2行ずつのデータ貼り付けの処理...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
PDFの一部を切り取って別のシー...
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
Excel 3列毎のセルを別の表に抽...
-
VBAのテキストボックスに文字列...
-
セルに値がある行のみを抽出す...
-
WORDのグレー括弧って?
-
セルから一部だけを抜き出して...
-
コピーされたセルの文字が途中...
-
EXCEL 1つ飛ばしのセル参照
-
エクセルでコピーしたものをコ...
-
Word(Offce365)の不思議な現...
-
数式による空白を無視して最終...
-
コピー&貼り付けの仕方を教え...
-
マイナスの場合「xxxx-」...
-
空白行を無視してコピーするマ...
-
【Excel】数式をそのまま他のシ...
-
エクセルでマクロにてセル色と...
おすすめ情報