遇到这种情况时,使用!
数百次的向下自动填充,手动敲?
简单的VBA代码搞定:
Sub 自动填充()
Dim i As Integer
For i = 2 To 743
If Range("b" & i) = "" Then '此时只循环判断,填充了B列,只需手动更改一下代码中的"b".(下一段代码也要改)
Range("b" & i) = Range("b" & i).Offset(-1, 0)
End If
Next
End Sub
遇到这种情况时,使用!
数百次的向下自动填充,手动敲?
简单的VBA代码搞定:
Sub 自动填充()
Dim i As Integer
For i = 2 To 743
If Range("b" & i) = "" Then '此时只循环判断,填充了B列,只需手动更改一下代码中的"b".(下一段代码也要改)
Range("b" & i) = Range("b" & i).Offset(-1, 0)
End If
Next
End Sub