Re: [算表] 請教VBA 寫法 感謝大神
不好意思請教一下
剛剛修改成這樣又遇到了一個問題
加入Sheets("ratio").Activate是因為想在ratio這個分頁跳出msgbox
可是這樣會變成有小計的那一列會沒有被刪除
不加的話是正常會刪除
謝謝大神
Dim Workingfile As String
Dim lastRow As Long
Dim i As Long
Dim cell As Range
Workingfile = ActiveWorkbook.Name
Sheets("raw").Visible = True
Sheets("raw").Activate
lastRow = Cells(1048576, 4).End(xlUp).Row
For i = lastRow To 1 Step -1
Set cell = Cells(i, "D")
If InStr(1, cell.Value, "小計", vbTextCompare) > 0 Then ' 判斷 D 欄儲
存格內容是否包含 "小計" 文字
Rows(i).Delete
End If
Set cell = Cells(i, "A")
If IsError(cell.Value) Then ' 判斷 A 欄的儲存格內容是否包含 "#N/A" 文
字
Sheets("ratio").Activate
MsgBox (CStr(cell.Offset(0, 3).Value) & "沒有被定義到，請確認")
End If
Next i
資料舉例如下:
A B C D
#N/A #N/A #N/A 小計
Tier1 現股 金融 第一金(2892)
#N/A #N/A #N/A 環泥(1104)
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.217.130.6 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1691048309.A.AE2.html
※ 編輯: mini178 (49.217.130.6 臺灣), 08/03/2023 15:40:40
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 3 之 4 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
