![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2
- 回答日時:
Sub test()
Dim c As Long
c = Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Column
If c < 15 Then c = 15
Range("I3:K8").Copy Destination:=Cells(3, c)
End Sub
No.1
- 回答日時:
sub test()
if range("i3").value = "" then
range("i3:k8").value = range("b3:d8").value
else
range("l3:n8").value = range("b3:d8").value
end if
end sub
この回答への補足
早速のご教示ありがとうございます。
説明を少し追加させて下さい。
コピー貼付けは、平均15回(最終がAY3からBA8位)くらい
横に行います。(時々は16回や17回の時もあります)
また、コピーは書式(罫線やセルの色)も一緒に行いたいのです。
どうかよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルのVBAでセルの貼り付け方向を指定する方法
Excel(エクセル)
-
EXCEL VBAで複数シートから該当列のみを別シート列方向に順番に貼り付け
Visual Basic(VBA)
-
マクロで貼り付け位置を可変させる方法が知りたいです。
Excel(エクセル)
-
-
4
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
5
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
6
エクセルで日付から日にちを削除したい
Excel(エクセル)
-
7
アクティブセルとそのセルに隣接する右隣の2つのセルをコピーしてシート2に貼り付ける
Excel(エクセル)
-
8
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
9
マクロ 最終列をコピーして最終列の次の列に挿入する
Visual Basic(VBA)
-
10
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
11
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
12
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
13
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
14
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
17
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
18
[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。
Access(アクセス)
-
19
エクセル マクロで列を連続してコピーするにはどうしたらいいか教えてください
Excel(エクセル)
-
20
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
横にコピーするマクロを教えて...
-
HTML ドロップダウンメニ...
-
条件に一致するデータの平均 ...
-
バイトを変換するスクリプト
-
この「of」の用法、意味不明です。
-
VBAマクロ実行時エラーの修正に...
-
Worksheets メソッドは失敗しま...
-
エクセル マクロ オートフィ...
-
VBA シートをコピーする際に Co...
-
ACCESSVBA からExcelの他ブック...
-
LEFT関数とIF関数の組み合わせ...
-
エクセルVBAが途中で止まります
-
エクセルで複数のシートのクリ...
-
Excelで、あるセルの値に応じて...
-
エクセルで特定の文字列が入っ...
-
AのセルとB行を比較して、一致...
-
Excelのシート上のShapeにイベ...
-
特定の文字がある行以外を削除...
-
Excel(M365) Vlookup/セル反転(...
-
EXCELのSheet番号って変更でき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
横にコピーするマクロを教えて...
-
UWSCを使用して、ドロップダウ...
-
強調構文について It is only a...
-
【VBA】 IFの中にIF
-
excel vba
-
VBAでJavaScriptを動かす方法
-
ホームページの資料請求フォー...
-
この「of」の用法、意味不明です。
-
VBAマクロ実行時エラーの修正に...
-
Worksheets メソッドは失敗しま...
-
マクロの「SaveAs」でエラーが...
-
エクセルで特定の文字列が入っ...
-
エクセルで離れた列を選択して...
-
B列の最終行までA列をオート...
-
VBA シートをコピーする際に Co...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
Excelで、あるセルの値に応じて...
-
エクセルVBAが途中で止まります
-
Excel VBAでのWorksheet_Change...
おすすめ情報