VBA按0和1随机填充单元格
VBA按0和1随机填充单元格
提问于 2019-03-05 06:36:56
所以我必须做一个VBA，我必须随机化0和1。我做了一个非常基本的版本，它只用1填充单元格
Sub numberchangenormal()
Dim targetrange As Range
Dim Cell As Range
Set targetrange = Range("A1:D1")
For Each Cell In targetrange
Cell.Value = Int(1)
Next Cell
Set targetrange = Range("F1:I1")
For Each Cell In targetrange
Cell.Value = Int(1)
Next Cell
End Sub在前四行(A1:D1)中，我只需要一个1(其余的是0)示例：
0|0|1|0
在后四行(F1:I1)中，我至少需要一个1(其余为0或1)示例：
1|0|1|1
回答 1
Stack Overflow用户
发布于 2019-03-05 07:20:23
可以一次分配所有单元格：
Sub numberchangenormal()
[a1:d1,f1:i1] = "=RANDBETWEEN(0,1)" ' set Excel formula to all of the cells
[a1:d1] = [a1:d1].Value ' optional to convert the formulas to values
[f1:i1] = [f1:i1].Value
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/54992668
复制相关文章
相似问题