关于指定遍历顺序的问题

rdfzfanghui

各位好，我有一个关于遍历表格的问题：先遍历某一列填充指定值后，再遍历除了该列的 其他行，但是下面的代码是运行不了的。

请见附件测试数据。请教各位，非常感谢。


Sub test()

Dim i, j As Integer

For i = 2 To Range("A1000000").End(xlUp).Row

    For j = 2 To UsedRange.Columns.Count

'''如果B列数据为空，则该B列单元格=E列的值

    If Cells(i, "B") = "" Then Cells(i, "B") = Cells(i, "E")

       Next
"填充完B列后，再遍历各行（除了B列），如果为空的，则=左边单元格的值
    If Cells(i, j) = "" Then Cells(i, j) = Cells(i, j - 1)

    Next

End Sub

rdfzfanghui

Hi 感谢反馈，报错说 运行时错误1004，定义程序定义或者对象定义错误

rdfzfanghui

朱荣兴 发表于 2016-7-8 13:05
试试看

我按照您的方法修改了代码，还是报错说运行错误1004.。。。