作者：乔山办公网日期：
返回目录：excel表格制作
Sub test()
Dim sHt As Worksheet
Dim i As Integer
i = 3
For Each sHt In ThisWorkbook.Sheets
If sHt.Name <> "练习zd3" and sHt.visible=-1 Then
sHt.Range("A3:F3").Copy Sheets("练习3").Range("A" & i)
i = i + 1
End If
Next
End Sub
8字符长度限制？
一、把Rand()换成Rnd()
二、调用的时候要写成=lottery()，注意右边的括号。