gpt4 book ai didi

string - VBA 使用字符串作为变量名

转载 作者:行者123 更新时间:2023-12-04 20:45:12 25 4
gpt4 key购买 nike

我有来自不同房间测量的数据集(不同长度)的工作簿。我需要对每个数据集进行排序。
我的代码找到每个数据集的开始行和结束行,并将它们存储为 StartRowRoom1、EndRowRoom1、StartRowRoom2、EndRowRoom2 等。

我想像这样在一个while循环中遍历每个数据集。

Dim StartRowRoom1 As Integer
Dim StartRowRoom2 As Integer
Dim EndRowRoom1 As Integer
Dim EndRowRoom2 As Integer

n = 1

While n < NumberOfRooms
startRow = "StartRowRoom" & n
endRow = "EndRowRoom" & n

With Range(Cells(startRow, 4), Cells(endRow, 4))
.FormulaR1C1 = "=RC[-2]+RC[-1]"
#sorting and graph creation
End With
n = n + 1
Wend

我的问题是 startRow 和 endRow 变量是字符串(“StartRowRoom1”和“EndRowRoom1”,对于 n=1)。所以它们不能在 Cells() 中使用。我希望他们引用定义为整数的变量。
有没有人有办法解决吗?

最佳答案

这就是数组的用途。

您应该将变量声明为

Dim StartRowRoom(1 to 2) As Integer
Dim EndRowRoom(1 to 2) As Integer

StartRowRoom(1) = [your value here]
StartRowRoom(2) = [your value here]

EndRowRoom(1) = [your value here]
EndRowRoom(2) = [your value here]

然后你可以访问它们
startRow = StartRowRoom(n)
endRow = EndRowRoom(n)

使用 n作为指标

关于string - VBA 使用字符串作为变量名,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20049357/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com