Private Sub Worksheet_Activate()
Dim i, n, x As Integer
x = [c1048576].End(xlUp).Row
For i = x To 2 Step -1
For n = x To 2 Step -1
If Cells(n, 2) = Cells(i, 3) Then
Cells(n, 9) = "0"
Exit For
End If
Next
Next
End Sub
我想在这个编码里加入这个功能:第1列输入到什么地方,第8至11列自动填充公式到相应的行数
呃,可以留一下你的Q吗?我想详细跟你请教一下
追答24278528
本回答被提问者采纳