宏执行异常：价目表处理宏跳过删除无价格行代码段求助

嘿，我帮你分析下为什么这段删除无价格行的代码会被跳过——从你给出的代码片段来看，存在几个关键的逻辑和写法问题，直接导致代码没按预期运行：

1. 变量p完全没起到判断价格的作用 #

你初始化了p = 0，然后第一句判断If p > LastRow Then GoTo Ziel4——p一开始就是0，只要你的表格有数据（LastRow肯定大于0），这个条件永远不成立。但更致命的是：你根本没把价格单元格的值赋值给p！这段代码里p和要检查的价格列完全没关系，等于白写了判断逻辑。

2. 正向循环删除行是经典坑 #

你用了For i = 3 To LastRow的正向循环，但删除行的时候，每删一行，后面的行都会往上挪一位，比如删了第3行，原来的第4行变成新的第3行，但循环会直接跳到i=4，直接跳过了新的第3行，最后会漏删很多行。正确的做法是反向循环，从最后一行往前遍历。

3. 代码逻辑不完整，没关联用户选择的价格列 #

你前面让用户选择了标价对应列，但这段代码里没用到那个选择的列号——你得把用户选的列号存成一个变量（比如priceCol），然后用它来定位要检查的单元格，而不是模糊的wsImport.Cells(i...。

修复后的示例代码 #

' 假设你已经通过用户交互获取了价格列的列号，存在priceCol变量里
Dim priceCol As Integer
' 比如你之前的代码可能是：priceCol = Application.InputBox("选择价格列", Type:=1)

Dim LastRow As Long
' 用价格列来计算最后一行，避免空行干扰
LastRow = wsImport.Cells(wsImport.Rows.Count, priceCol).End(xlUp).Row

' 反向循环，从最后一行往第3行遍历
For i = LastRow To 3 Step -1
    ' 判断单元格是否为空，或者价格为0（根据你的需求调整判断条件）
    If IsEmpty(wsImport.Cells(i, priceCol)) Or wsImport.Cells(i, priceCol).Value = 0 Then
        wsImport.Rows(i).Delete
    End If
Next i

Ziel4:
' 这里放后续的代码

额外要检查的点 #

• 确认wsImport已经正确指向你要操作的工作表，别搞混了工作表对象
• 检查LastRow的计算是否正确，用价格列来计算最后一行比用固定列靠谱
• 确保Ziel4这个标签确实存在，避免跳转出错

内容的提问来源于stack exchange，提问作者Dominic Landert