各位大大幫忙一下~如何將excel空白的儲存格 自動填入特定的字

redbean1221

假設excel中
有10(有重複)個字串 例如 {張 張 林 林 林 林 陳 陳 王 李}
怎麼亂數填入另一個excel中的10個空白處

並且驗證行與列沒有重複?

求求各位大大幫個忙
謝謝!!

GBKEE

回復 1# redbean1221
是這樣嗎?

1. Sub Ex()
   
2.     Dim A$
   
3.     A = "張 張 林 林 林 林 陳 陳 王 李"
   
4.     A = Replace(A, " ", ",")
   
5.     MsgBox A
   
6. End Sub

複製代碼

Hsieh

回復 1# redbean1221

1. Sub Ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. mystr = Split("張 張 林 林 林 林 陳 陳 王 李", " ")
   
4. Do Until d.Count = 10
   
5. r = Int((10 * Rnd) + 1)'1~10列
   
6. k = Int((10 * Rnd) + 1)'1~10欄
   
7. d(r & k) = r & "," & k
   
8. Loop
   
9. For Each ky In d.keys
   
10.    Cells(Val(Split(d(ky), ",")(0)), Val(Split(d(ky), ",")(1))) = mystr(s)
    
11.    s = s + 1
    
12. Next
    
13. End Sub

複製代碼