Excel VBA:宛先範囲の古い形式を失うことなく、入力ボックスからアドレスに値のみを貼り付けます
範囲からコピーし、inputboxで選択した宛先範囲にのみ値を貼り付けます。それはほとんど動作しますが、宛先範囲の古い形式は失われます[3番目と4番目の行は、以下の図の添付リンクの1番目の行と異なります]。 私が欲しいのは、コピーされた範囲からデータを貼り付けた後、古い形式が失われないことです。何か問題でもありますか? 私はxlPasteValuesを使用し、ここにコードがあります: Sub Ttdn_kc_154() Dim targetRange As Range Sheets("ps").Select If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If Sheets("httk").Select If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If ActiveSheet.Range("httk_kcKQKD_filter").AutoFilter Field:=1, Criteria1:="1" ActiveSheet.Range("httk_kcKQKD_filter").AutoFilter Field:=12, Criteria1:="<>0" If ActiveSheet.Range("httk_lockc1542ps").Value > 0 Then Range("httk_kcKQKD_datakc").Copy Set targetRange = Application.InputBox(prompt:="Please input or select a range", Type:=8) targetRange.PasteSpecial …