思路决定运行速度

设计唯一值/独有值提取还有一个案例，求2列数据的独有值（A列有且不在J列的称A列独有值）
在低版本的excel一般采用函数Countif、函数match、函数vlookup等的处理，对于海量数据简直是煎熬，至于用VBA的字典或集合等方式更是蛮不可以，80万行数据要4000s才能给出结果。有没有更迅捷的方式？
用删除重复值速度大约20s（2列都是60多万行为例）：A列数据复制到J列数据下，执行数据-删除重复值，J列数据下面就是A列独有值，J列同理。
有没有更快的方式，采用VBa调用更成熟的bat处理，写个自定义函数，3s出结果。
vba：我数据从3行开始
aa= Range("a3:a" & [a1048576].End(xlUp).Row)
jj= Range("j3:j" & [j1048576].End(xlUp).Row)
Workbooks.Add
[a1].Resize(UBound(aa), 1) = aa
ActiveWorkbook.SaveAs Filename:="G:\319\a.txt",FileFormat:=xlUnicodeText, CreateBackup:=False
[a1].Resize(UBound(aa), 1).Clear: Set aa = Nothing
[a1].Resize(UBound(jj), 1) = jj: Set jj = Nothing
ActiveWorkbook.SaveAs Filename:="G:\319\j.txt", FileFormat:=xlUnicodeText,CreateBackup:=False
ActiveWorkbook.Close
Setwsh = CreateObject("WScript.Shell")
result = wsh.Run("""" & "G:\319\求独有.bat"& """", 0, True)
Workbooks.Open Filename:="G:\319\独有a.txt"
aa= Range("a1:a" & [a1048576].End(xlUp).Row)
ActiveWorkbook.Close
Range("a" & [a1048576].End(xlUp).Row +1).Resize(UBound(aa), 1) = aa: Set aa = Nothing
Workbooks.Open Filename:="G:\319\独有j.txt"
aa= Range("a1:a" & [a1048576].End(xlUp).Row)
ActiveWorkbook.Close
bat脚本
<#*,:
@璐村惂鐢ㄦ埛_000076K馃惥 off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"
exit /b
#>
# a.txt j.txt 生成独有文件
$srca = "a.txt" # 文件 a.txt
$srcj = "j.txt" # 文件 j.txt
$dsta = "独有a.txt" #文件 独有a.txt
$dstj = "独有j.txt" #文件 独有j.txt
foreach ($item in $srca, $srcj) {
if (-not [IO.File]::Exists($item)) {
"找不到文件:$item"
return
}
}
$watch = [System.Diagnostics.Stopwatch]::StartNew() # 计时器
Add-Type -AssemblyName System.Core
# 读取$srca
"读取文件:$srca"
$linesa = [IO.File]::ReadAllLines($srca)
# 读取$srcj
"读取文件:$srcj"
$linesj = [IO.File]::ReadAllLines($srcj)
# 兼容ps2.0,需要先获取GenericMethod
$method_except = [System.Linq.Enumerable].GetMethods() | Where-Object { $_.Name -eq 'Except' } | Select-Object -First 1
$method_except_string = $method_except.MakeGenericMethod([string])
# 生成$dsta
"生成文件:$dsta"
$method_except_string.Invoke($null, @($linesa, $linesj)) | Set-Content -LiteralPath $dsta
# 生成$dstj
"生成文件:$dstj"
$method_except_string.Invoke($null, @($linesj, $linesa)) | Set-Content -LiteralPath $dstj
"脚本用时:"
$watch.Elapsed #统计脚本用时