如何用VBA将其上面的内容向下填充

YZLSZAJ · 发表于 2017-3-9 17:23

本帖最后由 YZLSZAJ 于 2017-3-9 22:38 编辑

求助各位老师：
黄色为空单元格，如何用VBA将其上面的内容向下填充（见F列）？以A列为准，谢谢。

yzlszaj.zip (9.86 KB, 下载次数: 57)

chxw68 · 发表于 2017-3-9 17:31

Sub test()
Dim r%, i%
With Worksheets("1塔峰")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To r
If .Cells(i, 6) = "" Then
.Cells(i, 6) = .Cells(i - 1, 6)
End If
Next
End With
End Sub

复制代码

chxw68 · 发表于 2017-3-9 17:32

写完才看见楼主是离任版主！版主在开玩笑吧？

lsc900707 · 发表于 2017-3-9 18:06

Sub Macro1()
Dim i%
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
   If Cells(i, 6) = "" Then
      Cells(i, 6) = Cells(i - 1, 6)
   End If
Next
End Sub

YZLSZAJ · 发表于 2017-3-9 22:38

非常感谢两位老师的帮助。

上官瑶瑶 · 发表于 2022-11-22 22:06

chxw68 发表于 2017-3-9 17:31

你好，老师，我看了你的帖子，想试着实现类似一样的效果，麻烦老师可以指导下吗？
我是想将区域d2:h2的数据向下填充。

pit

		自动登录	找回密码
密码			免费注册

[已解决] 如何用VBA将其上面的内容向下填充

评分

评分

评分

评分