またまたお世話になります。「入力」シートから「コピー先」シート
にコピーして貼付したいのですが、コードで記述してうまくいき
ません。すごく簡単なことかと思いますが、まったく解決できず
にいます。何か足りないのでしょうか?よろしくご指導ください。
Sheets("入力").Select
Range("A1:V20").Copy
Sheets("コピー先").Range("A22").PasteSpecial Paste:=xlAll
Application.CutCopyMode = False
No.3
- 回答日時:
>Sheets("入力").Select
>Range("A1:V20").Copy
>Sheets("コピー先").Range("A22").PasteSpecial Paste:=xlAll
>Application.CutCopyMode = False
提示のコードのように4行もいりません。
入力シートをアクティブにする必要があるなら、以下の2行でOK。
Sheets("入力").Select
Range("A1:V20").Copy Sheets("コピー先").Range("A22")
入力シートをアクティブにしなくていいなら、以下の1行でOK。
Sheets("入力").Range("A1:V20").Copy Sheets("コピー先").Range("A22")
以上。
No.2
- 回答日時:
私の質問を読んだ感じでは
(1)シートのrange(セル範囲)
(2)オートシェイプ
のオブジェクトの捉え方において
質問者は画然と区別できてないのでは。
ーー
Rangeオブジェクトの下の属性をコピーするのが
PasteSpecial Paste:=xlAll であって、
Allには、シートに浮かんだようなShapesは含まれて居ないのでは。
編集ーコピー
編集ー形式を選択して張り付けー全て、で
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
となりました(マクロの記録)
この辺はセルの属性に関することだけです。
ーSub test01()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100.25, 40.75, _
72#, 72#).Select
Selection.Copy
ActiveSheet.Paste Destination:=Range("D10")
End Sub
のD10の指定は出来てもShaipsはD10の属性ではありません。
ーーー
別にShapesのオブジェクトを捉えてコピーし貼り付ける必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
VBA Shapes コピーと名前
Excel(エクセル)
-
【VBA】3個の図形をコピーしてSheet2に貼り付けたい
Excel(エクセル)
-
-
4
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
5
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
11
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
12
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
13
EXCEL VBA コントロールのコピー&ペースト
Excel(エクセル)
-
14
フォントの大きさ
Visual Basic(VBA)
-
15
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
16
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
17
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
18
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
19
ファイル名を今日の日付、時刻で保存する
Visual Basic(VBA)
-
20
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 関数を使ってデータと一...
-
EXCELのVBAでシートコピーをし...
-
エクセルの選択範囲以外を削除...
-
エクセルの1シートの内容を複...
-
Excelの行をコピーして貼り付け...
-
EXCELで別のブックから式をコピ...
-
【Excel VBA】シートコピー時、...
-
Excel シートに別のExcelシート...
-
Excel 数式の保護をしたセルを...
-
エクセルシートを別のエクセル...
-
【Excel】数式をそのまま他のシ...
-
EXCEL2007でシートをコピーする...
-
【VBA】コピー&複数個所のペー...
-
エクセルのシートを完全にコピー
-
エクセルのファイルで、あるブ...
-
エクセルのページをシートごと...
-
エクセルのシートコピーした際...
-
シートが保護されていないのに...
-
エクセルでシートを「移動また...
-
【エクセル】プルダウン設定の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 関数を使ってデータと一...
-
エクセルの選択範囲以外を削除...
-
EXCELのVBAでシートコピーをし...
-
EXCELで別のブックから式をコピ...
-
【Excel】数式をそのまま他のシ...
-
【VBA】コピー&複数個所のペー...
-
Excelの行をコピーして貼り付け...
-
CSVファイルについて質問です。
-
【エクセル】プルダウン設定の...
-
Excel シートのコピーの際、ペ...
-
Excel 数式の保護をしたセルを...
-
【Excel VBA】シートコピー時、...
-
エクセルの1シートの内容を複...
-
ExcelVBAで、ユーザーフォーム...
-
Excel シートに別のExcelシート...
-
シートが保護されていないのに...
-
PDFファイルをコピーしてエクセ...
-
エクセルシートを別のエクセル...
-
エクセルVBA 1行飛ばしで転記す...
-
エクセルでシートを「移動また...
おすすめ情報