No.3ベストアンサー
- 回答日時:
こんにちは。
値コピーの場合は、難しいメソッドを使う必要はありませんね。
本来は、単に、.Value = .Value です。しかし、ActiveCell があるので、その方法がややこしくなるだけです。
Sub ValuesCopy()
If ActiveCell.Parent.Name = "Sheet2" Then
With Worksheets("Sheet1").Range("E41:E54")
ActiveCell.Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End If
End Sub
Wendy02 さん、こんにちは。
>値コピーの場合は、難しいメソッドを使う必要はありませんね。
本来は、単に、.Value = .Value です。
Wendy02 さんの書かれたコードは随分すっきりしていますね。
私は、Sheet1を選択→E41:E54を選択してコピー、Sheet2を選択→アクティブセルを選択して貼り付け…とたて続けに Select がありますが、コピー元とコピー先が別のSheetなので、ある程度仕方がないのかなと思っていました。。。
大変参考になりました。ありがとうございました。
No.5
- 回答日時:
#4です。
操作が分らなかった。(^^ゞ
Sheet2のあるセルをアクティブしてマクロを実行したら、
Sheet1のE41:E54までの値のみを、Sheet2のそのセルから貼り付けたい。
ということでしょうか?
例えば、今回はG9から、その次はJ3からと、いろいろ変わる。と理解してよろしいのですね。
であれば、マクロを訂正します。
Sub Macro3()
Dim SEL As String
SEL = ActiveCell.Address
Sheets("Sheet1").Range("E41:E54").Copy
Range(SEL).PasteSpecial Paste:=xlValues
End Sub
副産物として、いくつシートがあっても、どのシートからでも、アクティブにしたセルに貼り付けます。
再度の回答ありがとうございます。
>Sheet2のあるセルをアクティブしてマクロを実行したら、
Sheet1のE41:E54までの値のみを、Sheet2のそのセルから貼り付けたい。
ということでしょうか?
例えば、今回はG9から、その次はJ3からと、いろいろ変わる。と理解してよろしいのですね。
そのとおりです。
教えていただいたコードでも、うまくいきました。
ありがとうございました。
No.4
- 回答日時:
Sub Macro3()
Range("E41:E54").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues
End Sub
Sheet1のE41:E54までを
Sheet2のアクティブセル(A1にしました。)
なお、「新しいマクロの記録」で記録されるマクロには、省略可能なデフォルトまでバカ丁寧に記録されます。
そんなデフォルトは消すとスッキリします。
> こちらに質問させていただく前に、「新しいマクロの記録」を利用してやってみたのですが、エラーが出てしまったので…
であれば、話が早いです。
「マクロ勉強中」であるならなおさら、そのソースやエラーを提示して、
何でエラーなのか、どうすべきか、聞いたほうが勉強になります。
回答ありがとうございます。
>「新しいマクロの記録」で記録されるマクロには、省略可能なデフォルトまでバカ丁寧に記録されます。
そんなデフォルトは消すとスッキリします。
そうなんですね、知りませんでした(^_^;)
ということは、値のみコピーは“Selection.PasteSpecial Paste:=xlValues”の部分ということですか。。。
あと、コピー先のアクティブセルですが、ある表の一部に値のみ貼り付けるマクロで、このマクロを実行するたびに貼り付けるセルの位置が変わるので、『Sheet2のアクティブセルに…』と書いています。
No.2
- 回答日時:
ある範囲を選択して、別シートに貼り付けた際の貼り付け方の違い、A1には値貼り付け、C1にはすべて貼り付けを行いました。
マクロを作成して、そう言う違いを見るのも勉強になりますよ。
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
回答ありがとうございます。
>A1には値貼り付け、C1にはすべて貼り付けを行いました。
マクロを作成して、そう言う違いを見るのも勉強になりますよ。
こちらで質問させていただく前に、「新しいマクロの記録」を利用して、値のみ貼り付けとすべて貼り付けの両方を作成して、違いも見てみたのですが、エラーが出てしまいまして…
どこか別のところに間違いがあるのかもしれないと思い、質問させていただきました。
No.1
- 回答日時:
わからない部分は「新しいマクロの記録」で、実際に作業を行い、記録されたマクロを利用すれば効率よく書けますよ。
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,SkipBlanks:=False, Transpose:=False
>わからない部分は「新しいマクロの記録」で、実際に作業を行い、記録されたマクロを利用すれば効率よく書けますよ。
こちらに質問させていただく前に、「新しいマクロの記録」を利用してやってみたのですが、エラーが出てしまったので…
回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) 2つの条件が一致したら一覧へコピーしたい。 左から4番目以降のシート名にコードが入ったシートを全て、 5 2022/09/20 19:41
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
首吊りどこ締めるの
-
変な話しになります。尿検査で...
-
白血球が多いとどんな心配があ...
-
今朝、毎朝の習慣でオナニーし...
-
1日前の検尿
-
射精をして1週間以内に尿検査を...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
男です。昨日の午後3時くらいに...
-
EXCELで式からグラフを描くには?
-
彼女のことが好きすぎて彼女の...
-
中出しをするとお腹が痛い・・・。
-
値が入っているときだけ計算結...
-
これって喉仏ですか? 私は女性...
-
EXCELの条件付き書式で数式を空...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報