如何在VBA中迭代不连续的范围？
在VBA中，要迭代不连续的范围，可以使用For Each循环结合Union函数来实现。下面是一个示例代码：
Sub IterateDiscontinuousRange()
Dim rng As Range
Dim cell As Range
' 定义不连续的范围
Set rng = Union(Range("A1:A3"), Range("A5:A7"), Range("A9:A10"))
' 迭代范围中的每个单元格
For Each cell In rng
' 在这里执行你的操作
Debug.Print cell.Value
Next cell
End Sub在上面的示例中，我们首先使用Union函数将不连续的范围合并为一个范围对象rng。然后，使用For Each循环遍历rng中的每个单元格，并在循环体中执行相应的操作。你可以根据自己的需求修改循环体中的代码。
这种方法适用于任意数量和位置的不连续范围。同时，这里没有提及具体的云计算品牌商，如果需要使用云计算相关的功能，可以参考腾讯云的相关产品和文档。
相关·内容
3回答
这是我第一次发表这样的文章。正如你所知，我不是一个专业的程序员，只是一个普通的上班族，他不时地做一些VBA，以使他的工作完成得更快。我想使用VBA循环一系列单元格，VBA在其中一个列中包含一个特定的标志值。这些范围是不连续的，因为我们选择具有连续标志值的区域，并且这个值在每一行中随机变化。例如，在下表中
浏览 1提问于2017-09-26得票数 1
回答已采纳
我一直在绞尽脑汁想办法解决这个问题，我有一种感觉，这是一个很容易解决的问题。任何帮助都将不胜感激！(预先谢谢:)Sub Calculation()
Dim rng As Range
浏览 2提问于2021-07-26得票数 0
回答已采纳
我有一个由多个区域组成的命名范围，即范围是不连续的.我可以选择范围并在VB编辑器的监视窗口中键入？Selection.Cells.Count以获取命名范围内的单元格数。然而，Excel本身并没有这样简单的函数。COUNTA给出了非空单元的数量，但是COUNTIF和COUNTBLANK返回一个具有非连续范围的错误。有人能推荐一个解
浏览 1提问于2021-06-17得票数 0
回答已采纳
我正在尝试计算筛选数据中出现的特定字符串的次数。我可以使用单元格中的公式来完成这个任务，但是当我将它与工作簿中的其他宏结合起来时，整个程序就会冻结。因此，我想将计算移到VBA，以便它只计算运行宏的时间。下面是在单元格中工作的公式：基本上，我希望计算H列中出现"Temp“的<
浏览 3提问于2015-06-08得票数 1
如何使用xlwing 0.18.0删除非连续行？使用VBA a可以完成此范围(“1:7，9:9").EntireRow.Delete“‘’subDelete_NonContigous_Rows_Using_VBA()‘”删除1,2,3.7和9行(“1:7，9:9").EntireRow.Delete End Sub’
我如何在xlwings==0.18.0中做到这一点？
浏览 3提问于2020-03-03得票数 0
回答已采纳
在一个范围(如“A1:A2”)中查找在第二个范围(如“B:B”)中按相同顺序存在的值的有效方法是什么？
到目前为止，我的搜索只提出了两种可能性: 1)使用循环迭代第二个范围。2)使用Range("B:B").Find搜索"A1“中的值，然后在连续的单元格中测试A2的</em
浏览 0提问于2011-10-22得票数 2
回答已采纳
我想创建一个VBA函数，它结合了几个内置的Excel函数，每个函数可以接受一个或多个不同大小的单元格范围编辑:如SUM，COUNT，STDEV.P，AVERAGE，MIN等；不过我更喜欢一种方法，适用于任何可以接受像这样不连续范围的公式输入的范围数必须灵活，并且这些参数将直接输入到工作表中。使用VBA的ParamArray应该是最简单的<
浏览 81提问于2021-11-22得票数 1
问题:我需要通过VBA*在XY散点图*中绘制一个*单个**不连续*系列，而不引用工作表中的某个范围。当在工作表区域中布置Y值时，通过在不连续处插入空白值很容易实现这一点；只要在Select Data > Hidden and empty Cells (选择数据>隐藏和空单元格)中选择“显示空单元格为:下面是一个例子(红色的Series2才是最重要的)：因此，我尝试通过
浏览 10提问于2017-12-30得票数 0
如何在CSV文件中删除除给定范围内的一行(或几行连续或不连续的行)之外的行。假设我需要删除CSV文件的前五行，但保持第三行不变，您如何实现这一点。我试着用SED得到这个，但是没有帮助。d' filenname.CSV > tempfilename.txtsed '1,2d;4,5d' filenname.CSV > tem
浏览 0提问于2013-06-19得票数 2
回答已采纳
1回答
我正在VBA中迭代一个范围，目前处于for循环中。我有一个if语句，它在满足某些条件时从范围中移除值，但是当我这样做时，将跳过范围中的下一个值。我知道我可以用Java中的数组和迭代器来解决这个问题，VBA有类似的东西吗？
浏览 5提问于2013-08-28得票数 1
回答已采纳
1回答
在工作簿中，我希望循环遍历所有工作表，并根据每个工作表的某个单元格中的关键字，隐藏相应工作表中的一些不连续的列。隐藏单个列或多个连续列没有问题，但是当我将多个非连续列设置为我的范围时，它就不起作用了。当然，一种解决办法是单独添加所有列，但我更喜欢用更短的方式来完成，当然，我想了解更多关于VBA的知识。顺便说一下
浏览 20提问于2019-06-13得票数 0
1 411 2 3 8 9 1 7假设我想获得X和Y之间的correl，而不是上面X3和Y3之间的correl。一种基本的方法是相应地向量化变量--即剪切C2:C11并粘贴到A12，剪切D2:D11和粘贴到B12，等等。我想知道我是否可以使用correl而不用转换这个表。看来冒号和圆括号在这里都不管用。谢谢。
浏览 5提问于2019-09-27得票数 1
回答已采纳
我有一个包含数据的表，我想定义一个不连续的范围，作为一个例子，可以用来创建一个图表。+-------+------+------+------+------+
例如，如果我希望为时间、Col1和Col2创建一个图表，那么范围就是如果我想为时间、Col1、Col3和Col4创建图表，就不可能以这种方式创建范围(因为不
浏览 3提问于2013-06-13得票数 7
回答已采纳
1回答
目标是复制特定的非毗连范围，例如：而是变行而不是硬数。(变量=长度为i)Dim i as LongRange("C & i, F & i, G & i").Copy
不工作，我得到一个运行时错误1004 (应用程序定义或对象定义的错误是否有任何方法来处理VBA中具有可变行的非连续</em
浏览 2提问于2020-06-26得票数 0
回答已采纳
我正在尝试编写听起来像段或区间树的代码，但我不确定如何在VBA中实现。基本上，我尝试做的是获取一个数字列表，看看它们是否属于一个范围列表。因此，每个站点大约有一到八个不连续的范围与之关联。客户编号将复制/粘贴到我的Excel工作表中的K列。我将在同一工作簿的另一个工作表中拥有的站点范围。最初，我试图只
浏览 3提问于2016-02-22得票数 1
我正在开发一个Word 2007/2010 COM外接程序，帮助用户在Word文档中应用自定义样式。目前，我成功地将样式应用于连续选择的文本(甚至在多个段落上)，但当我尝试不连续的选择时(由于按Ctrl键，在文档的不同部分中选择的文本)，只有最后选择的部分被设置了样式。当选择不连续时，我如何在不同的选定部件上迭代？
提前谢谢你，
浏览 2提问于2013-03-13得票数 1
如何动态扩展需要复制到另一个工作表的两列中的行数？首先，我确定需要在totrows中包含和存储的行数With ThisWorkbook.Worksheets("Sheet1")End With
接下来，我尝试扩展感兴趣的两列("B“和"G")，以便范
浏览 0提问于2016-08-12得票数 3
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
