作业帮vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4 54 7 5 65 1 6 4在g1单元格里有一个公式,用于产生1——5之间的一个整数假如随机数g1=3能否将abc列第三行,第四行内容填充到def列第一行,第
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 17:31:24
vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4 54 7 5 65 1 6 4在g1单元格里有一个公式,用于产生1——5之间的一个整数假如随机数g1=3能否将abc列第三行,第四行内容填充到def列第一行,第
vba编写一个程序
a b c d e f g
1 8 2 3 =randbetween(1,5)
2 2 9 4
3 6 4 5
4 7 5 6
5 1 6 4
在g1单元格里有一个公式,用于产生1——5之间的一个整数
假如随机数g1=3
能否将abc列第三行,第四行内容填充到def列第一行,第二行
【即d1,e1,f1分别是6,4,5；d2,e2,f2分别是7,5,6】
注：使用vba编写
先判断g1的值
假如g1=3,将abc列第三行,第四行内容填充到def列第一行,第二行
假如g1=4,将abc列第四行,第五行内容填充到def列第一行,第二行
假如g1=2,将abc列第二行,第三行内容填充到def列第一行,第二行
vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4 54 7 5 65 1 6 4在g1单元格里有一个公式,用于产生1——5之间的一个整数假如随机数g1=3能否将abc列第三行,第四行内容填充到def列第一行,第
这个很简单
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer, N As Integer
N = 1 + 5 * Rnd()
Cells(1, 7).Value = N
Range("A" & N & ":C" & N + 1).Select
Selection.Copy
Range("D1").Select
ActiveSheet.Paste
End Sub