エクセルでマクロの記録が再現できない？

質問

他のソフトからエクセルに取り込んだデータの頭についているシングルクオーテーションを削除するための手順（１を乗算する）を以下のようなマクロの記録にしました。⇒Sub Macro4
これを汎用で使えるように編集しました。⇒Sub SQ_Delete

ところが、手動ではちゃんと削除されたシングルクオーテーションがSub SQ_Deleteでは消えてくれません。
それどころか。記録したSub Macro4を走らせても消えないのです。
試行錯誤の結果、Paste:=xlAllExceptBorders　を、Paste:=xlAll　にすれば大丈夫なことはわかったのですが、それでは罫線が消えてしまいます。

手動で削除できた方法（Paste:=xlAllExceptBorders）で、なぜVBAではだめなのかが大きな疑問です。
よろしくお願いします。

Sub Macro4()
Range("D18").Select
ActiveCell.FormulaR1C1 = "1"
Range("D18").Select
Selection.Copy
Range("A1:D12").Select
Selection.PasteSpecial Paste:=xlAllExceptBorders, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

Sub SQ_Delete()
Set ds = ActiveCell.SpecialCells(xlLastCell).Offset(1)
ds.Value = 1
ds.Copy
Selection.PasteSpecial Paste:=xlAllExceptBorders, Operation:=xlMultiply
ds.Delete
Application.CutCopyMode = False
Set ds = Nothing
End Sub

回答No.2

taocat · ベストアンサー

こんにちは。

相変わらず色んなことにトライしてますねぇ。
感心します。

ヘルプ、ご覧になりましたか？

そこに答えが！(^o^)/~

------------------------------------------

　　xlAllExceptBorders

ではなくて

　　xlPasteAllExceptBorders

------------------------------------------

それから、このことについては
マイクロソフト技術情報サイトにも載ってますが、
それはご自分で探してみませう。。(^^;

以上です。

お礼

あ、taocatさま、先日のご助言ありがとうございました。おかげさまで高速化に成功しました。（http://odn.okwave.jp/kotaeru.php3?q=2200236）
この方法でいいんですよね？実証データも載ってますのでアドバイスいただけると幸いです。

VBEのヘルプ見ました。
「使用できる定数は、XlPasteType クラスの xlPasteAll、xlPasteFormulas、xlPasteValues、xlPasteFormats、xlPasteNotes、xlPasteAllExceptBorders のいずれかです。既定値は xlPasteAll です。」となってました。すみません。
でも、どうしてマクロの記録ではxlAllExceptBordersやxlAllとでるのでしょうね？バグでしょうか？
・・・・と思ったら、

> マイクロソフト技術情報サイトにも載ってますが、
> それはご自分で探してみませう。。(^^;

という、道士様のありがたいお言葉でしたので、
http://support.microsoft.com/default.aspx?scid=kb;ja;415379
[XL2000]マクロ記録でPasteSpecialの引数Pasteが正しく記録されない

も発見することが出来ました。
これからもご指導のほど、よろしくお願いもうしあげまする。