你显示完要再切回 "raw"
Set cell = Cells(i, "A")
If IsError(cell.Value) Then ' 判断 A 栏的储存格内容是否包含 "#N/A" 文
字
Sheets("ratio").Activate
MsgBox (CStr(cell.Offset(0, 3).Value) & "没有被定义到，请确认")
Sheets("raw").Activate
End If
※ 引述《mini178 (mini178)》之铭言：
: 不好意思请教一下
: 刚刚修改成这样又遇到了一个问题
: 加入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)