Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58196 / 76738

←次へ　｜　前へ→


	【23274】Re:空白セルを詰めてコピーについて

浜口 - 05/3/18(金) 1:41 -


	引用なし

	パスワード

▼ichinose さん：お返事有難うございます。
>'===================================
>Sub test()
>　 Dim ans As Range
>　 On Error Resume Next
>　 Set ans = Range("a2:e2").SpecialCells(xlCellTypeFormulas, xlNumbers)
>　 If Err.Number = 0 Then
>　　　ans.Copy
>　　　Range("a4").PasteSpecial xlPasteValues
>　　　Application.CutCopyMode = False
>　　　End If
>　 on error goto 0
>End Sub
>これで確認してみて下さい。

試してみましたが、やはりダメでした。

ちなみに、ご伝授の式にある[Err.Number = 0 ]というのは
どんなエラーの場合なのでしょうか？
素人ですみません。
というのも、ご伝授の式ですと
エラー０でない場合は、処理を中止するという意味ではないでしょうか？

色々試行錯誤してますが、
どうも、関数式で得られた空白セルから
コピー　⇒　値のみ貼り付け
ですと、
空白セルとは、認知していないようです。
何か方法が、他にないでしょうか？

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

0 hits

▼

【23267】空白セルを詰めてコピーについて 浜口 05/3/17(木) 21:30