Sub 按钮2_Click()
Dim i As Integer
Dim x As Integer
For i = 2 To 54
For x = 3 To 46
If Sheets("sheet2").Range("B" & i) = Sheets("sheets4").Range("C" & x) Then
Sheets("sheet2").Range("H" & i) = Sheets("sheet2").Range("H" & i) & Sheets("sheets4").Range("B" & x)
End If
Next
Next
End Sub