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

相关文章推荐

朝气蓬勃的洋葱 · 人民日报海外版-人民网· 2 周前 ·

爱热闹的莲藕 · python 喷泉码_python ...· 6 月前 ·

憨厚的火腿肠 · 新概念汉语-哔哩哔哩_Bilibili· 1 年前 ·

愤怒的手术刀 · 福田纯电3.05平板货车北京卖车联系电话|福 ...· 1 年前 ·

千年单身的柚子 · 怎么看待漫威漫画第二代钢铁侠是黑人女孩？ - 知乎· 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

推荐文章

朝气蓬勃的洋葱 · 人民日报海外版-人民网

2 周前

爱热闹的莲藕 · python 喷泉码_python 喷泉码库-CSDN博客

6 月前

憨厚的火腿肠 · 新概念汉语-哔哩哔哩_Bilibili

1 年前

愤怒的手术刀 · 福田纯电3.05平板货车北京卖车联系电话|福田汽车|能源|电池|续航_网易汽车

1 年前

千年单身的柚子 · 怎么看待漫威漫画第二代钢铁侠是黑人女孩？ - 知乎

1 年前

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

Stack Overflow用户