VBS pharser在Excel工作表中

你好我有一个1.000行的XLS表。 我必须随机提取30行，几乎一个城市，并复制在其他表。 我已经尝试过，但我疯了。

我开始写这个脚本，但我需要帮助。

Sub emp_to_dept() Dim wks As Worksheet Windows("Sales.xls").Activate For Each wks In ActiveWorkbook.Worksheets wks.Copy After:=Workbooks("SampleSheet.xls").Sheets(1) Next Set wks = Nothing End Sub 

这里有一些行的样本。