VBA求助：选择性粘贴纯数值格式的数据

xiashuming1

逻辑关系：第1步：运行VBA程序《随机分组》
第2步：将工作表"筛选 (MAX)"中O2:P22的数据复制到另一个工作簿"KKK"的工作表"MAX" A1:B21中,粘贴格式是纯数值格式。
第3步：将工作表"筛选 (min)"中O2:P22的数据复制到另一个工作簿"KKK"的工作表"min" A1:B21中,粘贴格式也是纯数值格式。
第4步：依次循环运行上面的第1步至第3步20次，相应复制到工作簿"KKK"中的数据依次则粘贴在B1:B21,……直至到AM1:AN21(也就是20次的循环)
    向大虾求助上面的VBA程序，非常感谢！！！

网海遨游

未看附件，可参考下

原数据区域.copy :新位置第1个单元格.PasteSpecial 12 '粘贴值