M列的数据跟A列的数据比较，如果相同。把M与A相同那一行M之后的数据全部放到A所在那一行的M之后。
该怎么做，求大神帮帮忙啊！

m后面有多少数据
上个图

如下图所示，就是把后面的编号要跟前面的对上 然后放在相同编号那一行后面！

按alt+f11打开vba编辑器
左边工程窗口选中thisworkbook
输入以下代码，然后按f5
——————分割线，不输入—————
Private Sub Workbook_Open()
Dim i%, tempy%, tar As Range
tempy = 2
While Not IsEmpty(ActiveSheet.Cells(tempy, 1).Value)
With ActiveSheet.Range("M:M")
Set tar = .Find(What:=ActiveSheet.Cells(tempy, 1).Value, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
If Not tar Is Nothing Then
For i = 1 To 10
ActiveSheet.Cells(tempy, i + 1) = ActiveSheet.Cells(tar.Row, 13 + i)
Next i
End If
tempy = tempy + 1
Wend
End Sub

强力啊，太感谢了！