Excel宏的录制和解密

大家好，又见面了，我是你们的朋友全栈君。

本篇演示的Excel版本：Excel 2019 本篇演示一个简单的宏的录制。 实现的效果是将 Sheet1 的A 列 复制到到Sheet2 的 A 列。

在这里插入图片描述

宏的录制和保存步骤

1. 打开Excel
2. 点击上方菜单的 “视图”， 点击 “宏 ”， 在下拉菜单中选择录制宏。

在这里插入图片描述

1. 在弹出对话框中，给宏取个名字后点击“确定”

在这里插入图片描述

1. 在Sheet1 中选择 A 列， 复制后粘贴到 sheet 2的A列， 在到“宏” 菜单中点击“停止录制”

在这里插入图片描述

1. 在点击保存的时候会弹出一个提示框，注意： 如果要保存宏， 要点击“否”。 保存文件的格式为 .xlsm。

在这里插入图片描述

也可以点击“另存为”保存为.xlsm 。

在这里插入图片描述

Excel在后续的版本中，要保存宏的Excel 就需要特定后缀的文件（.xlsm）， 即启用宏的Excel 。 .xlsx 文件是不能保存宏的， 保存后再次打开会发现宏不见了。

测试运行

1. 打开保存的.xlsm 文件， 清除sheet2 中的内容
2. 点击“查看宏”

在这里插入图片描述

1. 在弹出的窗口中可以看到上面录制的宏， 点击“执行”按钮

在这里插入图片描述

1. 运行之后， 可以看到内容从 sheet1的A 列复制到 sheet 2 的A 列。

宏的解密

录制的宏其实是一段VB 的代码， 还是通过“查看宏” > 编辑 就可以一窥真容了。

在这里插入图片描述

代码如下：

在这里插入图片描述

解读一下代码：

Sub myMacro()

    Columns("A:A").Select        ' 选择sheet1 的 A列
    Selection.Copy               ' 复制选择的部分
    Sheets("Sheet2").Select      ' 切换到sheet2
    Columns("A:A").Select        ' 选择sheet2的A列
    ActiveSheet.Paste            ' 粘贴
End Sub

• Sub … End Sub 是一个宏的开始和结束标志
• ' 引号用来注释
• Columns 代表Excel 的列，Sheets 是工作表

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/154073.html原文链接：https://javaforall.cn