如何使用VBscript打乱excel电子表格的行



我有一个excel电子表格,里面有一些已经排序的数据。我希望通过使用VBscript动态地搅乱行来撤消这种排序。有什么办法我能做到这一点吗?

示例:假设我有10个科目,每个科目有100个问题。它们都以主题顺序出现在excel表中,我需要将它们打乱,这样它们就可以随机出现,而不会使用VBscript按主题排序。

为每个条目分配一个随机数并进行排序。

随机逻辑非常简单,对column->使用rand(),然后使用Filter进行排序

  • '在单元格的第一列上应用随机公式
    oReadSheet.Cells(iRow,1)="=Rand()"
  • '排序
    调用oReadSheet.Sort.SortFields.Add(oReadSheet.Columns(1),xlAscending)

参考工作代码:-
使用vbscript 对Excel数据进行随机化的示例

最新更新