根据条件设置单元格为空

hymjtc · 发表于 2024-10-22 10:48

各位老师，我想就是在E列里面，当某个批号的数量剩余数量等于0之后，包含这个批号的E列所有单元格都显示为空，需要怎么操作，请教一下各位大咖

华尔街操盘手 · 发表于 2024-10-28 15:34

hymjtc 发表于 2024-10-25 15:33
想要这样的效果，能帮我实现吗，谢谢

Sub blank()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.count, "B").End(xlUp).Row
Dim i As Long
Dim batchNumber As String
Dim searchString As String
Dim foundCell As Range
' 从最后一行开始向上遍历，以避免在删除行时影响未检查的行
For i = 1 To lastRow Step 1
batchNumber = ws.Cells(i, "B").Value
searchString = batchNumber & "还剩0盒"
' 在D列中查找拼接后的字符串
Set foundCell = ws.Columns("E").Find(What:=searchString, LookIn:=xlValues, LookAt:=xlWhole)
' 如果找到了，删除整行
If Not foundCell Is Nothing Then
Range("E" & i).ClearContents
End If
Next i
End Sub

复制代码

edwin11891 · 发表于 2024-10-22 11:29

直接在原数据上清除，只能上VBA，函数无法做到。

=LET(t,REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,IF(REGEXP(y,"(剩)\K\d+(?=盒)")="0",y,"")))),s,LEFT(UNIQUE(FILTER(t,t<>"",)),6),a,DROP(REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,IF(XLOOKUP(LEFT(y,6),s,SEQUENCE(ROWS(s)),0,0)>0,"",y)))),1),VSTACK(A1:E1,HSTACK(A2:D315,a)))

复制代码

edwin11891 · 发表于 2024-10-22 11:38

如果只想对E列作分析，F2填入下面公式即可：

=LET(t,REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,IF(REGEXP(y,"(剩)\K\d+(?=盒)")="0",y,"")))),s,LEFT(UNIQUE(FILTER(t,t<>"",)),6),DROP(REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,IF(XLOOKUP(LEFT(y,6),s,SEQUENCE(ROWS(s)),0,0)>0,"",y)))),1))

复制代码

晚风风 · 发表于 2024-10-22 11:40

直接用条件格式把字体颜色变白

=--REGEXP($E1,"\d+(?=盒)")=0

复制代码

hymjtc · 发表于 2024-10-23 09:45

edwin11891 发表于 2024-10-22 11:38
如果只想对E列作分析，F2填入下面公式即可：

老师，您的公式我复制上去不行呢

江声依旧 · 发表于 2024-10-23 10:22

看这是不是你要的效果

ovxyz · 发表于 2024-10-23 10:31

=IF(ISERROR(FIND("还剩0盒",E50)),E50,"")

还是必须在原来得列上操作啊？

edwin11891 · 发表于 2024-10-23 10:52

hymjtc 发表于 2024-10-23 09:45
老师，您的公式我复制上去不行呢

EXCEL的话用下面的公式，原公式里面的REGEXP函数为WPS独有，不适用于EXCEL。

=LET(t,REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,IF(Textbefore(Textafter(y,"剩"),"盒")="0",y,"") ))),s,LEFT(UNIQUE(FILTER(t,t<>"",)),6),DROP(REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,IF(XLOOKUP(LEFT(y,6),s,SEQUENCE(ROWS(s)),0,0)>0,"",y)))),1))

复制代码

如果还有问题，那就是版本的问题了。

江声依旧 · 发表于 2024-10-23 12:02

刚才的搞错了。更新

mykitami · 发表于 2024-10-23 12:26

=LET(a,DROP(REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,--TEXTSPLIT(y,{"还剩","盒"},,1)))),1),b,FILTER(TAKE(a,,1),TAKE(a,,-1)=0),IF(BYROW(FIND(TOROW(b),E2:E315),COUNT),"",E2:E315))

		自动登录	找回密码
密码			免费注册

[求助] 根据条件设置单元格为空

评分