excel的VBA中将两相同内容的单元格后的内容复制成相同

2795825624

求大神帮忙，如图所示，将不同列的但有相同编号的后一单元格复制到对应编号的前一列同排

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     For j = 1 To Cells(Rows.Count, 2).End(3).Row
   
4.         If Len(Cells(j, 2)) > 0 Then
   
5.             Set Rng = Columns(3).Find(Cells(j, 2).Value, lookat:=xlWhole)
   
6.             If Not Rng Is Nothing Then
   
7.                 Rng.Offset(0, 1).Copy Cells(j, 3)
   
8.             End If
   
9.         End If
   
10.     Next j
    
11.     Application.ScreenUpdating = True
    
12. End Sub
    

复制代码

liulang0808

附件内容供参考