Excelmacros – 从数组中读取数据

你如何从dynamic数组中读取数据？

ReDim idx(1 To nItemsToPick) ReDim varRandomItems(1 To nItemsToPick) For i = 1 To nItemsToPick Do booIndexIsUnique = True idx(i) = Int(nItemsTotal * Rnd + 1) For j = 1 To i - 1 If idx(i) = idx(j) Then booIndexIsUnique = False Exit For End If Next j If booIndexIsUnique = True Then Exit Do End If Loop varRandomItems(i) = rngList.Cells(idx(i), 1) Next i 

谢谢！

Answer 1

不知何故，你必须让用户input一个开始的单元格，以及他们想要水平还是垂直的数据。

然后，如果用户input“A1”，并且有10个元素，并且方向是水平的，则需要将其转换为string – >“A1：A10”

 Range("A1:J10") = varRandomItems 

要么

 Range("A1:A10") = Application.Transpose(varRandomItems) 

（道歉，我忘了如何把string放在一起）