数据太多需要用VBA 帮忙多纵行条件比对 条件达成V 否则 X

zhang139

帮忙多条件比对 条件达成V  否则 X

鄂龙蒙

文件.rar (21.26 KB, 下载次数: 10)

2024-1-15 04:56 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.15
   
2.     Set ws = ThisWorkbook.Sheets("Sheet1")
   
3.     arr = ws.UsedRange
   
4.     For j = 4 To UBound(arr, 2)
   
5.         st = arr(1, j) & arr(2, j) & arr(3, j) & arr(4, j) & arr(5, j)
   
6.         For i = 6 To UBound(arr)
   
7.             m = 0
   
8.             If InStr(st, arr(i, 1)) Then m = m + 1
   
9.             If InStr(st, arr(i, 2)) Then m = m + 1
   
10.             If InStr(st, arr(i, 3)) Then m = m + 1
    
11.             If m = 3 Then arr(i, j) = "V" Else arr(i, j) = "X"
    
12.         Next
    
13.     Next
    
14.     ws.UsedRange = arr
    
15. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

山海风云轩

学习一下   

剑指E

zhang139

ykcbf1100 发表于 2024-1-15 08:39
附件供参考。。。

谢谢老师帮忙

saghj

学习。。。。。

gwjkkkkk

写个公式。。。

gwjkkkkk

D6=，右拉下拉

1. =IF(SUM(($A6:$C6=D$1:D$5)*1)=3,"V","X")

复制代码

数组三键