请大家帮忙看看如下代码,想要实现判断第一列从第五个单元格如果有数据就执行接下来的计算公式,如果第一列中的单元格没有数据就自动停止计算跳出所有循环。但我写的代码中不会判断第一列是否为空值,一直循环到循环结束。请问我写的有什么错误应该如何修改?
Sub 计算折扣()
Dim sh As Worksheet
Set sh = Worksheets("sheet1")
Dim i As Double
Dim n As Integer
Dim m As Integer
Dim o As Integer
i = Sheets("1").[T2]
For o = 5 To 45
For m = 5 To 45
For n = 5 To 45
If sh.Cells(o, 1) <> "" Then
If sh.Cells(m, 12) <> "" Then
sh.Cells(n, 11) = sh.Cells(n, 5) * sh.Cells(n, 10)
sh.Cells(m, 12) = sh.Cells(m, 11)
sh.Cells(n, 13) = sh.Cells(n, 12) * i
Else
sh.Cells(m, 12) = ""
End If
Else
Exit For
End If
Next
Next
Next
End Sub
我想要判断从第一列第五个单元格到45个单元格是否有空数值,如果有空数值就停止计算跳出循环,如果有数据就进行计算,所以我设置了三个变量
这样,把Exit For改成Exit Sub试试。
试过了,还是不停的循环。
本回答被网友采纳由于没有数据,只能大致写了下,你测试运行下吧
代码如下:
Sub 计算折扣()我想要判断从第一列第五个单元格到45个单元格是否有空数值,如果有空数值就停止计算跳出循环,如果有数据就进行计算,所以我设置了三个变量
我用您的方法修改了一下,我用debug逐句进行检验,发现还是在重复循环内部的语句,没有直接跳出循环。
追答我这边测试,是正常的呢。你方便将你的excel表格私信发给我吗?我直接在你的表格中写
本回答被提问者采纳