VBA不用sheets.select的方式带格式复制粘贴

在VBA中，如果你想要复制某个工作表中的带格式内容而不需要显式地选择工作表，你可以直接操作具体的范围（Range）。下面是一个示例，展示了如何使用工作簿（Workbook）对象的`Worksheets`集合以及`Copy`和`PasteSpecial`方法来完成这个任务：

Sub CopyAndPasteWithoutSelectingSheets()
    Dim wsFrom As Worksheet
    Dim wsTo As Worksheet
    Dim rngToCopy As Range

    ' 设置要复制的工作表和目标范围
    Set wsFrom = ThisWorkbook.Worksheets('Sheet1') ' 替换为实际的源工作表名
    Set rngToCopy = wsFrom.Range("A1:B10") ' 替换为源数据区域

    ' 获取目标工作表并设置目标范围
    Set wsTo = ThisWorkbook.Worksheets('Sheet2') ' 目标工作表名
    Set rngToPaste = wsTo.Range("C1") ' 或者直接赋值给一个变量

    ' 不用显式选择工作表，直接复制格式并粘贴
    rngToCopy.Copy Destination:=rngToPaste, Format:=True
End Sub

在这个例子中，我们没有使用`Sheets.Select`，而是直接操作了`wsFrom`和`wsTo`的范围。这样做的好处是可以避免不必要的工作表切换，提高代码效率。