[已解决]表格填充

cenna

我有如图所示数据，需要判断486，487，488是否有数据，若没有则用A485:k485填充A486:K488,VBA如何解决，谢谢

最佳答案

月排行榜 / 总排行榜

excel助手

2016-1-8 08:55

Public Sub tianchong()
Dim c As Range
For Each c In Range("a486:k488")
    If c = "" Then c = c.Offset(-1, 0)
Next c
End Sub

跳转到最佳答案楼层

baksy

公式输入后 ctrl + enter 两键回车。

excel助手

Public Sub tianchong()
Dim c As Range
For Each c In Range("a486:k488")
    If c = "" Then c = c.Offset(-1, 0)
Next c
End Sub

cenna

谢谢两位大神，均能实现填充，我要的是VBA代码，所以3楼最佳