sht.copy 可以设置成value嘛

当你使用VBA中的`Copy`方法复制工作表 (`Worksheet`) 或者范围 (`Range`) 到另一个位置时，`copy`本身并不直接支持设置值 (Value)。但是，你可以通过以下步骤间接实现：

首先，复制源对象 (`sht.Range` 或 `sht.Cells`)，然后使用 `PasteSpecial` 方法，其中的一个选项就是将数据作为值粘贴 (`xlPasteValues`):

Sub CopyAndSetAsValue()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceRange As Range
    
    ' 假设sourceSheet是要复制的源工作表，sourceRange是你想复制的具体范围
    Set sourceSheet = ThisWorkbook.Sheets("SourceSheet")
    Set sourceRange = sourceSheet.Range("A1:C5")

    ' 将源范围复制到目标区域
    sourceRange.Copy Destination:=destinationSheet.Range("D1:F5") ' 假设目标区域是DestinationSheet的D1:F5
    
    ' 然后，将值粘贴到目的地，而不是格式或其他信息
    destinationSheet.Range("D1:F5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False ' 关闭剪切模式
End Sub

在这个例子中，`PasteSpecial` 的 `xlPasteValues` 参数确保了只复制数据内容，而不会保留格式等其他特性。