VBA基础：复制格式、选取单元格及复制工作表的示例代码

fanjy

发布于 2024-05-25 08:56:50

50000

代码可运行

文章被收录于专栏：完美Excel完美Excel

运行总次数：0

代码可运行

标签：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").Activate
ActiveSheet.Cells(6, 5).Select

选择当前工作表中的单元格区域C2:D10：

ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select

或者：

ActiveSheet.Range("C2:D10").Select

或者：

ActiveSheet.Range("C2", "D10").Select

或者：

ActiveSheet.Range(ActiveSheet.Cells(2, 3), ActiveSheet.Cells(10, 4)).Select

或者更简化的：

Range(Cells(2, 3), Cells(10, 4)).Select

选择另一个工作表中的单元格区域D3:E11：

Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")

或者，先激活该工作表再选择：

Sheets("Sheet3").Activate
ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select

选择不同工作簿中的单元格区域：

Application.Goto Workbooks("Book2.xlsm").Sheets("Sheet1").Range("E4:F12")
Application.Goto Workbooks("Book2.xlsm").Sheets("Sheet1").Range("E4", "F12")

或者，先激活再选择：

Workbooks("Book2.xlsm").Sheets("Sheet1").Activate
ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select

保存某工作表作为副本

示例代码如下：

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