使用 VLookup 后如何復制/粘貼值

Question

我有一個 VLookup 功能，我使用.value而不是.formula來刪除 Vlookup 引用。 但是，當我單擊該字段時，VLookup 公式仍然存在。 刪除公式的正確方法是什么？ copy / paste special Values ？

Dim WbScorecard As Workbook
Set WbScorecard = Workbooks("M6 SCORECARD TEMPLATE.xlsm")
    
Dim WsWeeklyDiv As Worksheet
Set WsWeeklyDiv = WbScorecard.Worksheets("Weekly Division")
       
With WsWeeklyDiv
  'VLookup Group Data
  Dim VLookupWkDiv As String
                VLookupWkDiv = "=VLOOKUP(I15,'[M6 SCORECARD-Vlookups.xlsm]WEEKLY DIVISION'!$C:$D,2,FALSE)"
    
  Dim VLookupWkDiv2 As String
                VLookupWkDiv2 = "=VLOOKUP(I15,'[M6 SCORECARD-Vlookups.xlsm]WEEKLY DIVISION'!$C:$E,3,FALSE)"
    
  Dim Target As Range
  Set Target = .Range("A15", .Range("A" & .Rows.Count).End(xlUp))
    'VLookup in "J15"
    Set Target = Target.Offset(, 9)
      Target.Value = VLookupWkDiv
            
    'VLookup in "K15"
    Set Target = Target.Offset(, 1)
       Target.Value = VLookupWkDiv2
                    
End With

Answer 1

Set Target = Target.Offset(, 9)

' set target cell's formula
Target.Formula = VLookupWkDiv

' set the value/result of the formula
' to the value of the cell
Target.Value = Target.Value