学以致用——使用VBA查询并记录单元格在字典（总表）中所在的行号（Finding row number of the string containing another string）

最新推荐文章于 2023-06-15 10:07:39 发布

预见未来to50

最新推荐文章于 2023-06-15 10:07:39 发布

阅读量1.6k

点赞数

分类专栏： Excel技巧及VBA编程（Excel_VBA）学以致用—实用程序（iApps）数据分析（Data Analysis）

本文链接：https://blog.csdn.net/hpdlzu80100/article/details/80530453

版权

数据分析（Data Analysis）同时被 3 个专栏收录

422 篇文章 39 订阅

订阅专栏

Excel技巧及VBA编程（Excel_VBA）

404 篇文章 171 订阅

订阅专栏

学以致用—实用程序（iApps）

94 篇文章 2 订阅

订阅专栏

为了整理VBA关键字列表，竟然促成了本文的VBA。原因很简单，现在很多Excel操作我都不想吭哧吭哧手动编辑半天了，宁可花两三小时苦思冥想一个自动化的解决方案不可。喜哉，悲哉？长远来看，肯定是好事了！

VBA代码：

Sub RowNumberLookup()
For Each keyword In Range("vl_keywords")
    For Each mergedCell In Range("vl_mergedCells")
        If InStr(1, mergedCell, keyword, vbTextCompare) > 0 Then
            ActiveSheet.Range("C" & keyword.row).Value = mergedCell.row
            Exit For
        End If
    Next
Next
End Sub

几行代码，可以解决大问题！辛苦半天值了！