根据条件设置单元格为空

华尔街操盘手 · 发表于 2024-10-24 13:42

hymjtc 发表于 2024-10-24 12:45
VBA我会操作，但是不会写编码，所以，只能拜托老师了，先谢过了

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
Range("A" & i & ":E" & i).ClearContents
End If
Next i
End Sub

复制代码

ericxzhou · 发表于 2024-10-24 13:54

Python+Pandas:
import pandas as pd

df = pd.read_excel('Sample521.xlsx')
df = df.set_index('批号', append=True, drop=False)
lst = df[df['本批次剩余'].str.contains('还剩0盒')].index.get_level_values(1).to_list()
idx = pd.IndexSlice
df.loc[idx[:, lst], '本批次剩余'] = ''
df.droplevel(1)

hymjtc · 发表于 2024-10-24 15:52

ericxzhou 发表于 2024-10-24 13:54
Python+Pandas:
import pandas as pd

对，就是这个效果，老师，这是VBA代码吗，我复制就可以了吧

ericxzhou · 发表于 2024-10-24 15:55

hymjtc 发表于 2024-10-24 15:52
对，就是这个效果，老师，这是VBA代码吗，我复制就可以了吧

不是VBA，百度搜一下Python+Pandas

hymjtc · 发表于 2024-10-25 08:51

ericxzhou 发表于 2024-10-24 15:55
不是VBA，百度搜一下Python+Pandas

那太深奥了，搞不来啊

mjm04 · 发表于 2024-10-25 09:34

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

版本低了，里面那个函数都不是2016或2019能用的

=====================================
换WPS最新版；老师是在WPS里写的呢

mjm04 · 发表于 2024-10-25 09:34

晚风风发表于 2024-10-22 11:40
直接用条件格式把字体颜色变白

好思路！！简单又粗暴！！！！

hymjtc · 发表于 2024-10-25 13:45

mjm04 发表于 2024-10-25 09:34
好思路！！简单又粗暴！！！！

还是感觉那位老师做的VBA挺好，只是他的是全部删除，我想要的是E列里达到设置条件的清空

你是那块小饼干 · 发表于 2024-10-25 14:11

要删除列只有VBA才可以

hymjtc · 发表于 2024-10-25 14:39

你是那块小饼干发表于 2024-10-25 14:11
要删除列只有VBA才可以

不是删除列，是E列里面，若结果等于0，则E列中所有那个批号的单元格清空，不知道我这样表述，能不能让人明白

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

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

评分

评分