为什么我阵列中的所有元素都是相同的？

问题描述：

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

这是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

如果'plm'是一个对象，则需要在每个周期中实例化一个新对象。如果是这样的话，试着把'Set plm = New ***'放在'With plm'之前。 – xificurC 2014-10-03 21:09:05

是的，在将plm设置为新对象后，它可以正常工作。非常感谢你！ – Catheryan 2014-10-03 23:07:52

答

如OP的问题的评论回答：

如果PLM是你需要实例化一个新的每个周期的对象。尝试把Set plm = New ***之前用plm如果是这样的话。 - xificurC

为什么我阵列中的所有元素都是相同的？

相关推荐