blocks|key|2226212|text|使用计数器循环和step命令：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2226213|Dim+x+as+Integer

For+x+=+10+to+1+Step+-1
+++myWorksheet.Rows(x).Delete
Next+x|code-block|syntax|javascript|2226214|如果数组中有数字，则如下所示：|2226215|For+x+=+ubound(myArray)+to+0+step+-1
+++rows(myArray(x)).Delete
next+x|2226216|Step用于指示要跳转多少次迭代，因此您可以对每隔一行使用Step+2，对于第5行向后使用Step+-5。|offset|length|style|CODE|2226217|entityMap^0|0|0|0|0|T|6|19|7|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|W|8|@$M|X|N|Y|O|P]|$M|Z|N|10|O|P]]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|R|$]]

Use a counter loop and the step command:

<pre><code>Dim x as Integer

For x = 10 to 1 Step -1
 myWorksheet.Rows(x).Delete
Next x
</code></pre>

If you have numbers in an array, it would be something like:

<pre><code>For x = ubound(myArray) to 0 step -1
 rows(myArray(x)).Delete
next x
</code></pre>

Step is used to indicate how many iterations to jump, so you could use <code>Step 2</code> for every other row, or <code>Step -5</code> for every 5th row backwards.

blocks|key|1594502|text|For+Each...Next循环在迭代对象集合(来源)方面远远优于For...Next循环，而For...Next循环在迭代数组方面优于For+Each...Next循环。所以，如果您正在迭代一个数组，那么使用一个For循环，而使用一个For+Each循环，它实际上是在迭代一个Range的独立单元。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1594503|考虑使用Union而不是向后迭代行，将要删除的行连接到单个Range对象中，在单个工作表操作中删除该对象--这将大大优于向后循环。|1594504|Private+Function+Combine(ByVal+source1+As+Range,+ByVal+source2+As+Range)+As+Range
++++If+source1+Is+Nothing+Then
++++++++Set+Combine+=+source2
++++Else
++++++++Set+Combine+=+Union(source1,+source2)
++++End+If
End+Function|code-block|syntax|javascript|1594505|像这样的东西(未经测试的空中代码)：|1594506|Dim+toDelete+As+Range,+i+As+Long
For+i+=+LBound(rowArray)+To+UBound(rowArray)
++++Set+toDelete+=+Combine(toDelete,+rowArray(i))
Next
If+Not+toDelete+Is+Nothing+Then+toDelete.EntireRow.Delete|1594507|通过这种方式将Application.Calculation切换到手动、禁用Application.EnableEvents并将Application.ScreenUpdating设置为False对总体性能几乎没有任何影响，因为只有在需要时才与工作表交互，而单独删除每一行将触发工作表事件、提示重新计算和在每次迭代时重新绘制屏幕。|1594508|entityMap|0|LINK|mutability|MUTABLE|url|https://analystcave.com/vba-for-loop-vs-for-each-loop/^0|0|F|Y|A|1C|A|1X|F|30|3|3B|8|3W|5|P|2|0|0|4|5|T|5|0|0|0|0|7|N|12|O|1S|Q|2L|5|0^^$0|@$1|2|3|4|5|6|7|10|8|@$9|11|A|12|B|C]|$9|13|A|14|B|C]|$9|15|A|16|B|C]|$9|17|A|18|B|C]|$9|19|A|1A|B|C]|$9|1B|A|1C|B|C]|$9|1D|A|1E|B|C]]|D|@$9|1F|A|1G|1|1H]]|E|$]]|$1|F|3|G|5|6|7|1I|8|@$9|1J|A|1K|B|C]|$9|1L|A|1M|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|1N|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|1O|8|@]|D|@]|E|$]]|$1|O|3|P|5|J|7|1P|8|@]|D|@]|E|$K|L]]|$1|Q|3|R|5|6|7|1Q|8|@$9|1R|A|1S|B|C]|$9|1T|A|1U|B|C]|$9|1V|A|1W|B|C]|$9|1X|A|1Y|B|C]]|D|@]|E|$]]|$1|S|3|-4|5|6|7|1Z|8|@]|D|@]|E|$]]]|T|$U|$5|V|W|X|E|$Y|Z]]]]

<code>For Each...Next</code> loops vastly outperform <code>For...Next</code> loops for iterating object collections (<a href="https://analystcave.com/vba-for-loop-vs-for-each-loop/" rel="nofollow noreferrer">source</a>), and <code>For...Next</code> loops outperform <code>For Each...Next</code> loops for iterating an array. So, use a <code>For</code> loop if you're iterating an array, and a <code>For Each</code> loop it you're actually iterating the invidivual cells of a <code>Range</code>.

Consider using <code>Union</code> instead of iterating rows backwards, to join the rows you want to delete into a single <code>Range</code> object, which you an delete in a single worksheet operation - that will vastly outperform the backwards-loop.

<pre><code>Private Function Combine(ByVal source1 As Range, ByVal source2 As Range) As Range
 If source1 Is Nothing Then
 Set Combine = source2
 Else
 Set Combine = Union(source1, source2)
 End If
End Function
</code></pre>



Something like this (untested air-code):

<pre><code>Dim toDelete As Range, i As Long
For i = LBound(rowArray) To UBound(rowArray)
 Set toDelete = Combine(toDelete, rowArray(i))
Next
If Not toDelete Is Nothing Then toDelete.EntireRow.Delete
</code></pre>

That way toggling <code>Application.Calculation</code> to manual, disabling <code>Application.EnableEvents</code> and setting <code>Application.ScreenUpdating</code> to <code>False</code> will have little to no impact whatsoever on overall performance, because you're only interacting with the sheet when you have to, whereas deleting each row individually will fire worksheet events, prompt recalculations and screen repaints at every single iteration.

I have created an array in which each element is a number of row I want to delete from the worksheet.

The only issue is that deleting rows from the top of the worksheet would shift position of other rows.
Therefore, please advise how to loop through the array from the bottom to the top (backwards).

<pre><code>(...)
For Each r In rowArray()

 Cells(r, 5).Rows.EntireRow.Delete

Next r
(...)
</code></pre>

Looping through an Array backwards (Bottom to the top) VBA

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我已经创建了一个数组，其中每个元素都是要从工作表中删除的行数。唯一的问题是从工作表顶部删除行会改变其他行的位置。因此，请建议如何从底部到顶部(向后)遍历数组。(...)For Each r In rowArray()    Cells(r, 5).Rows.EntireRow.DeleteNext r(...)

问向后(从底部到顶部)遍历数组( VBA )
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问向后(从底部到顶部)遍历数组( VBA )EN