excel启用宏时，一点执行就无响应了

Sub test()
Dim sheet1_rows As Long, sheet1_columns As Long, sheetResults_rows As Long, sheetResults_columns As Long
Dim i As Long, j As Long
sheet1_rows = Sheets("Sheet1").UsedRange.Rows.Count
sheet1_columns = Sheets("Sheet1").UsedRange.Columns.Count
sheetResults_rows = Sheets("SQL Results").UsedRange.Rows.Count
sheetResults_columns = Sheets("SQL Results").UsedRange.Columns.Count

For i = 1 To sheet1_rows
For j = 1 To sheetResults_rows
If Sheets("Sheet1").Cells(i, 2).Value = Sheets("SQL Results").Cells(j, 2).Value Then
Sheets("Sheet1").Cells(i, 7) = Sheets("SQL Results").Cells(j, 8)
Sheets("Sheet1").Cells(i, 11) = Sheets("SQL Results").Cells(j, 9)
End If

Next j
Next i
End Sub

这是代码，希望大神帮忙看一下

也可能执行结束了，着重看看是否没有符合这条件的呢？
If Sheets("Sheet1").Cells(i, 2).Value = Sheets("SQL Results").Cells(j, 2).Value Then

进入工具菜单—宏—安全性—低。 工具—宏—宏，选择宏，设置执行宏的快捷键，确定。打开excel后按快捷键即可。