怎样用vba自动填充excel某列为空白处的数据为上一个单元格的数据?
里面的空白处太多,用手工拉,或者编辑--向下填充的话工作量太大
------解决方案--------------------------------------------------------
用二重循环,外面的循环行,里面的循环列(不过这要根据你填充数据的方式,比如你希望将空单元格填充为同一行,前一列的数据)。在循环体中
if 当前单元格为空 then
当前单元 = 同一行前一列的单元格值
------解决方案--------------------------------------------------------
恐怕还得加入一点人为指定吧,简单地循环所有单元格,势必有些本不应有数据的单元格也会被错填上数据。
楼主说得太模糊,让人无法明确判断。
------解决方案--------------------------------------------------------
可以获得用户工作区,循环用户区的所有单元格既可 好像是useRange
------解决方案--------------------------------------------------------
没有装excel简单写了一下楼主自己完善。
Sub ttt()
Dim reg As Range
Set reg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
For Each nx In reg
nx.Value = nx.Offset(-1).Value
Next
End Sub
------解决方案--------------------------------------------------------
学习ing:
Dim reg As Range
Set reg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
For Each nx In reg
nx.Value = nx.Offset(-1).Value
Next
------解决方案--------------------------------------------------------
up.
学习。