时间戳

首页 > 解决方案 > 手动分配具有 1 个条目的二维数组

excel - 手动分配具有 1 个条目的二维数组

问题描述

我试图通过将数组设置为等于 excel 范围 ( n Rows X 1 Column) 来分配二维数组。

当 ( n = 1) 这只是给我一个值，所以我想在这种情况下手动分配数组。我尝试了以下，但它填充了Error 2015

Function Get_Params(ws As Worksheet, LR As Long, Target As Range) As Variant

Dim Temp As Worksheet: Set Temp = ThisWorkbook.Sheets("Temp")
Dim LR2 As Long

ws.Range("D1:D" & LR).SpecialCells(xlCellTypeVisible).Copy
Temp.Range("U1").PasteSpecial xlPasteValues

Temp.Range("U1").RemoveDuplicates 1, xlYes
    LR2 = Temp.Range("U" & Temp.Rows.Count).End(xlUp).Row

    If LR2 = 2 Then
        Get_Params = [{Temp.Range("U2"), 1}] '<-- ISSUE HERE
    Else
        Get_Params = Temp.Range("U2:U" & LR2).Value
    End If

    Temp.Range("U1").EntireColumn.ClearContents

End Function

目标是做类似的事情

For i = LBound(Get_Params, 1) to UBound(Get_Params, 1)
    'Do something with Get_Params(i, 1)
Next i

我尝试使用该函数通过此解决方案手动分配数组Evaluate，但这会产生我的错误。我也尝试使用Get_Params = [{Temp.Range("U2").Value, 1}]并收到相同的错误

如何手动分配此数组以允许我无错误地通过上述循环？

标签： excelvba

解决方案

你可以更换

Get_Params = [{Temp.Range("U2"), 1}]

经过

Dim returnValue As Variant

'... then in the if statement:

ReDim returnValue(1 to 1, 1 to 1)
returnValue(1,1) = Temp.Range("U2").Value
Get_Params = returnValue

推荐阅读