VBA：如何使我的函数同时适用于垂直和水平矢量

Question

我有一个向量（行和列），我想为该向量中的每个值计算一个特定的函数（例如 x+5），我想让它显示在指定的单元格数组中。我写了一个函数，在 Excel 中它适用于单个单元格或行向量。但是当我在列向量上尝试它时，它会返回为数组中所有值的第一个单元格计算的值。你能帮我吗，我做错了什么或者为什么它不起作用？ 我的代码是这样的

选项基础 1

Public Function TestFunction(arr As Range) As Variant
 Dim i As Integer
 Dim j As Integer
 Dim NoCols As Integer
 Dim NoRws As Integer
 Dim FV() As Double

 NoCols = arr.Columns.Count
 NoRws = arr.Rows.Count


If NoCols = 1 Then
  ReDim FV(NoRws)
     For i = 1 To NoRws
         x = arr.Rows(i)
         FV(i) = x + 5
    Next i

Else
 ReDim FV(NoCols)
    For j = 1 To NoCols
     y = arr.Columns(j)
     FV(j) = y + 5
    Next j

End If

TestFunction = FV()

End Function

Answer 1

我怀疑如果给定行向量，它应该返回一个行向量，如果给定一个列向量，它应该返回一个列向量。如果是的话：

Public Function TestFunction(arr As Range) As Variant
 Dim i As Integer
 Dim j As Integer
 Dim NoCols As Integer
 Dim NoRws As Integer
 Dim FV() As Double

 NoCols = arr.Columns.Count
 NoRws = arr.Rows.Count

 If NoCols = 1 Then
  ReDim FV(1 To NoRws, 1 To 1) ' column vector = multiple rows, 1 column = FV(row, 1), using (1 to ...) DIMs to avoid Option Base 1
  For i = 1 To NoRws
   x = arr.Cells(i, 1)
   FV(i, 1) = x + 5
  Next i
 ElseIf NoRws = 1 Then
  ReDim FV(1 To 1, 1 To NoCols) ' row vector = 1 row, multiple columns = FV(1, column)
  For j = 1 To NoCols
   y = arr.Cells(1, j)
   FV(1, j) = y + 5
  Next j
 End If

 TestFunction = FV()

End Function

Answer 2

不要反对使用二维数组。

这适用于单行或单列或单元格块：

Option Base 1

Public Function TestFunction(arr As Range) As Variant
   Dim i As Long
   Dim j As Long
   Dim NoCols As Long
   Dim NoRws As Long
   Dim FV()

   NoCols = arr.Columns.Count
   NoRws = arr.Rows.Count
   FV = arr

   For i = 1 To NoRws
      For j = 1 To NoCols
         FV(i, j) = FV(i, j) + 5
      Next j
   Next i

   TestFunction = FV()

End Function