将数据从源表粘贴到目标表后转换值

Question

我正在尝试将动态范围复制到另一个工作簿中，但是整数格式的粘贴值需要更改为下拉列表中的特定文本，即。源表单元的动态范围中的值“1”需要在目标表单元格中粘贴为“1-Rare”。下面是我需要提供代码以满足上述要求的代码;尝试使用功能，但没有收益:(

'***********复制影响数据（人日）标题********'

srcImpact = Range("A2:Z15").Find(What:="Impact (Person Days)", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Column
Range((Cells(srcCat.row + 1, srcImpact).Address) & ":" & Range(Cells(srcLastRow, srcImpact).Address).Address).Copy
destWBHandle.Sheets(ObjRiskPlanxlsheet).Range((Cells(destMitiAndRiskRow, destImpact).Address)).PasteSpecial xlPasteValues
Application.CutCopyMode = False