作者icene (kkk)
看板Visual_Basic
标题Re: [VBA ] Excel问题..如何将乱数值一笔一笔储存ꠠ…
时间Sat May 5 02:08:32 2007
没人回答我的问题，所以我来回答你的问题了
假设你的乱数是存在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
1F：推 pureshores:大谢^口^ (临时被拉来写VBA整个是一切不通XD 谢谢谢谢) 05/05 02:20