宏运行到这一步为什么会出错？

截图对照说明下，

rang(ABF & ":" & ABF) 解释后的值取决于ABF，而你的ABF是从 cells（1，10）得到的，这个单元格里的值是什么东西。另外，代码风格要规整下，你取这些变量名，以及放置的位置太混乱，过几天再回头看，你自己估计都不记得ABF是个什么鬼了。

改成ABG = WorksheetFunction.Match(ABD * 1, Range(ABF & ":" & ABF), 0)

问题1：原来函数Match会返回错误1004，原因是找不到匹配项，因此需要在前面增加On Error Resume Next，然后后面对Err.Number进行判断，当Err.Number=0时，表示找到匹配内容了
问题2：ABD没有类型定义，系统默认成了字符串，而查找列A内容是数值，因此永远匹配不到。所以Match后面的ABD需要进行类型转换，强制转换为double类型，用CDbl函数转换
问题3：F无类型定义，系统默认为字符串，后续Do Until Cells(ABG, F) = ""无法获取到正确数值，强制进行类型转换

在公式前一行加个容错行，这个问题是解决了，可是然并阮，下面的代码会让你的程序进入死循环……

看你这个代码好累，你还是好好把代码风格规整一下吧，几点建议：
1、使用变量前先定义，明确变量的类型；
2、变量名称与其作用相关联，尽量不要使用中文；
3、代码按段落进行缩进；
4、学会使用F9设置断点，使用F8逐语句进行调试；
改了下，供你参考，由于不知道你各个变量的具体作用，变量是机械命名的。

Sub 号码()
a = 1
Do Until Sheet1.Cells(a, 1) = ""
ABC = Sheet1.Cells(a, 1)'全部去掉Sheet("Sheet1").Select之类的代码, 在具体的Cells操作前加上Sheet名限定
Sheet1.Cells(1, 13) = ABC
ABD = Sheet1.Cells(2, 11)
ABE = Sheet1.Cells(2, 12)
Sheet1.Cells(1, 11) = ABD
Sheet1.Cells(1, 12) = ABE
ABF = Sheet1.Cells(1, 10)
b = 2
c = 2
F = Int(Sheet1.Cells(2, 10))'F无类型定义，系统默认为字符串，后续Do Until Cells(ABG, F) = ""无法获取到正确数值，强制进行类型转换
On Error Resume Next'Match 出错是因为匹配不到数据, 因此需要加On Error Resume Next, 并且后面进行Err.Number判断及处理
ABG = WorksheetFunction.Match(CDbl(ABD), Sheet1.Range(ABF & ":" & ABF), 0)'ABD缺乏类型定义, 系统默认为字符串, 无法匹配到原表数值类型, 因此加Cdbl进行类型转换
If Err.Number = 0 Then'Err.Number=0 表示Match匹配到具体的数据了
Do Until Sheet1.Cells(ABG, F) = ""
ABH = Sheet1.Cells(ABG, 2)
ABI = Sheet1.Cells(ABG, 3)
Sheet2.Cells(a, c) = b
Sheet2.Cells(a, c + 1) = ABH'原来是ABI, 猜测这里应该是想用ABH, 因此修改
Sheet2.Cells(a, c + 2) = ABI
c = c + 3
b = b + 1
ABG = ABG + 1
Loop
End If
a = a + 1
Loop
End Sub

Sub GetXXXNumber()
Dim sheet1_row As Integer
Dim sheet1_val_rowX_col1 As Double
Dim sheet1_cell_K2 As Double
Dim sheet1_cell_L2 As Double
Dim sheet1_cell_J1 As String
Dim sheet1_cell_J2 As Double
Dim sheet1_matched_row As Integer
Dim b As Integer
Dim c As Integer
Dim ABH
Dim ABI
sheet1_row = 1
Do Until Sheet1.Cells(sheet1_row, 1) = ""
sheet1_val_rowX_col1 = Sheet1.Cells(sheet1_row, 1) '全部去掉Sheet("Sheet1").Select之类的代码, 在具体的Cells操作前加上Sheet名限定
Sheet1.Cells(1, 13) = sheet1_val_rowX_col1
sheet1_cell_K2 = Sheet1.Cells(2, 11) '固定的单元格操作, 放在循环里, 有啥意义?
sheet1_cell_L2 = Sheet1.Cells(2, 12) '固定的单元格操作, 放在循环里, 有啥意义?
Sheet1.Cells(1, 11) = sheet1_cell_K2 '固定的单元格操作, 放在循环里, 有啥意义?
Sheet1.Cells(1, 12) = sheet1_cell_L2 '固定的单元格操作, 放在循环里, 有啥意义?
sheet1_cell_J1 = Sheet1.Cells(1, 10)
b = 2
c = 2
sheet1_cell_J2 = Sheet1.Cells(2, 10) 'F无类型定义，系统默认为字符串，后续Do Until Cells(ABG, F) = ""无法获取到正确数值，强制进行类型转换
On Error Resume Next 'Match 出错是因为匹配不到数据, 因此需要加On Error Resume Next, 并且后面进行Err.Number判断及处理
sheet1_matched_row = WorksheetFunction.Match(sheet1_cell_K2, Sheet1.Range(sheet1_cell_J1 & ":" & sheet1_cell_J1), 0) 'ABD缺乏类型定义, 系统默认为字符串, 无法匹配到原表数值类型, 因此加Cdbl进行类型转换
If Err.Number = 0 Then 'Err.Number=0 表示Match匹配到具体的数据了
Do Until Sheet1.Cells(sheet1_matched_row, sheet1_cell_J2) = ""
ABH = Sheet1.Cells(sheet1_matched_row, 2)
ABI = Sheet1.Cells(sheet1_matched_row, 3)
Sheet2.Cells(sheet1_row, c) = b
Sheet2.Cells(sheet1_row, c + 1) = ABH '原来是ABI, 猜测这里应该是想用ABH, 因此修改
Sheet2.Cells(sheet1_row, c + 2) = ABI
c = c + 3
b = b + 1
sheet1_matched_row = sheet1_matched_row + 1
Loop
End If
sheet1_row = sheet1_row + 1
Loop
End Sub

=IF(C5<C4,"$B$4-D5-E5-F5-H5-J5+C4-C5","$B$4-D5-E5-F5-H5-J5")
他这个里面执行的是他的数值，要是我想执行里面的公式，有什么办法么，拜托了，谢谢