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

link之家

链接快照平台

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

相关文章推荐

阳光的充值卡 · 《古剑奇谭3》图文攻略——序章-光明野之巡_ ...· 8 月前 ·

性感的芒果 · 女王表情销魂！有了男朋友，就是不一样啊！_哔 ...· 1 年前 ·

发怒的红薯 · 如何在 Ubuntu 20.04 上安装 ...· 1 年前 ·

害羞的海龟 · Electron ...· 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

推荐文章

阳光的充值卡 · 《古剑奇谭3》图文攻略——序章-光明野之巡_腾讯新闻

8 月前

性感的芒果 · 女王表情销魂！有了男朋友，就是不一样啊！_哔哩哔哩_bilibili

1 年前

发怒的红薯 · 如何在 Ubuntu 20.04 上安装 PostgreSQL-腾讯云开发者社区-腾讯云

1 年前

害羞的海龟 · Electron 打印功能的实现_electron 外接打印机打印条形码-CSDN博客

1 年前

悲伤的小刀 · 振奋人心！潢川高铁建设又有最新进展 - 要闻 - 潢川新闻网 - 潢川县委县政府门户网站

1 年前

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

Stack Overflow用户