VBA函數打印陣列結果在活動單元格

Question

我想寫一個函數其中結果應該打印/寫入數組到單元格範圍內。

活動單元格應該是第一個元素，下一個單元格是第二個元素（等等）。因此，例如，如果我當前的活動單元格是B2，所需的結果應該如下圖所示。

我的代碼如下只適用於Debug.Pring，但我無法弄清楚如何在Excel工作表上實際使用它。

Function ShowResult() 

Dim strArray() As String 
Dim result As String 
result = "Maybe I think too much but something's wrong" 
strArray = Split(result, " ") 

Dim StartRow, i As Integer 
StartRow = 1 

For i = 0 To UBound(strArray) 
    Debug.Print strArray(i) 
    'Range("A" & i + StartRow).Value = strArray(i) <--I tried even with this, didn't work! 
Next 
End Function 

Answer 1

Sub ShowResult() 

Dim strArray() As String 
Dim result As String 
result = Application.InputBox("enter string") 

strArray = Split(result, " ") 

For I = 0 To UBound(strArray) 
    Debug.Print strArray(I) 
    Cells(I + 1, 1).Value = strArray(I) 'this puts in in column A. change column here or even prompt user for it? 
Next 

End Sub 

Answer 2

更改功能一點：使用時，您需要選擇足夠的細胞，它會覆蓋整個字符串

Function ShowResult() As Variant 

Dim strArray() As String 
Dim result As String 
result = "Maybe I think too much but something's wrong" 
strArray = Split(result, " ") 

For i = 0 To UBound(strArray) 
    Debug.Print strArray(i) 
    'Range("A" & i + StartRow).Value = strArray(i) <--I tried even with this, didn't work! 
Next 

ShowResult = Application.Transpose(strArray) 
End Function 

然後：

然後鍵入您的公式：

=ShowResults() 

按Ctrl-Shift鍵輸入，使其成爲一個數組公式：

如果處理得當，Excel將放在{}周圍的公式。

Answer 3

或者，你也可以填充返回的數組中一氣呵成，並使用數組公式...也許稱它爲..

Option Explicit 

Function ShowResult() As Variant 

Dim strArray() As String 
Dim Result As String 
Dim i As Integer 

Result = "Maybe I think too much something's wrong" 
strArray = Split(Result, " ") 

ReDim vTemp(LBound(strArray) To UBound(strArray), LBound(strArray) To LBound(strArray)) As String 
For i = LBound(strArray) To UBound(strArray) 
    vTemp(i, LBound(strArray)) = strArray(i) 
Next 
ShowResult = vTemp 

End Function