EXCEL表中，同列内，如果不同行之间的编码不同，那么插入空行，这样的宏如何写？请指教！

'程序没有问题，你的数量列可能是字符型的，把数量列设置为常规型就可以了。
Sub abcd()
For i = 1 To 5000
If i = 1 Then
j = 1
End If
If Cells(i, 1) = "" Then End
If Cells(i, 1) <> Cells(i + 1, 1) Then
Range(Cells(i + 1, 1), Cells(i + 1, 250)).Select
Selection.Insert Shift:=xlDown
Cells(i + 1, 1) = "合计"
h = i - j + 1
Cells(i + 1, 3).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & h & "]C:R[-1]C)"
Cells(i + 1, 4) = Cells(i, 4)
i = i + 1
j = i + 1
End If
Next i
End Sub

首先对比编码，如果不同则将焦点放在下一行，执行 Selection.Insert Shift:=xlDown即可。

你说的事vb还是c++得语言