[英]VBA UDF Variant/Integer and Variant/String Arrays are printing only the first value to output cells
以下作品很棒(感谢这个社区的慷慨帮助!)
Function RangeToArrayToRange(inputRange as Range) As Variant
Dim inputArray As Variant
inputArray = inputRange
RangeToArrayToRange = inputArray
End Function
此功能会将输入范围完美复制到输出。 但是,当我对inputArray进行一些操作时,数组看起来很完美,但是在Excel中,只有数组的第一个值会打印到所有单元格。 在此示例中,我从一些输入字符串中解析出一个数字。
输入范围
ABC=1X:2Y
ABCD=10X:20Y
ABCDE=100X:200Y
码:
Function RangeToArrayToRange(inputRange As Range) As Variant
Dim inputHeight As Integer
inputHeight = inputRange.Count
Dim inputArray As Variant
inputArray = inputRange
Dim strippedArray() As Variant
ReDim strippedArray(1 To inputHeight)
Dim currentInput As String
Dim currentInputAsInt As Integer
Dim i As Integer
For i = 1 To inputHeight
currentInput = inputArray(i, 1)
currentInput = Right(currentInput, (Len(currentInput) - Application.WorksheetFunction.Find("=", currentInput)))
'splits out everything left of the "="
currentInput = Right(currentInput, (Len(currentInput) - Application.WorksheetFunction.Find(":", currentInput)))
'splits out everything to the right of the ":"
currentInput = Left(currentInput, Len(currentInput) - 1)
'split out the letter to allow int casting
currentInputAsInt = CInt(currentInput)
'cast to int
strippedArray(i) = currentInputAsInt
'saved
Next i
RangeToArrayToRange = strippedArray
End Function
预期产量:
1
10
100
实际输出:
1
1
1
通过调试器运行,strippedArray分别在strippedArray(1)/(2)/(3)位置包含Variant / Integer值1,10,100。 问题是,据我所知,我数组在Excel中输入的范围仅包含strippedArray(1)。
谢谢!
如果要输出回Excel工作表/范围,则strippedArray
数组需要为二维(我假设您将其作为数组公式运行)。 进行以下更改:
ReDim strippedArray(1 To inputHeight, 1 To 1)
...
strippedArray(i, 1) = currentInputAsInt
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.