国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

回復(fù)：11樓

是的，這代碼是可以實(shí)現(xiàn)在一塊區(qū)域內(nèi)隨機(jī)選擇單元格的，但是因?yàn)槿绻蚁脒x擇多個(gè)，比如說(shuō)30個(gè)的時(shí)候，一行就寫(xiě)不下了。如果換行的話就會(huì)提示代碼錯(cuò)誤。

請(qǐng)問(wèn)下，是否可以在VBA中定義一個(gè)隨機(jī)變量a，然后Cells(a, a)實(shí)現(xiàn)隨機(jī)單元格。或者是有其他的方法。

回復(fù)：12樓

回復(fù)：14樓

回復(fù)：15樓

回復(fù)：15樓

回復(fù)：15樓

我嘗試著用如下代碼

Private Sub Worksheet_Activate()
Dim a As String
Dim b As String
a = Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1).Address
b = Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1).Address
Union(a, b).Select
End Sub

想把隨機(jī)單元格的地址賦值給變量a，b。然后用union函數(shù)聯(lián)合選取a,b兩個(gè)單元格

回復(fù)：18樓

我沒(méi)聽(tīng)懂。 我就是按照你的要求做的。 能否把你的要求再說(shuō)一下， 不需要把你的代碼寫(xiě)出來(lái)的。

是這個(gè)嗎？ 能否用VBA實(shí)現(xiàn)，A1：J10這塊區(qū)域中100個(gè)單元格，隨機(jī)選擇70個(gè)，并把這70個(gè)單元格復(fù)制到另一塊區(qū)域

回復(fù)：18樓

幫你再改了，A1：J10這塊區(qū)域中100個(gè)單元格，隨機(jī)選擇70個(gè)，并把這70個(gè)單元格復(fù)制到另一塊區(qū)域。

請(qǐng)下載附件

回復(fù)：20樓