Question

我正在尝试将一系列单元格中的值输入到数组中。

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

Date().getTimezoneOffset()

Answer 1

我已经运行并测试了以下

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

Answer 2

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

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

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

错误424对象所需的错误

2 个答案: