条件付き書式で設定したセル色を固定化して貼り付ける (Excel 2013)

PasteDisplayInterior.vba

Sub PasteDisplayInterior()

    Set wsh = CreateObject("WScript.Shell")
    
    cmd = "Powershell -sta -command " _
        & """" _
          & " Add-Type -an System.Windows.Forms; " _
          & " $a = [System.Windows.Forms.Clipboard]::GetData('HTML Format');  " _
          & " [System.Windows.Forms.Clipboard]::Clear(); " _
          & " [System.Windows.Forms.Clipboard]::SetData('HTML Format', $a); " _
        & """"

    wsh.Run cmd, 0, True

    ActiveSheet.Paste

End Sub