今天帮网友解决了个小问题,很开心,代码如下,很简单,大家试着解读一下,每天练一练,每天都有收获!
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 1000
If Sheet1.Cells(2, 2) = Sheet2.Cells(i, 1) Then
Sheet2.Cells(i, 7) = Sheet1.Cells(2, 12)
i = 1000
End If
Next
End Sub
领取专属 10元无门槛券
私享最新 技术干货