错误424对象所需的错误

我试图将一个单元格中的值input到数组中。

下面的代码给我一个错误424对象所需的消息。 请帮忙

feedingtypes() = wbfeedingtypes.Range("A2:A" & lrowfeedingtypes).Value

Answer 1

我相信这是你要找的东西：

 Dim feedingtypes() As Variant feedingtypes = wbfeedingtypes.Sheets(1).Range("A2:A" & lrowfeedingtypes) 

请注意，variables名称后面的第二行代码中没有括号。 根据你的意见，似乎只有一个工作表。 因此，您也可以通过编号参考工作表。 我相应地改变了答案。

Answer 2

我已经运行并testing了以下内容

 Sub RangeToArray() Dim i As Long Dim ws As Worksheet Dim myRange As Range, cell As Range Dim feedingtypes() As String Set ws = ThisWorkbook.Worksheets(1) Set myRange = ws.Range("A1:A20") i = 1 For Each cell In myRange 'Only add non blanks If cell.Value <> "" Then 'Resize the array each time another cell is added ReDim Preserve feedingtypes(i) feedingtypes(i) = cell.Value i = i + 1 End If Next cell End Sub