Excel获取单元格批注

Microsoft Office中的Excel软件有着强大的数据统计分析功能，最近自己碰到一个问题，需要将一列单元格中的批注提取到另外的一列中去。如果数量比较少大可以通过“Ctrl+C”和“Ctrl+V”来实现，但是面对成百上千行数据的就出现麻烦了。自己就在网上搜索了一些关于此方面的资料，发现Excel有两个方面的应用非常实用：VBA和宏表函数，这里只是举出其中两个简单的例子，如有兴趣可以深究。

一、获取单元格批注

VBA全称为：Visual Basic for Applications，是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。虽然这种语言较为古老，但在Microsoft Office软件风靡全球的情形下还是有很大的应用价值，特别是一些用户非常熟悉了Excel的操作界面之后就对它有着非常大的依赖性，通过Excel自带的VBA程序来对数据进行处理可以带来极大的方便。
下面就讲讲如何通过VBA获取单元格的一个小例子，主要参考了http://club.excelhome.net/forum.php?mod=viewthread&tid=938019中5楼“xinhunter”发的帖子来实现的。
如下图所示，A列中有多行带有批注的单元格，如何将A列中的单元格都提取到对应的E列中来呢？通过如下的几个步骤可以成功地获取单元格批注。



1、 打开VBA，新建模块，创建用户自定义函数，如下图所示：



2、 编写自定义函数GetComment()

Function GetComment(myRange As Range) As String
GetComment = myRange.Comment.Text
End Function
如下图所示：



3、 调用自定义函数GetComment()。在E1的编辑框中输入：=GetComent(A1),选定之后按“F9”，就会变成如下的情况：



按“F9”调用GetComment()函数之后，成功获取批注如下：



4、 调用SUBSTITUTE()函数，去掉多余文本

从上图可以看出，E1单元格中已经成功地将A1中的批注获取到了，但是包含了当前编辑者的姓名，如上图中的“ZKH：”，可以通过调用如下函数去掉多于的用户名文本。如下图所示：





5、拖拽填充柄，依次获取单元格批注



二、获取某路径下文件名

除了Excel自带的函数以及通过VBA自定义的函数之外，我们在Excel中有可能用到的一种函数叫做“宏表函数”，以下也通过一个具体的应用小例子来简单演示。
在应用过程中，也许会碰到将一堆文件的名字加以统计起来的需求，如果文件数较多的时候是个麻烦的事情，Excel中自带的宏表函数可以很轻松地解决类似这样的问题，主要以下操作步骤：

1、 定义新名称
通过“公式→定义新名称”，定义一个“myfile”的宏表函数，其中名称myfile调用了Excel中自带的“FILES()”的函数，如下所示：



2、 调用myfiles()，在C1输入“=myfile”按“F9”

路径文件如下：



运行效果如下：



3、 调整效果
如上图所示，将“D:\新建文件夹\”路径下的4个文件名都获取到C1的单元格中，能否将文件名逐个地依次获取到单元格呢？答案是可以的，我们还可以对指定的文件类型加以获取：
调用INDEX()函数，如下：



拖拽填充柄如下：



4、 加条件判断

如上图所示，下拉的单元格数超出了文件数的时候，容易出现错误乱码如“#REF!”，可通过IF条件函数加以判断如下：



5、 指定文件类型获取

如在myfiles名称中指定文件类型，所定义的宏表函数可只获取指定的文件名列表，如下指定.xls文件类型：



结果如下：



2014-10-27，为了每次使用方便，通过代码创建以上名称以及调用：

//VBA,运行宏创建名称：

Sub myFile()

' 获取路径下所有文件名'

ActiveWorkbook.Names.Add Name:="myfile", RefersToR1C1:= _

"=FILES(""C:\Users\ZKH\Desktop\2014-10-20\*.*"")"

ActiveWorkbook.Names("myfile").Comment = ""

End Sub

//调用

=IF(ROW()>COUNTA(myfile),"",INDEX(myfile,ROW()))