所以我必须做一个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
发布于 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
https://stackoverflow.com/questions/54992668
复制相似问题