复杂的查找和替换

Question

我要完成客户价目表是一项非常复杂的任务，这基本上是一项“填补差距”的工作。以下是导出到Excel时如何在软件中设置价目表的示例，我想做的是编写一个公式，该公式将用£0.00中的预定值填充任何DEFAULT价格值列表。

要大致了解一下范围，大约要运行3000种产品和800个客户价格表，因此手动完成这项任务非常非常大。

Answer 1

这是一种方法。调整范围和公式以适合。

Sub x()

With Range("B2:C8")
    .Replace 0, "", xlWhole
    on error resume next
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC1"
End With

End Sub

之前

之后