VBA代码运行太慢，求优化代码提升速度，谢谢！

说明:
在A2输入一个原始商品编号, B列为匹配商品编号 ,C列的 支持度是 A2 与B列各编码 匹配后他们相应的 支持度(数据来源于 支持度表格A列与4行交叉的数据)
D列的 置信度是 A2 与B列各编码 匹配后他们相应的 置信度(数据来源于 置信度表格A列与4行交叉的数据)

然后对B:D进行排序(按C列倒序)
求优化代码,提升速度,谢谢!

Sub 匹配支持度数据()
On Error GoTo esc
Application.ScreenUpdating = False
Dim i As Integer
Dim p As Integer
Dim b As Integer
For i = 1 To 400
If Sheets("支持度").Cells(4, i) Like Sheets("查询表过度表").Cells(2, 1) Then
For x = 2 To 400

For p = 1 To 400
If Sheets("支持度").Cells(p, 1) Like Sheets("查询表过度表").Cells(x, 2) Then
Sheets("查询表过度表").Cells(x, 3) = Sheets("支持度").Cells(p, i)
End If
Next
Next
End If
Next
Call 匹配置信度
esc:
Application.ScreenUpdating = True
End Sub

Sub 匹配置信度()
On Error GoTo esc
Application.ScreenUpdating = False
Dim i As Integer
Dim p As Integer
Dim b As Integer
For i = 1 To 400
If Sheets("置信度").Cells(4, i) Like Sheets("查询表过度表").Cells(2, 1) Then
For x = 2 To 400

For p = 1 To 400
If Sheets("置信度").Cells(p, 1) Like Sheets("查询表过度表").Cells(x, 2) Then
Sheets("查询表过度表").Cells(x, 4) = Sheets("置信度").Cells(p, i)
End If
Next
Next
End If
Next
Call 排序
esc:
Application.ScreenUpdating = True
End Sub

Sub 排序()
On Error GoTo esc
Application.ScreenUpdating = False

ActiveWorkbook.Worksheets("查询表过度表").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("查询表过度表").Sort.SortFields.Add Key:=Range("C2:C400") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("查询表过度表").Sort
.SetRange Range("B1:D400")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
esc:
Application.ScreenUpdating = True

Sheets("查询表").Select
End Sub

相关了解……