Excel宏 - 從數組讀取數據

如何從動態數組讀取數據？Excel宏 - 從數組讀取數據

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

謝謝！

來源

2011-04-26 CustomX

你的數組來自哪裏？ – jonsca 2011-04-26 08:21:54

你是什麼意思Jonsca？ – CustomX 2011-04-26 08:22:50

您的陣列數據在同一張紙上嗎？一張不同的紙？在一個文件？ :) – jonsca 2011-04-26 08:23:58

不知何故，您必須讓用戶輸入起始單元格以及他們是否想要水平或垂直數據。

然後，如果用戶輸入「A1」，並有10個元件和方向是水平的，你需要把它轉換成一個字符串 - >「A1：A10」

Range("A1:J10") = varRandomItems

或

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

（道歉，我忘了如何把字符串放在一起）

來源

2011-04-26 08:38:30 jonsca

謝謝！很容易接受LOL和道歉; P – CustomX 2011-04-26 08:41:37

Excel宏 - 從數組讀取數據

回答

相關問題