今天用VBA进行大数据处理，由于数据量有上万条，且表的格式复杂，需要先批量删除所有重复值再进行排序，就这么简单的步骤，如果直接对原表进行操作，VBA代码需要运行几分钟才能得出结果，但通过反复试验，我发现通过把原数据表选择性复制数值到新表，即不带任何格式地复制，然后对新表再进行操作，只需几秒钟代码即可运行完毕，效率得到了火箭般的提升，真是一个意外收获，分享给大家，希望对需要的人有所帮助。
下面是对整个工作表进行选择性粘贴数值的VBA代码：
Sub PasteValues()
'
' 工作表选择性粘贴数值
'' 设置源工作表和目标工作表Set wsSource = ThisWorkbook.Worksheets("Sheet1")Set wsDestination = ThisWorkbook.Worksheets("Sheet2")Application.CutCopyMode = FalsewsSource.Cells.CopywsDestination.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
