作者windknife18 (windknife18)
标题Re: [算表] 请教VBA 写法 感谢大神
时间Thu Aug 3 14:18:17 2023
没错，应该就是该列已经被删除了，可以将两个if合并起来
For i = lastRow To 1 Step -1
Set cell = Cells(i, "D")
If InStr(1, cell.Value, "小计", vbTextCompare) > 0 Then ' 判断 D 栏储
存格内容是否包含 "小计" 文字
Rows(i).Delete
ElseIf InStr(1, CStr(cell.Offset(0, -3).Value), "#N/A",
vbTextCompare) > 0 Then ' 判断同一列 A 栏的储存格内容是否包含 "#N/A" 文字
MsgBox ("有股票没有被定义到，请确认")
End If
Next i
End Sub
: 原本的用意是因为下载下来的资料会有小计这个文字
: 因此想要把D栏里面有小计文字的列给删除
: 再来检查A栏里面如果带有#N/A的文字则msgbox会提醒
: 是因为删除掉了所以找不到物件?
: 感谢大神
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.58.193 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1691043499.A.8D7.html
1F：→ mini178: thank you so much! 08/03 14:32