Excel VBA:仅将值从输入框粘贴到地址,而不会丢失目标范围内的旧格式

Excel VBA:仅将值从输入框粘贴到地址,而不会丢失目标范围内的旧格式

我想从某个范围复制并粘贴值到使用输入框选择的目标范围。它基本可以工作,但目标范围的旧格式丢失了 [下图附加链接中的第 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 Paste:=xlPasteValues
   [the 3rd and 4th row in attached picture link][1]

Application.CutCopyMode = False

End If

相关内容