Re: [算表] 請教VBA 寫法 感謝大神
沒錯，應該就是該列已經被刪除了，可以將兩個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://www.ptt.cc/bbs/Office/M.1691043499.A.8D7.html
→
08/03 14:32,
1年前
, 1F
08/03 14:32, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 4 篇)：