答案1
目前最好的结果是:
- 数据 -> 在列表中启用过滤器
使用VBA设置过滤条件:
Sheets(mySheet).Range(myRange).AutoFilter Field:=2, Criteria1:="<>" & myValue
仅将可见单元格复制到另一个位置:
Sheets(mySheet).Range(myRange).SpecialCells(xlCellTypeVisible).Copy Sheets(myNewSheet).Range(myNewRange).PasteSpecial Paste:=xlValues
从结果列表中随机选择一个单元格:
=INDEX('myNewSheet'!myNewRange;RANDBETWEEN(1;COUNTA('myNewSheet'!myNewRange)))