标签：VBA
将某工作表中的格式转换到另一个工作表
示例代码：
代码语言：javascript复制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：
代码语言：javascript复制ActiveSheet.Cells(5, 4).Select或者：
代码语言：javascript复制ActiveSheet.Range("D5”).Select选择另一个工作表中的单元格E6：
代码语言：javascript复制Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)或者：
代码语言：javascript复制Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))或者，先激活该工作表再选择：
代码语言：javascript复制Sheets("Sheet2").Activate
ActiveSheet.Cells(6, 5).Select选择当前工作表中的单元格区域C2:D10：
代码语言：javascript复制ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select或者：
代码语言：javascript复制ActiveSheet.Range("C2:D10").Select或者：
代码语言：javascript复制ActiveSheet.Range("C2", "D10").Select或者：
代码语言：javascript复制ActiveSheet.Range(ActiveSheet.Cells(2, 3), ActiveSheet.Cells(10, 4)).Select或者更简化的：
代码语言：javascript复制Range(Cells(2, 3), Cells(10, 4)).Select选择另一个工作表中的单元格区域D3:E11：
代码语言：javascript复制Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")或者，先激活该工作表再选择：
代码语言：javascript复制Sheets("Sheet3").Activate
ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select选择不同工作簿中的单元格区域：
代码语言：javascript复制Application.Goto Workbooks("Book2.xlsm").Sheets("Sheet1").Range("E4:F12")
Application.Goto Workbooks("Book2.xlsm").Sheets("Sheet1").Range("E4", "F12")或者，先激活再选择：
代码语言：javascript复制Workbooks("Book2.xlsm").Sheets("Sheet1").Activate
ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select保存某工作表作为副本
示例代码如下：
代码语言：javascript复制Sub SaveasCopy()
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "" & Format(Now, "mm-dd-yy") & ".xlsx", FileFormat:=51
.Close SaveChanges:=False
End With
Application.ScreenUpdating = True
End Sub注：代码整理自vbaexpress.com，供有兴趣的朋友参考。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
