如何解决在VBA中遍历范围的替代解决方案
最近,我想知道是否可以通过切换下面的部分代码来加快程序的速度:
Dim cell as Variant
Dim myValues() as Double
ReDim myValues(myRange.Count - 1)
Dim i as Integer: i = 0
For Each cell in myRange.Cells
myValue(i) = cell.Value
i = i + 1
Next cell
进入一个循环,在该循环中,我可以直接引用每个单元格的值,而不是实例化一个单元格对象,而是从给定范围内为其分配一个单元格值,然后提取该单元格值。
在我看来,伪代码看起来像这样:
Dim cellValue as Double
Dim myValues() as Double
ReDim myValues(myRange.Count - 1)
Dim i as Integer: i = 0
For each cellValue in myRange.Cells.Values
myValues(i) = cellValue
i = i + 1
Next cellValue
如果从一开始我的整体概念是错误的,或者您无法更快地从Range获取单元格值,那么毫无疑问。 由于这是我的第一篇文章,因此我可能写错了一些东西/张贴约定错误。让我知道,我会修复它。
欢呼
解决方法
正如@SJR所指出的,这是不需逐个单元地访问范围内数据的一种常用方法。
Dim arr,i as long,rng As Range
Set rng = Activesheet.Range("A1:B20")
arr = rng.Value 'arr is now a 2D array (1 To 20,1 To 2)
'Note: base is 1 and not the more-typical 0
For i = 1 to ubound(arr,1)
Debug.Print arr(i,1),arr(i,2)
Next i
arr(3,2) = 999
rng.value = arr 'put the data back to the range
,
如果原因是要摆脱2D数组,则可以使用如下功能:
Function VectorFromRange(rng As Range) As Variant
Dim arrIn As Variant
arr = rng.value 'Dumping the data from range
Dim i As Long
Dim item As Variant
ReDim arrOut(1 To rng.Cells.Count) As Variant
For Each item In arr
i = i + 1
arrOut(i) = item
Next item
VectorFromRange = arrOut
End Function
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。