如下表所示,凡是含有公式的单元格都要添加批注,批注的主要内容是单元格的公式。如果手动添加,则费时费力且容易出错,而使用VBA程序添加倒是简单快捷。
工具/原料
计算机
Excel2010
方法/步骤
1、打开Excel表格,按下【Alt+F11】组合键打开VBA编辑器。
2、在VBA编辑器上面点击【插入】、【模块】。
3、在模块的代码框里面输入以下VBA程序代码,然后按下【F5】键运行程序。Subad蟠校盯昂dco()Dimstr吭稿荔徊1,str2,mycellOnErrorResumeNext'忽略运行过程中可能出现的错误Setmysheet1=ThisWorkbook.Worksheets("Sheet1")'定义工作表Setmyrange=mysheet1.Range("A2:F1000")'定义单元格区域A2:F1000ForEachmycellInmyrange'对单元格区域里面的每一单元格执行一次Ifmycell<>""Then'如果单元格不是空白,则str1=mycell.Formula'获取单元格里面的字符str2=Left(str1,1)'在获取的公式里边截取左侧的一个字符Ifstr2="="Then'如果获取的字符含有=(公式),则mycell.AddCommentText:=str1'单元格添加批注,批注的内容为单元格的公式EndIfEndIfNextEndSub
4、程序代码解读:(1)ForEach…In…函数主要是对某一范围里面的元素都执行一次,碌巫谫浪执行完成后退出,即:mycell是myrange里面的一个元素,是一个变量;(2)Lef墉掠载牿t函数是从左侧开始截取字符串指定的个数,如果截取的字符里面没有“=”,说明单元格不是公式计算,也就不需要添加到批注里面。
5、回到Excel工作表界面,有公式的单元格将会自动添加注释和单元格的公式。