将范围定义为Sheet2上的coumn A中的所有数据

Question

我的问题是我想将范围定义为sheet2上A列中的所有数据。下面的代码显示活动工作表的A列中的数据。我也尝试了Sheet2.Range，这不起作用。

Private Sub UserForm_Initialize()


Dim i As Single
Dim c As Range           

ManufacturersList.Clear 'Make sure the Listbox is empty

i = 1


For Each c In Sheets(2).Range("A1", Sheets(2).Range("A" & Rows.Count).End(xlUp))
    ManufacturersList.AddItem Cells(i, 1).Value
    i = i + 1
Next

Answer 1

您正在迭代Sheet2中的单元格，但忽略了您在实际.AddItem method中创建的引用。

For Each c In Sheets(2).Range("A1", Sheets(2).Range("A" & Rows.Count).End(xlUp))
    ManufacturersList.AddItem c.Value
Next

当您引用Cells(i, 1).Value时，它使用ActiveSheet property作为Cells的父级。