Excelの条件付き書式のコピー

質問

Excel2007で条件付き書式でセルの色と罫線を設定しているセルがあります。
このセルをコピーして別シートに貼りつける際に、条件付き書式に合致して設定されている書式を条件なしで、そのままコピー出来ないでしょうか。
拙い説明で分かりにくいですが、イメージとしては計算式で数値が表示されているセルがある時に、計算式がいらない場合は、セルをコピーして値の貼付を行って数値だけを持っていくのと同じような事が条件付き書式でも出来ないか、と言う事です。

回答No.4

end-u

一応、Win32APIを使わない簡易版もあります。
'-----------------------------------------------------------
Option Explicit
Sub try2() '条件付き書式があるシートをActiveにして実行。
　　Dim ws　As Worksheet
　　Dim tmp As String
　　Dim buf As String
　　Dim n　 As Long

　　Application.ScreenUpdating = False
　　'作業用mhtファイル名を設定。 _
　　 同名既存ファイルがあれば上書きするので注意。
　　tmp = Application.DefaultFilePath & "\temp.mht"
　　Set ws = ActiveSheet
　　ActiveWorkbook.PublishObjects.Add( _
　　　　　　xlSourceSheet, tmp, _
　　　　　　ws.Name, "", _
　　　　　　xlHtmlStatic).Publish True

　　'作業用mhtファイルOpen。
　　n = FreeFile
　　Open tmp For Input As #n
　　buf = StrConv(InputB(LOF(n), #n), vbUnicode)
　　Close #n

　　'---置換作業---
　　'途中改行があれば削除。
　　buf = Replace$(buf, "=" & vbCrLf, "")
　　'とにかく"ignore:"を消せばいいかな。
　　buf = Replace$(buf, "mso-ignore:", "")
　　'--------------

　　'作業ファイル書き込み直してOpen。
　　n = FreeFile
　　Open tmp For Output As #n
　　Print #n, buf
　　Close #n

　　Workbooks.Open tmp
　　Set ws = Nothing
　　Application.ScreenUpdating = True
End Sub
'-----------------------------------------------------------
[Webページとして発行]した後に開き直すだけですけど。
（2003以前のバージョンは書式固定の為に置換してます）
マクロ実行後、mhtファイルが開きますから必要なセル範囲をコピーしてください。
処理済んだらmhtファイルは手動で削除してください。
（カレントフォルダに保存されています）