VBA_x

 

 

Sub 按钮2_Click()
    
    Dim c As Range
    For i = 2 To 65536
        If Sheets("淘宝销量预测").Cells(i, 1).Value <> "" Then
            Set c = Sheets("Sheet1").Columns(1).Find(Sheets("淘宝销量预测").Cells(i, 1), lookat:=xlWhole)
            If Not c Is Nothing Then
                Sheets("淘宝销量预测").Cells(i, 25) = c.Offset(0, 1).Text
            End If
        End If
    Next

End Sub