excel中遍历与同行其他列内容相同的其他sheet中的A列并获取对应行B列内容

最新推荐文章于 2021-01-15 04:19:09 发布

jordanlast

最新推荐文章于 2021-01-15 04:19:09 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/jordanlast/article/details/18085563

其他专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个VBA自定义函数的实现方法，该函数用于在Excel中根据指定单元格的内容，在另一个区域查找并返回相应的值。通过具体示例展示了如何定义及调用此自定义函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

自定义函数如下

Function sjxmj(compareCell, compareArea, valSourceArea)
     Dim DataRange As Variant
     Dim DataRangeB As Variant
     Dim Irow As Long
     Dim MaxRows As Long
     Dim Icol As Integer
     Dim MaxCols As Long
     Dim MyVar

     sjxmj = ""
     DataRange = compareArea.CurrentRegion.Value
     DataRangeB = valSourceArea.CurrentRegion.Value
     MaxRows = compareArea.CurrentRegion.Rows.Count
     For Irow = 1 To MaxRows
             MyVar = DataRange(Irow, 1)
             If MyVar = compareCell Then
                 sjxmj = sjxmj + "," + DataRangeB(Irow, 1)
             End If
     Next Irow
     If Len(sjxmj) > 0 Then
        sjxmj = Mid(sjxmj, 2)
     End If
End Function