假设A列是顺序由小至大,D列也是顺序由小至大。 Sub x() R = 3 While Cells(R, 1) <> "" And Cells(R, 4) <> "" If Cells(R, 1) > Cells(R, 4) Then Cells(R, 1).Resize(1, 2).Insert shift:=xlDown ElseIf Cells(R, 1) < Cells(R, 4) Then Cells(R, 4).Resize(1, 2).Insert shift:=xlDown End If R = R + 1 Wend End Sub