No.3ベストアンサー
- 回答日時:
一例です。
Sub Macro1()
Dim n As Long, I As Long
Range("A2").Select
n = 0
Do Until ActiveCell.Value = Empty
n = n + 1
ActiveCell.Offset(1, 0).Select
Loop
For I = 1 To n - 1
Range("B3:D3").Select
Selection.Copy
ActiveCell.Offset(I, 0).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
End Sub
No.2
- 回答日時:
一例です。
Dim n As Long
n = Range("A2", Range("A" & Rows.Count).End(xlUp)).Rows.Count
Range("B3:D" & 3 + n - 1).Formula = Range("B3:D3").Formula
あるいは、B3:D3をコピーしてもよいと思います。
Dim n As Long
n = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("B3:D3").Copy Range("B4:D" & n)
No.1
- 回答日時:
ご回答ありがとうございました。
最終行の取得方法は分かりましたが、
列の最終行をカウントして別の行列セルからコピー開始することができません。
この部分です。
(2)B3:D3には数式が入っています。
B4:D4以下に数式を(1)で取得した行数分だけコピーします。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
マクロで最終行を取得してコピーしたい
Visual Basic(VBA)
-
VBA 最終行を選んだシートにコピーする。
Visual Basic(VBA)
-
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
-
-
4
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
5
VBA 最終行まで数式をコピーする
Visual Basic(VBA)
-
6
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
7
エクセルVBAで、値が入っている最終行の、右隣の値をコピーして、別のセルに貼り付けるコード
Excel(エクセル)
-
8
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
9
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
10
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
WORDのグレー括弧って?
-
マイナスの場合「xxxx-」...
-
VBAのテキストボックスに文字列...
-
コピーされたセルの文字が途中...
-
xpsファイルをexcelに張り付けたい
-
Excel 3列毎のセルを別の表に抽...
-
エクセルでコピーしたものをコ...
-
【Excel】数式をそのまま他のシ...
-
EXCEL 1つ飛ばしのセル参照
-
セルから一部だけを抜き出して...
-
googleで翻訳したテキストがコ...
-
メモ帳またはTeraPadでのコピー...
-
スクリーンセーバーをプリント...
-
この文の中の” &8212”の読み方...
-
VBAで確認メッセージを表示させ...
-
xlDownの使い分けについての質...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
WORDのグレー括弧って?
-
Excel 3列毎のセルを別の表に抽...
-
コピーされたセルの文字が途中...
-
VBAのテキストボックスに文字列...
-
セルから一部だけを抜き出して...
-
マイナスの場合「xxxx-」...
-
エクセルでコピーしたものをコ...
-
セルに値がある行のみを抽出す...
-
EXCEL 1つ飛ばしのセル参照
-
Wiresharkのパケットの詳細のテ...
-
コピー&貼り付けの仕方を教え...
-
コピペができない(LibreOffice ...
-
エクセルでマクロにてセル色と...
-
【Excel】数式をそのまま他のシ...
-
Excel2010 図としてコピー ショ...
-
Wordの「背景色を消す方法」教...
おすすめ情報