Question

我一直试图创建一个宏，该宏除其他事项外还会删除表中J列为空的行。 J列并不是真正的空白，它是空白的，因为公式集导致空白（该公式在下面供参考）。

=IFERROR(VLOOKUP([@[orig_site]],SITE_CLEAN,2,FALSE),"")

我已经到了要复制J列的位置，将值粘贴到公式上，使用文本到列使空白单元格真正空白，然后选择J列中的空白单元格，然后尝试Selection.EntireTow。删除，但我不断收到一条错误，内容为“运行时错误'1004'：Range类的删除方法失败”

Range("OpenCycle_DATA[SITE_CLEAN]").Select
Application.CutCopyMode = False
Selection.Copy
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("J2"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Range("OpenCycle_DATA[SITE_CLEAN]").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

根据表中的选定单元格删除行

0 个答案: