標題: 各位大大幫忙一下~如何將excel空白的儲存格 自動填入特定的字 [打印本頁]

---

作者: redbean1221    時間: 2010-6-11 15:39     標題: 各位大大幫忙一下~如何將excel空白的儲存格 自動填入特定的字

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

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

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

---

作者: GBKEE    時間: 2010-6-15 17:08

回復 1# redbean1221
是這樣嗎?

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

複製代碼

---

作者: Hsieh    時間: 2010-6-15 22:22

本帖最後由 Hsieh 於 2010-6-15 23:02 編輯

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)