可以用usedrange来pastervalue嘛

`UsedRange` 是Excel VBA中的一种特殊范围对象，它表示当前活动单元格所在的整个工作表中的已填充数据部分。如果你想通过 `UsedRange` 范围进行 `PasteValue` 操作，可以这样做：

Sub PasteValueFromUsedRange()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 设置为当前活跃的工作表

    ' 获取当前活动工作表的 UsedRange
    Dim usedRange As Range
    Set usedRange = ws.UsedRange

    ' 如果你想将整个 UsedRange 的值复制到新的位置
    If usedRange.Rows.Count > 0 And usedRange.Columns.Count > 0 Then
        ' 复制整个 UsedRange
        usedRange.Copy
        
        ' 粘贴到新位置，这里假设为目标工作表的 A1
        ws.Cells(1, 1).PasteSpecial xlPasteValues ' 直接粘贴值
        ws.Cells(1, 1).Select ' 如果需要手动选择粘贴的位置，这行可选
        Application.CutCopyMode = False ' 关闭剪切模式
    Else
        MsgBox "UsedRange is empty or null."
    End If
End Sub

这个例子中，如果 `UsedRange` 区域有数据，会将其所有值复制并粘贴为值。如果没有数据，则会显示提示。