该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

求帮助，始终不执行Else后边的if

代码：

With Sheets("特固倍超")

行 = .Cells(10000, 2).End(xlUp).Row

For w = 2 To .Cells(10000, 2).End(xlUp).Row

If .Cells(w, 3) >= 日期1 And .Cells(w, 3) <= 日期2 Then 特固倍超出货 = 特固倍超出货 + .Cells(w, "F"): 特固倍超出厂金额 = 特固倍超出厂金额 + .Cells(w, "P"):

特固倍超打款 = 特固倍超打款 + .Cells(w + 1, "Q"):

Next

End With

With Sheet2

For r = 2 To .Cells(10000, 2).End(xlUp).Row

If .Cells(r, 3) >= 日期1 And .Cells(r, 3) <= 日期2 Then

累计出厂 = 累计出厂 + .Cells(r, "F")

If .Cells(r, "G") Like "*鹅西路隧道局*" Then 鹅西路隧道局 = 鹅西路隧道局 + .Cells(r, "F"): 鹅西路隧道 = 鹅西路隧道 + 1

If .Cells(r, "G") Like "*马龙路*" Then 马龙路 = 马龙路 + .Cells(r, "F"): 马龙 = 马龙 + 1

If .Cells(r, "G") Like "*水电六局*" Then 水电六局 = 水电六局 + .Cells(r, "F"): 水电六 = 水电六 + 1

If .Cells(r, "G") Like "*外调*" Then 外调 = 外调 + .Cells(r, "F"): 外 = 外 + 1

If .Cells(r, "G") Like "*外购*" Or .Cells(r, "G") Like "*送样*" Then 外送 = 外送 + .Cells(r, "F"): 送 = 送 + 1

If .Cells(r, "G") Like "*鹅西路粉煤灰*" Then 鹅西路 = 鹅西路 + .Cells(r, "F"): 鹅西 = 鹅西 + 1

If .Cells(r, "G") Like "*东环中铁二十局粉煤灰*" Then 东环中铁二十局 = 东环中铁二十局 + .Cells(r, "F"): 东环中铁二十 = 东环中铁二十 + 1

If .Cells(r, 3) = 日期2 And .Cells(r, "G") <> "多吉资源水泥-彭水龙溪" And .Cells(r, "G") <> "邻水西南-彭水保家" And .Cells(r, "M") <> "转运水泥" Then

今日发货 = 今日发货 + .Cells(r, "F"): 今日发货1 = 今日发货1 + .Cells(r, "p")

If .Cells(r, "m") Like "*多吉资源*" Then 多吉资源 = 多吉资源 + .Cells(r, "F"): 多吉资源1 = 多吉资源1 + .Cells(r, "P")

If .Cells(r, "m") Like "*丰都希望*" Then 丰都希望 = 丰都希望 + .Cells(r, "F"): 丰都希望1 = 丰都希望1 + .Cells(r, "P")

If .Cells(r, "m") Like "*华新铁铭*" Then 华新铁铭 = 华新铁铭 + .Cells(r, "F"): 华新铁铭1 = 华新铁铭1 + .Cells(r, "P")

If .Cells(r, "m") Like "*华新锦皓*" Then 华新锦皓 = 华新锦皓 + .Cells(r, "F"): 华新锦皓1 = 华新锦皓1 + .Cells(r, "P")

If .Cells(r, "m") Like "*特固倍超*" Then 特固倍超 = 特固倍超 + .Cells(r, "F"): 特固倍超1 = 特固倍超1 + .Cells(r, "P")

If .Cells(r, "m") Like "*特固锦皓*" Then 特固锦皓 = 特固锦皓 + .Cells(r, "F"): 特固锦皓1 = 特固锦皓1 + .Cells(r, "P")

If .Cells(r, "m") Like "*特固铁驰*" Then 特固铁驰 = 特固铁驰 + .Cells(r, "F"): 特固铁驰1 = 特固铁驰1 + .Cells(r, "P")

If .Cells(r, "m") Like "*剑涛*" Then 剑涛 = 剑涛 + .Cells(r, "F"): 剑涛1 = 剑涛1 + .Cells(r, "P")

收货 = .Cells(r, 7): 执行 = "否"

If .Cells(r, "L") Like "*散*" Then 列 = 19 Else 列 = 22

For J = 2 To .Cells(10000, 列).End(xlUp).Row

str1 = Replace(Cells(J, 列), "袋装", "")

If 列 = 19 Then

If 收货 = "" & str1 Or 收货 = str1 Then Cells(J, 列 + 1) = Cells(J, 列 + 1) + .Cells(r, "F"): Cells(J, 列 + 2) = Cells(J, 列 + 2) + 1: 执行 = "是": Exit For

Else

If 收货 Like "*" & str1 & "*" Then Cells(J, 列 + 1) = Cells(J, 列 + 1) + .Cells(r, "F"): Cells(J, 列 + 2) = Cells(J, 列 + 2) + 1: 执行 = "是": Exit For

End If

Next

End If

Else

End If

Next