使用Excel的宏可以帮助我们自动执行重复性的任务 ， 提高工作效率 。下面是三个使用Excel宏的例子及其对应的宏代码解释 。
1、自动填充日期
如果你需要在Excel中输入一些日期，可以使用以下宏来自动填充当前日期 。
代码：
Sub InsertDate()
'Insert the current date in the active cell
【如何使用Excel的宏来提升效率】ActiveCell.Value = https://www.itzhengshu.com/excel/Date
End Sub
在Excel中按下Alt F11打开Visual Basic Editor，将上面的代码粘贴到一个新的模块中，保存后返回Excel并按下快捷键Alt F8来执行该宏 。这将在当前单元格中插入当前日期 。
2、快速插入图表
如果你需要频繁插入相同类型的图表，可以使用以下宏来自动创建图表 。
代码：
Sub CreateChart()
'Create a chart using data from cells A1 to B10
Range("A1:B10").Select
ActiveSheet.Shapes.AddChart2(227, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$10")
End Sub
该宏将从单元格A1到B10中的数据创建一个柱形图 。在Visual Basic Editor中创建该宏并将其保存 。在Excel中按下快捷键Alt F8，选择CreateChart并执行它 。
3、过滤和复制数据
如果你需要将一个表中的某些行复制到另一个表中 ， 可以使用以下宏来实现 。
代码：
Sub FilterCopy()
'Filter data in column A and copy the rows to a new sheet
Dim sht1 As Worksheet, sht2 As Worksheet
Set sht1 = Worksheets("Sheet1")
Set sht2 = Worksheets.Add
sht2.Name = "FilteredData"
sht1.Range("A1:B10").AutoFilter Field:=1, Criteria1:="Yes"
sht1.Range("A2:B10").SpecialCells(xlCellTypeVisible).Copy Destination:=sht2.Range("A1")
End Sub
该宏将过滤Sheet1中A列中包含"Yes"的行 ， 并将它们复制到新的工作表"FilteredData"中 。在Visual Basic Editor中创建该宏并将其保存 。在Excel中按下快捷键Alt F8 ， 选择FilterCopy并执行它 。
使用Excel宏可以帮助我们自动执行重复性的任务，从而提高工作效率 。