表头(单元格)查找与定位

最新推荐文章于 2024-08-08 16:43:27 发布

代号4101

最新推荐文章于 2024-08-08 16:43:27 发布

阅读量4.3k

点赞数 1

分类专栏： Excel/VBA 文章标签： excel

本文链接：https://blog.csdn.net/code4101/article/details/50733583

版权

本文介绍了Excel的查找功能及其在VBA中的应用，特别讨论了因‘After+合并单元格’设计导致的问题，并提出了解决方案。通过自封装Find方法，优化了查找表头特别是多级表头时的效率。同时，文章提供了VBA查找功能的接口，包括findcel、findrow和findcol函数，用于返回查找的单元格、行和列。在使用这些功能时，建议根据表格复杂性进行位置检查，确保定位准确性。

摘要由CSDN通过智能技术生成

1 Excel的查找功能

　　VBA中应用于Range对象的Find方法，实际上就是Excel中”Ctrl+F”出来的查找窗口。这个查找功能有一个bug（应该是“参数After+合并单元格”的设计缺陷引发的），以在Excel中查找为例，如下图：
查找不到的例子
　　故为了在VBA中对Range使用Find方法的鲁棒性，自己封装个类Find方法后开发程序会更方便，简化定位单元格时需要书写的代码量。
　　不过，开发这一系列的函数，更主要的原因是解决一些常见麻烦：单元格查找，其实大部分时候都是应用于表头查找，而表头查找会有个多级表头问题。在处理多工作表数据时，还时常会遇到逻辑上是一样的字段，但名称有差异（如”身份证”、”身份证号码”），给数据自动汇总带来不便。
　　对bug的修复，只需加个if语句。而对于常见麻烦，我采用了一些特殊的设计理念来解决，详见函数的使用方法。由于功能本身带有一定模糊性，实际工作中，遇到比较复杂的表格时，最好检查下函数定位的位置是否正确（笔者也正在思考如何制作小工具进行高效快速检查）。

2 VBA查找功能开发

　　接口主要是findcel，findrow，findcol三个函数，它们依次返回的是要查找的单元格本身，单元格所在行，单元格所在列。找不到时findcel返回Nothing，findrow和findcol则返回0。
　　输入参数的规则是一样的：第1个参数st是要查找的工作表，第2个参数name是要查找的值，函数会优先按照“单元格匹配”的规则进行查找，找不到的情况下，会去掉“单元格匹配”再进行查找。

'代码更新于2015年07月30日
Function findcol(ByVal st As Worksheet, ByVal name As String, Optional ByVal partName As String) As Long
    Dim t As Range
    Set t = findcel(st, name, partName)
    If t Is Nothing Then
        findcol = 0
    Else
        findcol = t.Column
    End If
End Function

Function findrow(ByVal st As Worksheet, ByVal name As String,