第2个回答 2022-07-07
Sub 比对数据()
Dim x As Integer
Dim y As Integer
For y = 100 To 7 Step -1
For x = 100 To 7 Step -1
If Cells(x, 1).Value = 1 Then
Cells(y, 5).Value = Cells(x, 3).Value
Exit For
End If
Next x
Next y
End Sub
把这个运行一下,就是需要的结果
或者,你的变量Y是多余的,你是想把与第一列单元格为1的在同行5列的数据改成3列的,下面这个就行
Sub 比对()
Dim x As Integer
For x = 100 To 7 Step -1
If Cells(x, 1).Value = 1 Then
Cells(x, 5) = Cells(x, 3).Value
End If
Next x
End Sub