Excel 如何异步运行两个代码？

我正在尝试运行两个模块，它们使用不同的变量运行相同的代码，因为网页不允许我运行超过40个数据网页抓取

解决此问题的方法是拆分脚本，例如：

第一个模块：

对于IntRow=43到83
第二个模块：
对于IntRow=84到124

Sub-pullDataFromWeb43to83（）
模糊的物体
作为HTMLDocument的Dim Doc
设置ie=CreateObject（“InternetExplorer.Application”）
可见=假
ie.navigate“website.com”
在忙或准备状态4时执行
Application.Wait DateAdd（“s”，1，Now）
环
设置文档=即文档
对于IntRow=43到83
ie.Document.getElementById（“主搜索输入”）.Value=Range（“B”和IntRow）.Value
Doc.getElementById（“btn搜索”）。单击
在忙或准备状态4时执行
Application.Wait DateAdd（“s”，1，Now）
环
基本=文件getElementsByClassName（“徽章p-1”）。项（0）。innerText
技术=文件getElementsByClassName（“徽章p-1”）。项目（1）。innerText
strEPS=Doc.getElementsByTagName（“td”）.Item（1）.innerText
strPE=Doc.getElementsByTagName（“td”）.Item（3）.innerText
strPEG=Doc.getElementsByTagName（“td”）.Item（5）.innerText
AltmanZ=Doc.getElementsByTagName（“td”）.Item（7）.innerText
Beaver=Doc.getElementsByTagName（“td”）.Item（9）.innerText
CurrentRatio=Doc.getElementsByTagName（“td”）.Item（11）.innerText
DebtEquity=Doc.getElementsByTagName（“td”）。项目（13）。innerText
fcfyField=Doc.getElementsByTagName（“td”）.Item（15）.innerText
DividendPerShare=Doc.getElementsByTagName（“td”）.Item（17）.innerText
RevenueQoQ=Doc.getElementsByTagName（“td”）.Item（19）.innerText
RevenueYoY=Doc.getElementsByTagName（“td”）.Item（21）.innerText
PROFITQQ=Doc.getElementsByTagName（“td”）.Item（23）.innerText
ProfitYoY=Doc.getElementsByTagName（“td”）.Item（25）.innerText
NTAQoQ=Doc.getElementsByTagName（“td”）.Item（27）.innerText
ProfitMargin=Doc.getElementsByTagName（“td”）.Item（29）.innerText
ROE=Doc.getElementsByTagName（“td”）.Item（31）.innerText
ROIC=Doc.getElementsByTagName（“td”）.Item（33）.内部文本
DividendYield=Doc.getElementsByTagName（“td”）.Item（35）.innerText
范围（“P”和简介）。值=基本值
范围（“Q”和简介）。值=技术
范围（“R”和“IntRow”）。值=strEPS
范围（“S”和IntRow）。值=strPE
范围（“T”和IntRow）。值=strPEG
范围（“U”和导入）。值=AltmanZ
范围（“V”和简介）。值=海狸
范围（“W”和“IntRow”）。值=电流比率
范围（“X”和简介）。价值=债务权益
范围（“Y”和“IntRow”）。值=fcfyField
范围（“Z”&IntRow）。值=DividendPerShare
范围（“AA”和简介）。值=收入质量
范围（“AB”&IntRow）。值=收入
范围（“AC”&IntRow）。值=PROFITQQ
范围（“AD”和简介）。值=利润
范围（“AE”和简介）。值=NTAQoQ
范围（“AF”和简介）。值=利润边缘
范围（“AG”&IntRow）。值=净资产收益率
范围（“AH”和简介）。值=ROIC
范围（“AI”&IntRow）。值=分割收益率
下一个
即退出
MsgBox“完成”
端接头
' ______________________________
子pullDataFromWeb84to124（）
模糊的物体
作为HTMLDocument的Dim Doc
设置ie=CreateObject（“InternetExplorer.Application”）
可见=假
ie.navigate“website.com”
在忙或准备状态4时执行
Application.Wait DateAdd（“s”，1，Now）
环
设置文档=即文档
对于IntRow=84至124
ie.Document.getElementById（“主搜索输入”）.Value=Range（“B”和IntRow）.Value
Doc.getElementById（“btn搜索”）。单击
在忙或准备状态4时执行
Application.Wait DateAdd（“s”，1，Now）
环
基本=文件getElementsByClassName（“徽章p-1”）。项（0）。innerText
技术=文件getElementsByClassName（“徽章p-1”）。项目（1）。innerText
strEPS=Doc.getElementsByTagName（“td”）.Item（1）.innerText
strPE=Doc.getElementsByTagName（“td”）.Item（3）.innerText
strPEG=Doc.getElementsByTagName（“td”）.Item（5）.innerText
AltmanZ=Doc.getElementsByTagName（“td”）.Item（7）.innerText
Beaver=Doc.getElementsByTagName（“td”）.Item（9）.innerText
CurrentRatio=Doc.getElementsByTagName（“td”）.Item（11）.innerText
DebtEquity=Doc.getElementsByTagName（“td”）。项目（13）。innerText
fcfyField=Doc.getElementsByTagName（“td”）.Item（15）.innerText
DividendPerShare=Doc.getElementsByTagName（“td”）.Item（17）.innerText
RevenueQoQ=Doc.getElementsByTagName（“td”）.Item（19）.innerText
RevenueYoY=Doc.getElementsByTagName（“td”）.Item（21）.innerText
PROFITQQ=Doc.getElementsByTagName（“td”）.Item（23）.innerText
ProfitYoY=Doc.getElementsByTagName（“td”）.Item（25）.innerText
NTAQoQ=Doc.getElementsByTagName（“td”）.Item（27）.innerText
ProfitMargin=Doc.getElementsByTagName（“td”）.Item（29）.innerText
ROE=Doc.getElementsByTagName（“td”）.Item（31）.innerText
ROIC=Doc.getElementsByTagName（“td”）.Item（33）.内部文本
DividendYield=Doc.getElementsByTagName（“td”）.Item（35）.innerText
范围（“P”和简介）。值=基本值
范围（“Q”和简介）。值=技术
范围（“R”和“IntRow”）。值=strEPS
范围（“S”和IntRow）。值=strPE
范围（“T”和IntRow）。值=strPEG
范围（“U”和导入）。值=AltmanZ
范围（“V”和简介）。值=海狸
范围（“W”和“IntRow”）。值=电流比率
范围（“X”和简介）。价值=债务权益