根据条件设置单元格为空

hymjtc · 发表于 2024-10-23 12:59

mykitami 发表于 2024-10-23 12:26
=LET(a,DROP(REDUCE("",E2:E315,LAMBDA(x,y,VSTACK(x,--TEXTSPLIT(y,{"还剩","盒"},,1)))),1),b,FILTER(TAK ...

老师，提示我FILTER函数无效，是我的版本太低吗，哪个版本的支持呢

hymjtc · 发表于 2024-10-23 13:03

江声依旧发表于 2024-10-23 12:02
刚才的搞错了。更新

谢谢老师，辛苦了，可能是我的表述有问题吧，我是想让E列里剩余数量为零的时候，在E列包含那个批号的所有单元格清空，不知道能不能实现

hymjtc · 发表于 2024-10-23 13:06

edwin11891 发表于 2024-10-23 10:52
EXCEL的话用下面的公式，原公式里面的REGEXP函数为WPS独有，不适用于EXCEL。

老师，谢谢您，辛苦了，我把公式输进去，提示我FILTER函数不可用，可能是我的版本有问题，需要什么版本支持啊，如果用VBA怎么弄呀，不知道能不能实现这样的结果

mykitami · 发表于 2024-10-23 15:43

hymjtc 发表于 2024-10-23 12:59
老师，提示我FILTER函数无效，是我的版本太低吗，哪个版本的支持呢

新版wps
M365

华尔街操盘手 · 发表于 2024-10-23 16:47

清楚原数据可以vba，公式的话在另外空白区域填写

=FILTER(A1:E315,DROP(REDUCE("",B1:B315,LAMBDA(x,y,VSTACK(x,OR(ISNUMBER(FIND(y&"还剩0盒",E1:E315)))<>TRUE))),1))

复制代码

hymjtc · 发表于 2024-10-23 16:51

华尔街操盘手发表于 2024-10-23 16:47
清楚原数据可以vba，公式的话在另外空白区域填写

老师，能帮我写一下VBA代码吗，因为公式我的版本低，不能用，拜托您了，非常感谢

华尔街操盘手 · 发表于 2024-10-23 19:03

hymjtc 发表于 2024-10-23 16:51
老师，能帮我写一下VBA代码吗，因为公式我的版本低，不能用，拜托您了，非常感谢

VBA会用吗，alt+f11打开，插入模块，复制粘贴以下代码

Sub DeleteRowsWithZeroBoxes()
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
ws.Rows(i).Delete
i = i - 1
End If
Next i
End Sub

复制代码

uneye2 · 发表于 2024-10-23 20:03

123.rar (35.32 KB, 下载次数: 1)

hymjtc · 发表于 2024-10-24 12:42

华尔街操盘手发表于 2024-10-23 19:03
VBA会用吗，alt+f11打开，插入模块，复制粘贴以下代码

老师，谢谢您，辛苦了，就是类似的效果，只是，我想的是让E列里达到条件的时候，清空E列的单元格内容，不是删除所有行，您能在帮我改一下么，拜托了

hymjtc · 发表于 2024-10-24 12:45

华尔街操盘手发表于 2024-10-23 19:03
VBA会用吗，alt+f11打开，插入模块，复制粘贴以下代码

VBA我会操作，但是不会写编码，所以，只能拜托老师了，先谢过了

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

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