那位高手可以帮忙，在下需要从EXCEL中1000行里随机抽取3行显示.不重复，VB编写也可以 VBA宏还是光用VB打开啊？后者比较麻烦的说，还是给你写一下吧，只是教你方法，根据你的需要你自己修改，注意列数超过26列的时候代码要修改一下。Private Sub Command1_Click()Dim Exlapp As Object，Wbook As Object，Sht As ObjectDim RW As Long，CO As Integer，RR As LongDim I As Integer，J As Integer，S As StringSet Exlapp=CreateObject(\"excel.Application\")Exlapp.Visible=True '如果希望EXCEL不可见就改为FALSESet Wbook=Exlapp.workbooks.open(\"G：\\下载\\TEST.xlsx\")Set Sht=Wbook.sheets(\"SHEET1\")RW=Sht.usedrange.rows.Count '返回工作表行数CO=Sht.usedrange.Columns.Count '返回工作表列数RandomizeFor I=1 To 3RR=Int(RW*Rnd)+1 'RR为随机抽取的行号S=S&\"第\"&RR&\"行：For J=1 To COS=S&Sht.range(Chr(64+J)&CStr(RR)).Value&vbTabNext JS=S&vbCrLfNext IText1.Text=SEnd Sub
用VB从一个excel表中随机抽取10行数据，将这些数据放入txt文件中，怎么弄？ 在excel中，将每行数据的输出为一个独立的文本文件txt可用如下代码可以实现：Private Sub CommandButton1_Click()Application.ScreenUpdating=False '关闭屏幕刷新Dim nRow&，ncolumn&'定义区域变量nRow=Cells(Rows.Count，1).End(3).Row '确定最后行行号For i=1 To nRow '在行中进行循环ncolumn=Cells(i，Columns.Count).End(1).Column '确定每行最后列列号Open ThisWorkbook.Path&\"\\文件\"&i&\".txt\"For Output As#1 '创建文本进行输入内容Print#1，Join(Application.Transpose(Application.Transpose(Range(Cells(i，1)，Cells(i，ncolumn))))，\"，\")'输入此行内容，以\"，\"分隔内容Close#1 '关闭文本Next '下次循环Application.ScreenUpdating=True '开启屏幕刷新，与前对应MsgBox\"导出完成\"'完成友好提示End Sub
在EXCEL中如何用VB做一个随机点名系统 向大虾请教：问题背景：想做一个随机点名系统，但抽查人员必须先选定部门，比如ADM(行政部)，ENG（技术部），QAD（质保部）。选定后，即在EXCEL的某个单元格（如A8单元格）。
VBA Excel 生成不重复随机数（排除法） 本示例是从Sheet1 A列100个数据中随机抽取20个数据到B列。一、打开工作薄，按ATL+F11组合键打开VB编辑器，点击菜单栏的“插入“，插入一个模块。二、双击模块1，输入下面。
