看板 Visual_Basic 關於我們 聯絡資訊
沒人回答我的問題,所以我來回答你的問題了 假設你的亂數是存在sheet1.range("a1:j1") Private Sub CommandButton1_Click() n = 20 For i = 1 To n Sheet2.Range("a1").Offset(i - 1, 0).Resize(1, 10).Value = _ Sheet1.Range("a1:j1").Value Next i End Sub ※ 引述《pureshores (純淨海岸)》之銘言: : 我的Sheet1會產生10個亂數 : 我希望每產生一次 就可以儲存到Sheet2的一列 (A1:J1) : (再產生一次亂數,就儲存到B2:J2...類推) : 請問該怎麼寫呢? : 小妹先謝過解答的大大了~ <(_ _)> -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.224.43.22
pureshores:大謝^口^ (臨時被拉來寫VBA整個是一切不通XD 謝謝謝謝) 05/05 02:20