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

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

朝气蓬勃的火柴 · Nat. Comm. | ...· 1 周前 ·

俊逸的黄瓜 · 【下篇】2021 年 Rust ...· 1 年前 ·

风流的手术刀 · GROUP BY...HAVING ...· 1 年前 ·

踢足球的甘蔗 · 弹出后PySide2主窗口无法工作 - ...· 1 年前 ·

深情的铁板烧 · 如何设置小程序弹出层Popup_移动开发平台 ...· 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

推荐文章

朝气蓬勃的火柴 · Nat. Comm. | 语言模型可以学习复杂的分子分布-腾讯云开发者社区-腾讯云

1 周前

俊逸的黄瓜 · 【下篇】2021 年 Rust 生态版图调研报告 | 星辰大海 - 知乎

1 年前

风流的手术刀 · GROUP BY...HAVING 组合查询大总结_熔岩的技术博客_51CTO博客

1 年前

踢足球的甘蔗 · 弹出后PySide2主窗口无法工作 - 问答 - 腾讯云开发者社区-腾讯云

1 年前

深情的铁板烧 · 如何设置小程序弹出层Popup_移动开发平台 mPaaS-阿里云帮助中心

1 年前

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

Stack Overflow用户