[[20190917115138]]　『空白を無視した貼り付け』（ごりらん）　ページの最後に飛ぶ

『空白を無視した貼り付け』（ごりらん）

よろしくお願い致します。

別ｼｰﾄでｺﾋﾟｰした内容を、貼り付け先のｼｰﾄに空白を無視した貼り付けを
行おうとしています。
手作業でなら問題なく出来るのですが、それをﾏｸﾛで動くようにしたいです。
「形式を選択して貼り付け→値にﾁｪｯｸ→空白セルを無視するﾁｪｯｸ」の流れでやっています。
ｺﾋﾟｰは毎回範囲が違うので手作業でやっていますので、貼り付けのみのﾏｸﾛ化をしたいです。

ﾈｯﾄで情報を調べて下記のｺｰﾄﾞを使ってみたのですが、うまく動きません。

Sub 空白セルを無視して値を貼り付ける()

    Range("A4").PasteSpecial Paste:=xlValues, SkipBlanks:=True
End Sub
※RangeｸﾗｽのPasteSpecialﾒｿﾞｯﾄが失敗しました。
と表示されます。

いろいろ調べてみたのですが、修正方法が分からず困っております。
ご教授お願い致します。

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

こんにちは　＾＾
あの～
カットもコピ～も、していないのではないでしょうか。（貼付けだけ。。。！）

（隠居じーさん） 2019/09/17(火) 12:23

 マクロはどのように実行しているのだろうか？
 もし開発-マクロから実行している場合、マクロ選択のダイアログが開いた際にコピーが解除される。
 ボタンにマクロを登録してボタンのクリックでマクロを実行してみてはどうだろうか？
（ねむねむ） 2019/09/17(火) 12:48

 こちらで　セルをコピーした状態で　VBEから　F5　で実行したところ
 意図通りに貼り付けできました。
 ねむねむさんに一票。

（渡辺ひかる） 2019/09/17(火) 12:55

ご教授ありがとうございます。

ねむねむ様の方法で試したら問題無く動作致しました。
ｺﾋﾟｰが解除されるは知りませんでした・・・。

ありがとうございます。
（ごりらん） 2019/09/17(火) 13:08

コメント返信：

[ 一覧(最新更新順) ]

[[20190917115138]] 『空白を無視した貼り付け』（ごりらん） ページの最後に飛ぶ

[[20190917115138]]　『空白を無視した貼り付け』（ごりらん）　ページの最後に飛ぶ