Question

我将很多信息（1000行和至少24列）从一张纸复制到另一张纸。许多单元格包含“”。如果这些单元格中的任何一个包含“”，这会使我的其他公式（例如：A1-B1）显示值错误。我相信我可以通过不粘贴“”而是粘贴“ 0”来解决问题。但是，我想随后删除这些“ 0”。

前3行中可能有值，但其他997行中有“”。

我认为我需要告诉宏（“ sheet1”工作表中的单元格A1显示“ G5：H12”。我需要删除的单元格）：

Rowstodelete = Sheets("sheet1").Range("A1").Value

Sheets("sheet1").Range("rowstodelete").clearcontent

这不起作用。有人知道怎么做吗？

摘要（新示例）

如果单元格A1 =“ B1：B2”，我想清除B1和B2的内容，但是如果现在A1 = B4：B6，则应清除这些单元格。

Answer 1

尝试这个：

With Worksheets(1).Range( _'PLACE YOUR RANGE
                                            ) 
    Set c = .Find(0, lookin:=xlValues) 
    If Not c Is Nothing Then 
        firstAddress = c.Address 
        Do 
           c.Value = "" 
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing
    End If 
End With

希望有帮助

无论如何，我认为在操作公式中放置条件会更简单：=IF(OR(A1="",B1=""),Make when there is an unexpected value,A1-B1)

如何根据单元格值清除行中的内容？

1 个答案: