怎样用vba自动填充excel某列为空白处的数据为上一个单元格的数据？

[realjoshzuo]

怎样用vba自动填充excel某列为空白处的数据为上一个单元格的数据？

里面的空白处太多，用手工拉，或者编辑--向下填充的话工作量太大

[jiefen]

用二重循环，外面的循环行，里面的循环列（不过这要根据你填充数据的方式，比如你希望将空单元格填充为同一行，前一列的数据）。在循环体中


if 当前单元格为空 then
当前单元 = 同一行前一列的单元格值

[碧海情天-赵亮]

恐怕还得加入一点人为指定吧，简单地循环所有单元格，势必有些本不应有数据的单元格也会被错填上数据。

楼主说得太模糊，让人无法明确判断。

[seawolflover]

可以获得用户工作区，循环用户区的所有单元格既可 好像是useRange

[panyulirong]

没有装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

[沐NeMo]

学习ing：
Dim reg As Range
Set reg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
For Each nx In reg
nx.Value = nx.Offset(-1).Value

Next

[沐NeMo]

ActiveSheet.UsedRange.Rows.Count '当前工作表中已使用的行数 ActiveSheet.UsedRange.Columns.Count '当前工作表中已使用的列数

[zsx0077133]

up.
学习。