excel vba程序代码判断单元格值跳出循环

请大家帮忙看看如下代码，想要实现判断第一列从第五个单元格如果有数据就执行接下来的计算公式，如果第一列中的单元格没有数据就自动停止计算跳出所有循环。但我写的代码中不会判断第一列是否为空值，一直循环到循环结束。请问我写的有什么错误应该如何修改？
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个单元格是否有空数值，如果有空数值就停止计算跳出循环，如果有数据就进行计算，所以我设置了三个变量

举报该文章

其他看法

第1个回答 2017-06-14

这样，把Exit For改成Exit Sub试试。

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 Sub
                End If
            Next
        Next
    Next
End Sub

追问

试过了，还是不停的循环。

本回答被网友采纳

第2个回答 2017-06-14

由于没有数据，只能大致写了下，你测试运行下吧

代码如下：

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]
    If Range("A5") <> "" Then
        For o = 5 To 45
            For m = 5 To 45
                For n = 5 To 45
                    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
                Next
            Next
        Next
    Else
        MsgBox "A5没有数据"
        Exit Sub
    End If
End Sub

追问

我想要判断从第一列第五个单元格到45个单元格是否有空数值，如果有空数值就停止计算跳出循环，如果有数据就进行计算，所以我设置了三个变量

追答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
        If sh.Cells(o, 1) <> "" Then
            For m = 5 To 45
                For n = 5 To 45
                    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
                Next
            Next
        Else
            Exit For
        End If
    Next
End Sub

追问

我用您的方法修改了一下，我用debug逐句进行检验，发现还是在重复循环内部的语句，没有直接跳出循环。

追答

我这边测试，是正常的呢。你方便将你的excel表格私信发给我吗？我直接在你的表格中写

本回答被提问者采纳

第3个回答 2018-07-04

你这个代码简化一下，就行了，用一个for循环就可以了。如果要退出多个循环，你最好把多个循环用不同的格式，比如for循环或 do while 循环交替应用，退出是exit for 或 exit do 就可以了。
Sub 计算折扣()
Dim sh As Worksheet
Set sh = Worksheets("sheet1")
Dim i As Double
Dim o As Integer
i = Sheets("1").[T2]
For o = 5 To 45
If sh.Cells(o, 1) <> "" Then
If sh.Cells(o, 12) <> "" Then
sh.Cells(o, 11) = sh.Cells(o, 5) * sh.Cells(o, 10)
sh.Cells(o, 12) = sh.Cells(o, 11)
sh.Cells(o, 13) = sh.Cells(o, 12) * i
End If
Else
Exit for
End If
Next
End Sub

excel vba程序代码判断单元格值跳出循环
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) ...

EXCEL中如何编写VBA?以此判断循环多行单元格数值及赋值。
二段代码，前面是f1=(=a2&b2&c2)，后一段是f1=(=a1&b1&c1)

如果在excel VBA中判断A列中的空白单元格,遇到后就终止程序?
for i = 1 to range("A65536").end(xlup).row()\\x0d\\x0a定义这样一个变量i\\x0d\\x0a对i进行循环就行了。\\x0d\\x0a这是2003的代码，2007及以上的，把65536修改为\\x0d\\x0a1048576

EXCEL中如何编写VBA判断循环多行单元格数值及赋值.
Sub abc()Dim r As LongFor r = 1 To 1000 If Range("A" & r) = 0 Then Range("F" & r).FormulaR1C1 = "RC1&RC2&RC3"Next rEnd Sub请修改循环大小为所需的数值。另外，[A1]=0时，[F1]=A2&B2&C2，还是=A1&B1&C1 ？上面的代码是 =A1&B1&C1 ...

如果在excel VBA中判断A列中的空白单元格,遇到后就终止程序
在工作表名称上点右键,选查看代码,粘贴下面的代码 Sub 检查空单元格()Dim rng As Range, arr()For Each rng In Range("A1:A30")If rng = "" Then N = N + 1 ReDim Preserve arr(1 To N)arr(N) = rng.Address(0, 0)End If Next MsgBox "A1:A30有" & N & "个空单元格," ...

ExcelVBA解读有限次的循环
‘声明计数变量 For i = 1 To 10 If Cells(i, 1).Value = 0 Then ‘判断单元格中的值为0 Exit For End If Next i MsgBox “单元格A” & i& “中的值为0.”End Sub 在单元格区域A1:A10中，如果某个单元格的值为0，则退出循环，并继续执行Next后面的语句，本例中是MsgBox函数。

在Excel中如何判断VBA循环,达到条件时中止循环
If TextBox1.Text = .Range("A" & i).Value Then .Range("A" & i).Select Exit For End If Next End WithEnd Sub 在VBA中运行窗口，测试结果为输入10，A列单元格的10被选中：

用VBA(Private Sub Worksheet_Change)判断单元格修改后执行操作总是出现...
如果 test 是一个sub，你的调用方法是没有错误的，如果是function则要这样：Test 改成 target.cells(1,1).value=test()--- 函数计算的结果，要赋值给一个对象另外：要注意 sub 与 function 的区别最好把你的test函数也发上来看看

excel vba 如何跳出循环
在next i 前面插入一个标注,如：xiayige:，然后在得到数据后插入跳出循环语句，比如：goto xiayige Sub test()Dim num As String, i As Integer, j As Integer, subt As String For i = 2 To Sheets("原格式").Range("a56565").End(3).Row num = Sheets("原格式").Cells(i, 1)....

Excel VBA中if语句的用法
VBA教研室" Exit For End If Next End Sub if ……then……else……end if结构该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出false，否则输出Ture 程序： Sub 判断语句...

相似回答

大家正在搜