Sub a()
Dim i, j, k
For i = 2 To Range("a2").End(xlDown).Rows + 1
For j = 2 To Range("b1").End(xlToRight).Columns + 1
If Cells(i, 1) >= Cells(1, j) Then
Cells(i, j) = Cells(1, j)
Else
Cells(i, j) = Cells(i, 1)
End If
Next
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024