エクセルのマクロでコピー＆ペーストについて

Question

こんにちは

前提条件
既に他のエクセルファイルで選択した範囲をコピーして有る状態

マクロの開始
A1にクリップボード内のデータを貼り付けたい

マクロ化したいのですが、下のように打つとコピーしても、
クリップボードが空ですと、メッセージボックスが出てきます。
しかし、手入力でA1を選択して、貼り付けすると、
コピーした範囲がペーストされます。

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

'
' Macro1 Macro
'

'
 
    Range("A1").Select
     Dim CB As Variant, i As Long
    CB = Application.ClipboardFormats
    If CB(1) = True Then
        MsgBox "クリップボードは空です。", 48
        Exit Sub
    End If
    For i = 1 To UBound(CB)
        If CB(i) = xlClipboardFormatBitmap Then
            ActiveSheet.Paste
            Exit For
        End If
    Next i

End Sub

コード

Comments

[takito]

OSとExcelのバージョンは書いていただいた方がよいかも。関数名部分（sub hoge()）が無いのは単なる記載漏れだと思いますが、コード自体は問題なく動きました。別のブックでctrl+cしたセルも、このマクロを実行するブック上のA1セルに貼り付けされました。何か情報として出し忘れていることは無いでしょうか？

Answer 1

質問には「選択した範囲をコピーして」と書かれていますが、質問のプログラムには、「範囲を選択」するコードしかなくて、「クリップボードにコピーする」コードが抜けています。

どこかに

Selection.Copy

という「選択した範囲をコピー」するコードを追加したら解決しそうに思われますが、元のシートの"A:F"をコピーしたいのか、"A1"をコピーしたいのかが判りません。

    Columns("A:F").Select
    Selection.ClearContents
    Range("A1").Select

の最初の2行で"A:F"の内容がクリアされますから、"A1"を選択しても内容は空です。
なにか思い違いがあるのではと思われます。

Comments

[ffhtfttfh]

既に他のファイルから選択してコピーしてある状態で、マクロを実行するため、
Columns("A:F").Select
に関しては、ファイルのコピー先のセルに何か入っていたら消す様にしています。

[coco_bauer]

「作業をマクロ化したい」と質問に書かれていたら、質問のコードが『他のエクセルファイルで選択した範囲をコピーして、入力表に打ち込む作業』のマクロだと思ってしまいます。　何をするコードが質問に書かれているのかを、もう少し分かりやすく説明してもらうと有難いです。

[ffhtfttfh]

説明を変更致しました。
よろしくお願い致します。

[ffhtfttfh]

変更致しました

Answer 2

.ClearContentsによって選択範囲に関わらず、セルに関するクリップボードの情報もクリアされますので、メソッドを使用するならクリップボードの処理の後で使用して下さい。

Comments

[ffhtfttfh]

解決致しました。
ありがとうございます。