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

相关文章推荐

爱旅游的煎饼果子 · 公证法律服务指南_抚顺市司法局· 3 月前 ·

爱搭讪的风衣 · Axure教程（中级）：侧导航收缩及展开 ...· 3 月前 ·

潇洒的野马 · 清华附中嘉兴实验学校公开招聘2024年事业编 ...· 10 月前 ·

从容的酸菜鱼 · 【喜报】我校首届专升本考试取得优异成绩-西安 ...· 11 月前 ·

文武双全的松鼠 · 通讯：中国新能源汽车“出海”拉美助力绿色发展 ...· 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

推荐文章

爱旅游的煎饼果子 · 公证法律服务指南_抚顺市司法局

3 月前

爱搭讪的风衣 · Axure教程（中级）：侧导航收缩及展开 | 人人都是产品经理

3 月前

潇洒的野马 · 清华附中嘉兴实验学校公开招聘2024年事业编制教师（第二批）公告

10 月前

从容的酸菜鱼 · 【喜报】我校首届专升本考试取得优异成绩-西安明德理工学院

11 月前

文武双全的松鼠 · 通讯：中国新能源汽车“出海”拉美助力绿色发展_深圳新闻网

1 年前

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

Stack Overflow用户