Excel表格中的VBS pharser

Question

你好我有一张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

这里有一些行的样本。

Answer 1

指的是：

  

1.000行的工作表。我必须随机提取30行

，并假设“ 1000”数据位于A列中且A1作为第一项。只需将其拖下10行

=INDIRECT("A"&RANDBETWEEN(1,1000))

/（（^ _ ^）