数组Redim保留将列转置为多行错误下标超出范围错误
是指在进行数组Redim操作时，将原本以列形式存储的数组转置为多行形式时，出现下标超出范围的错误。
数组Redim是一种用于调整数组大小的操作，可以用于改变数组的维度和大小。在进行Redim操作时，可以选择保留原有的数据，或者清空原有数据。
当我们将原本以列形式存储的数组转置为多行形式时，需要注意数组的维度和大小。如果在进行Redim操作时，新的维度和大小超出了原有数组的范围，就会出现下标超出范围的错误。
解决这个错误的方法是在进行Redim操作之前，先确保新的维度和大小不会超出原有数组的范围。可以通过计算原有数组的行数和列数，以及转置后的行数和列数，来确定新的维度和大小。
以下是一个示例代码，展示了如何使用Redim操作将列转置为多行，并避免下标超出范围错误：
Dim originalArray(1 To 3, 1 To 2) As Integer
originalArray(1, 1) = 1
originalArray(1, 2) = 2
originalArray(2, 1) = 3
originalArray(2, 2) = 4
originalArray(3, 1) = 5
originalArray(3, 2) = 6
Dim transposedArray() As Integer
ReDim transposedArray(1 To 2, 1 To 3)
For i = 1 To 2
For j = 1 To 3
transposedArray(i, j) = originalArray(j, i)
Next j
Next i在上述示例中，我们首先定义了一个原始数组originalArray，它是一个3行2列的数组。然后，我们定义了一个新的数组transposedArray，用于存储转置后的多行数组。
在进行Redim操作时，我们根据转置后的行数和列数，重新定义了transposedArray的大小。在这个例子中，我们将原始数组的2列转置为3行，因此新的数组大小为2行3列。
接下来，我们使用嵌套的循环遍历原始数组的每个元素，并将其赋值给转置后的数组。注意，在赋值过程中，我们交换了原始数组的行和列的索引。
通过以上操作，我们成功将原本以列形式存储的数组转置为多行形式，避免了下标超出范围的错误。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网平台：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发：https://cloud.tencent.com/product/mobdev
- 腾讯云区块链服务：https://cloud.tencent.com/product/tbaas
- 腾讯云元宇宙：https://cloud.tencent.com/product/tencentmetaverse
相关·内容
我在找出我当前使用的代码背后的错误时遇到了麻烦。我正在尝试将列转换为多行。For j = 8 To c n = n + 1
ReDim
浏览 39提问于2021-05-14得票数 1
回答已采纳
我有一个二维数组。我想使redim保留在它的第一个维度上，但我知道redim只能在最后一个维度上工作。我尝试使用转置函数，但似乎转置函数正在将我的数组从基0更改为基1，这是否正常？如果是，如何将其设置为0？或者如何解决我的问题，以保留我的数组，同时改变它的第一个维度？(Ubound(table3,1), Ubound(table3,2) +2)
table3 = Appli
浏览 0提问于2019-03-20得票数 0
回答已采纳
我有一个有7列的1行表，我正在将这些值读入一个数组。Dim arr As Variant
这个"arr“现在是一个二维数组，有1行7列，它可以很好地加载数据。稍后在我的代码中，我想在这个数组中添加一行，所以我尝试这样做：
<
浏览 0提问于2021-05-08得票数 2
我正在尝试创建一个多维数组，该数组包含这样的值：theArray(1,0) = "Batman"和theArray(1,1) = "Gotham"Sub deleteme()Dim firstArray() As Variant
Dim theArray() As Variant
浏览 11提问于2015-08-31得票数 1
回答已采纳
11回答
我正在使用VB6，我需要对多维数组执行一个ReDim Preserve： n = 1 Dim arrCity() As StringReDim arrCity(n, m) n = n + 1 ReDim Preserve arrCity(n, m)
运行时错误9:下标超出范围</em
浏览 18提问于2013-05-04得票数 21
3回答
我在使用redim函数和多维数组时遇到了很大困难。我正在尝试将两个多维数组合并为一个。我知道每个数组的第二个维度总是2，但是第一个维度会改变。当我使用redim函数时，我没有得到一条错误消息，但它首先会删除第一个数组中的所有内容。当我使用redim保留时，我得到一个超出范围的下标。帮助。Variant
Dim i As Integer, j As Integer, m As In
浏览 26提问于2014-09-22得票数 0
2回答
我正在尝试保留数组中的值。它检索了大约604个值。这给了我下标超出范围的错误。有人能帮上忙吗？PlCounter = 1 Debug.Print "enteredIf Len(pl.Value) = 0 Then
Debug.Print " The length is null ..so assigining
浏览 0提问于2018-01-15得票数 0
Im循环一个文件夹并动态地将不同的元素传递给数组。当数组为空且i ReDim时，数组的大小增加，但是当数组有值时，我尝试ReDim Preserve时，得到的错误为：
Dim arrNames As Variant
If Counterarr = 0 Then
浏览 2提问于2020-02-10得票数 0
回答已采纳
2回答
LongDim C As LongDim E As LongDim xLot() As String
ReDimRange("A1:A169911").Resize(169911, 1).Value = Application.WorksheetFunction.Transpose(xLot)
使用转置运行时错误我在即时窗口中运行了它，数组考虑了所有组合。任何帮助都
浏览 16提问于2016-07-29得票数 2
我希望将一个Nx1数组传递给一个函数，然后返回一个Mx1数组(即只需将数组截断为M)。我强烈倾向于尽可能高效地做这件事。这似乎不起作用： ReDim Preserve A(1 To M)
cutarray
浏览 0提问于2015-06-13得票数 0
回答已采纳
4回答
我现在用下面的代码填充我的数组证券：Securities = Array(Worksheets(3).Range("A8:A" & SymbolCount).Value)这会产生一个二维数组，其中每个地址都是(1...1...N)。我想要一个一维数组(1...N)。
如何(a)将证券作为一维数组填充，或者(b)将证券有效地剥离为一维数组(我在a with each循环中停滞不前)。
浏览 3提问于2011-10-04得票数 22
回答已采纳
我的代码将excel中的表的所有值复制到一个数组中，并对它们进行过滤，然后用它填充一个组合框，但我一直在我的代码中得到这个错误，在调试之后，这个错误似乎是由于Redim保留……能帮我查一下吗？ws.Cells(i, 4), vbTextCompare) = 0 Then
ReDim
浏览 23提问于2019-01-18得票数 0
2回答
我正在尝试返回一个excel格式的数组。Test() As Variant Dim N As Long Dim C As Long当我使用ctrl+shift+enter在3x4范围的单元格中键入=Test()时，我得到了预期的结果：5 6 7 8现在假设我想在填充数组时调整数组的大小我尝试将函数更改为：
Funct
浏览 0提问于2016-04-16得票数 3
回答已采纳
我试图遍历一个列，寻找重复的名称，然后从同一行中获取该列和其他几个数据，并将它们放入一个二维数组中，我想使用另一个函数，但它不起作用。我真的需要你的帮助来弄清楚为什么我不能在不保留数据的情况下重定向这个数组。row and column numberReDimaCell.Offset(0, 38)
浏览 3提问于2013-12-19得票数 2
回答已采纳
3回答
我有一个一维数组：array1 = Array("A", "B", "C", "D")AC我想在这个数组中添加第二个维度，保留原始数据。我想在这个数组中添加两个“列”来存储数据。lngArrayLength as Long
' Zero-indexed, so
浏览 5提问于2015-10-15得票数 0
回答已采纳
我需要过滤一些列(字符串和数字)。我将var定义为变量，将sArray()定义为字符串。我在这里变成了错误类型13 (仅适用于sArray 4,5)：var4是exp“咨询和支持”的字符串/变体，但UBound( var4 )提供了一个不匹配我不理解var1，var2和var3也像var4
浏览 0提问于2019-02-15得票数 0
2回答
我对动态数组有一些奇怪的行为。似乎VBA拒绝为变量赋值。[Name] structure.MoveNextEnd Sub 即使我像这样使用代码：
ReDim reportArray(s
浏览 4提问于2016-09-04得票数 2
回答已采纳
1回答
如何创建一个数组来存储搜索函数找到的行号，以便以后处理数据。我假设for循环计数器将在这方面发挥某种作用。
浏览 1提问于2018-11-06得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
