Question

我有一个动态创建数组的函数，但是创建的数组中的元素都是相同的。所有元素都被最后一个元素覆盖。

这是VBA问题还是我做错了？有人可以帮忙吗？提前谢谢你。

For count = 1 To 2
    Set sheet = deviceBook.Worksheets.Item(1)
    Set find = sheet.range("A1", GetColName(sheet.UsedRange.Columns.count, sheet) & "1")
    With find   
    carrierClo = GetCellColumn(carrierTitle, sheet, find)   
    modelNoCol = GetCellColumn(modelNoTitle, sheet, find)
    End With
    For row = 2 To sheet.UsedRange.Rows.count
        If sheet.range(carrierClo & row).value <> ""
        And sheet.range(modelNoCol & row).value <> "" Then
            With plm
                .carrierName = sheet.range(carrierClo & row).value
                .modelNo = sheet.range(modelNoCol & row).value
                Set plms(UBound(plms)) = plm
                ReDim Preserve plms(UBound(plms) + 1)
            End With
        End If
    Next
Next

Answer 1

正如OP的问题评论所述：

如果plm是一个对象，则需要在每个循环中实例化一个新对象。尝试将Set plm = New ***放在之前使用plm，如果是这样的话。 - xificurC

为什么我的数组中的所有元素都相同？

1 个答案: