Excel VBA:如果找到空白单元格，如何退出循环开发者社区

相关文章推荐

玉树临风的鸡蛋 · 在WebView上设置loadURLTIme ...· 9 月前 ·

爱健身的眼镜 · 如何对非公开类进行单元测试 - ...· 10 月前 ·

文武双全的热带鱼 · linux ^ 特殊字符分割 \ 转义 ...· 1 年前 ·

时尚的海豚 · layer.js错误Uncaught ...· 1 年前 ·

耍酷的胡萝卜 · C# ...· 1 年前 ·

腾讯云

开发者社区

文档建议反馈控制台

首页 TVP

最新优惠活动

文章/答案/技术大牛

发布

Sub ResultsTable()
    Application.ScreenUpdating = False
    Dim UnitRows As Integer
    UnitRows = Range("Units").Rows.Count
    Do While Range("Units").Cells(i, 1).Value <> ""
    i = i + 1
        Range("Units").Cells(i, 1).Copy
        Range("Input").PasteSpecial xlPasteValues
        Range("ABBA").Copy
        Range("ABBAO").Cells(i, 1).PasteSpecial xlPasteValues
        Range("BABBA").Copy
        Range("BABBAO").Cells(i, 1).PasteSpecial xlPasteValues
        Range("CABBA").Copy
        Range("CABBAO").Cells(i, 1).PasteSpecial xlPasteValues
        Range("DABBA").Copy
        Range("DABBAO").Cells(i, 1).PasteSpecial xlPasteValues
    Range("Units").Copy
    Range("UnitsOutput").PasteSpecial xlPasteValues
    Application.ScreenUpdating = True
End Sub

For i = 1 To UnitRows
    If Range("Units").Cells(i, 1).Value <> "" Then

推荐文章

玉树临风的鸡蛋 · 在WebView上设置loadURLTImeOutValue-腾讯云开发者社区-腾讯云

9 月前

爱健身的眼镜 · 如何对非公开类进行单元测试 - Yang-Fei - 博客园

10 月前

文武双全的热带鱼 · linux ^ 特殊字符分割 \ 转义，windows下 \\^ 转义_51CTO博客_java特殊字符转义

1 年前

时尚的海豚 · layer.js错误Uncaught TypeError: i is not a function_好人二狗的博客-CSDN博客

1 年前

耍酷的胡萝卜 · C# WPF侧边栏导航菜单（Dropdown Menu） - Dotnet9个人博客 - 博客园

1 年前

问 Excel VBA:如果找到空白单元格，如何退出循环 EN

Stack Overflow用户