在UBound(sourceRange 这里报错为:compile error, expected array

看起来你在引用`UBound`时遇到了问题，这通常是因为你没有正确地处理数组或范围的边界。在VBA中，`UBound`函数用于获取数组或范围的上界索引，但是它需要一个数组或一维范围作为参数。

如果你的变量`sourceRange`不是一个数组而是单个单元格或一个多维度范围，直接使用`UBound`会出错。你应该先确认`sourceRange`是否已经被转换成了适合使用`UBound`的格式。

这里是一个修正版的代码片段，我假设`sourceRange`确实是一个一维数组：

Sub TransposeRange()
    ' 确保sourceRange是一个一维数组或已经转化为一维
    If Not IsArray(sourceRange) Or (sourceRange.Columns.Count <> 1) Then
        MsgBox "Please make sure 'sourceRange' is a one-dimensional range.", vbInformation, "Error"
        Exit Sub
    End If
    
    ' 其他部分的代码保持不变...
    ' ...
End Sub

如果`sourceRange`是一维的，上述检查会通过。如果它不是，程序会弹出错误消息提示。

记得在实际应用中替换`sourceRange`为你实际的数据范围。

相关问题

VBA 使用UBound(myArray) = -1判断数组为空报错

对于这个问题，我可以告诉你，UBound函数返回的是数组的上限，在数组为空时，UBound函数会返回-1，因此使用UBound(myArray) = -1判断数组为空会报错。你可以使用UBound(myArray) = LBound(myArray) - 1来判断数组为空。

Sub set_color() Dim r As Range, arr For Each r In Range("QF:ADT") arr = Split(r, ",") If UBound(arr) = 2 And IsNumeric(arr(0)) And IsNumeric(arr(1)) And IsNumeric(arr(2)) Then r.Value = "啊" r.Font.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2))) End If Next End Sub下标越界

这个错误很可能是因为在使用 Split 函数时，返回的数组长度不够，导致在访问数组元素时越界了。

你可以在代码中加入一些调试信息，来帮助你找到错误所在的位置。例如，你可以在循环中加入以下代码：

For Each r In Range("QF:ADT")
    arr = Split(r, ",")
    Debug.Print "arr length: " & UBound(arr)
    If UBound(arr) = 2 And IsNumeric(arr(0)) And IsNumeric(arr(1)) And IsNumeric(arr(2)) Then
        r.Value = "啊"
        r.Font.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
    End If
Next

然后在运行代码时，在 VBA 的“立即窗口”中查看输出信息，就可以知道每个数组的长度了。这样就可以找到哪个数组越界了，并根据具体情况修复代码。