在VBA中转置范围

Question

我正在尝试通过VBA宏在Excel中转置一系列单元格，但出现一些错误，主要是错误91。我对VBA还是很陌生，对功能也不是很了解。Range(InRng).SelectSet Range1 = SelectionDim DestRange As RangeSet DestRange = Application.WorksheetFunction.Transpose(Range1)经过几个论坛之后，这就是我的想法。需要注意的一件事是，我不必将它们复制到任何其他单元格中。我要实现的目标是创建一个协方差方法，并且在选项窗口中，用户可以选择范围，然后按列或按行选择，这将影响所得的协方差矩阵。

Answer 1

这使您可以将X和X'作为变量数组传递给另一个函数。

Dim X() As Variant

Dim XT() As Variant

X = ActiveSheet.Range("InRng").Value2

XT = Application.Transpose(X)

要将转置值作为范围，您必须通过此工作表中的答案来传递它。如果不了解协方差函数的工作原理，很难看到所需的东西。