作者mini178 (mini178)
看板Office
标题Re: [算表] 请教VBA 写法 感谢大神
时间Thu Aug 3 15:38:27 2023
不好意思请教一下
刚刚修改成这样又遇到了一个问题
加入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://webptt.com/cn.aspx?n=bbs/Office/M.1691048309.A.AE2.html
※ 编辑: mini178 (49.217.130.6 台湾), 08/03/2023 15:40:40