在VBA中将不同的范围读入数组并覆盖相同的范围
在VBA中将不同的范围读入数组并覆盖相同的范围
提问于 2017-02-13 21:24:30
我想在VBA中读取不同的范围，其中有一些值是通过这些单元格中的公式计算的，并用已保存的值覆盖这些范围，以便自动删除单元格中的公式。
代码如下所示：
allValues = Range("AR8:AW8,AR10:AW10,AR12:AW24,AR26:AW52,AR54:AW61,AR64:AW87,AR89:AW94,AR96:AW96,AR98:AW104,AR106:AW106,AR108:AW110,AR112:AW122,AR125:AW140,AR142:AW162,AR164:AW192,AR194:AW196,AR198:AW198,AR200:AW202,AR204:AW218,AR220:AW230,AR232:AW232,AR234:AW240").Value
Range("AR8:AW8,AR10:AW10,AR12:AW24,AR26:AW52,AR54:AW61,AR64:AW87,AR89:AW94,AR96:AW96,AR98:AW104,AR106:AW106,AR108:AW110,AR112:AW122,AR125:AW140,AR142:AW162,AR164:AW192,AR194:AW196,AR198:AW198,AR200:AW202,AR204:AW218,AR220:AW230,AR232:AW232,AR234:AW240")= allValues对于合取范围，这样的想法是可行的，但对于这些范围，根本不是这样。
我很感谢你的意见。
回答 2
Stack Overflow用户
回答已采纳
发布于 2017-02-13 22:21:23
使用多区域范围，在区域上迭代：
Dim r As Range
For Each r In Sheet1.Range("AR8:AW8, AR10:AW10, ..., ...").Areas
r.Value = r.Value
NextStack Overflow用户
发布于 2017-02-13 22:41:59
我会这样说：
With Range("AR8:AW8,AR10:AW10,AR12:AW24,AR26:AW52,AR54:AW61,AR64:AW87,AR89:AW94,AR96:AW96,AR98:AW104,AR106:AW106,AR108:AW110,AR112:AW122,AR125:AW140,AR142:AW162,AR164:AW192,AR194:AW196,AR198:AW198,AR200:AW202,AR204:AW218,AR220:AW230,AR232:AW232,AR234:AW240")
.Value = .Value
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42205147
复制相关文章
相似问题
腾讯云开发者
