excel双条件区域内查找返回单元地址,在线等,急!谢谢

发布网友 发布时间：2023-08-16 05:47

我来回答

共5个回答

热心网友 时间：2024-12-03 19:18

1、点顶部的“开发工具”，

2、点“Visual Basic”打开VB编辑器，

3、点你要工作表名，（黑色箭头只是提醒你不要点错了表名）

4、在右侧输入或粘贴代码

OK，现在可以关闭VB编辑器了，不关也可以！

现在去表中试试效果，只要在B2至C5范围内，单击任意一个单元格，你所单击的行的B列和C列单元格的关键词，只要在A列单元格内同时包含，A列单元格就会标记红色。

方便你复制，粘出代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    x = Target.Row 'x指点击目标的行号
    y = Target.Column 'y指点击目标的列号(数字序号)
    If x >= 2 And x <= 5 And y >= 2 And y <= 3 Then
        r = [A65536].End(3).Row '赋值r=A列最后一个数据所在的行号
        Range("A2:A" & r).Interior.Color = xlNone '清除A2至Ar原有的背景颜色
        Dim i As Integer '定义i为整数型
        For i = 2 To r '遍历第2至第r行
            a = Replace(Range("A" & i), Range("B" & x), "") '在Ai中把Bx替换为空
            b = Replace(Range("A" & i), Range("C" & x), "") '在Ai中把Cx替换为空
            If Range("A" & i) <> a And Range("A" & i) <> b Then '如果Ai不等于a并且不等于b那么
                Range("A" & i).Interior.Color = 255 '将Ai背景颜色标记为红色
            End If
        Next
    End If
End Sub

热心网友 时间：2024-12-03 19:19

在D1中输入或复制粘贴下列公式

=IF(COUNTBLANK($B1:$C1)=0,INDEX($A:$A,SMALL(IF(COUNTIF($A$1:$A$23,"*"&$B1&"*")*COUNTIF($A$1:$A$23,"*"&$C1&"*")>0,ROW($1:$24),4^8),COLUMN(A1)))&"","")

按三键CTRL+SHIFT+ENTER结束输入

下拉填充，右拉填充

热心网友 时间：2024-12-03 19:19

VBA VBA VBA VBA VBA

热心网友 时间：2024-12-03 19:20

说的不清楚。

热心网友 时间：2024-12-03 19:21

再急也要说清楚，你要具体的结果是什么，否则大家只能告诉你模糊说法。