我想从某个范围复制并粘贴值到使用输入框选择的目标范围。它基本可以工作,但目标范围的旧格式丢失了 [下图附加链接中的第 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