学习Excel技术，关注微信公众号：excelperfect
标签：VBA将某工作表中的格式转换到另一个工作表示例代码：Sub TransferFormat() '源格式工作表 Dim sht1 As Worksheet '要应用格式的工作表 Dim sht2 As Worksheet Set sht1 = ThisWorkbook.Worksheets("Sheet1") sht1.Cells.Copy '创建新工作表 Set sht2 = ThisWorkbook.Worksheets.Add '首先粘贴值 sht2.Cells.PasteSpecial xlPasteValues '然后粘贴格式 sht2.Cells.PasteSpecial xlPasteFormats '给新工作表命名 sht2.Name = "New"End Sub选择单元格有多种方法可供挑选，看你的喜好或所用的环境。例如，选择当前工作表单元格D5：ActiveSheet.Cells(5, 4).Select或者：ActiveSheet.Range("D5”).Select选择另一个工作表中的单元格E6：Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)或者：Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))或者，先激活该工作表再选择：Sheets("Sheet2").Ac
………………………………
