追答Private Sub CommandButton1_Click() Dim i, j As Integer For i = 3 To Range("A65536").End(xlUp).Row For j = 1 To Sheets("sheet2").Range("A65536").End(xlUp).Row If InStr(1, Cells(i, 1), Sheets("sheet2").Cells(j, 1)) > 0 Then Cells(i, 3) = Cells(i, 3) + Sheets("sheet2").Cells(j, 1) Next j Next i End Sub