EXCEL VBA复制含公式数据源替换为数值

方式一：.PasteSpecial Paste:=xlPasteValues
Sub Copy_Values()  '选择性粘贴为数值
    Dim v_Rows As Long   '行号
    Dim v_col As Integer '列号

    'Sheets("Sheet1").Select  '工作表 选择方式一
    Sheets(1).Select          '工作表 选择方式二
    
    v_col = 1
    If Cells(1, v_col).Value < 30 Then    '列第1个单元格值条件
       'Columns(1).Select
       'Sheets("Sheet1").Columns(1).Copy  '整列拷贝方式之一，较少用
       
       v_Rows = Sheets(1).UsedRange.Cells(Sheets(1).UsedRange.Rows.Count, v_col).Row  '最后一个非空单元格行号
       With Worksheets(1)
          '连带公式复制 '.Range(.Cells(1, v_col), .Cells(v_Rows, v_col)).Copy .Range(.Cells(1, v_col), .Cells

(v_Rows, v_col))
          
          '以下两句粘贴为数值操作
          .Range(.Cells(1, v_col), .Cells(v_Rows, v_col)).Copy  '粘贴为数值 先拷贝
          
          '选择性粘贴为数值
          .Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=