Excel公式将整个工作簿中的价格更改10%

我有一份Excel价格表，其中附有单独的表格，每张表格都在不同的栏中提到了价格。有没有办法提高价格，例如：如果工作簿中提到了$（美元）符号，请将这些列增加10%？

我认为没有任何内置函数可以做到这一点，但这是一个 也许会管用。您可能需要将数字调整为正常的本地数字，我假定它是“$#，##0.00”（美国）。 您需要按ALT+F11并将以下代码粘贴到“此工作簿”中。然后调用main（）

---

我不认为有任何内置函数可以实现这一点，但是这个 也许会管用。您可能需要将数字调整为正常的本地数字，我假定它是“$#，##0.00”（美国）。 您需要按ALT+F11并将以下代码粘贴到“此工作簿”中。然后调用main（）

---

如果你喜欢这个答案，你可以点击绿色的V，将其标记为接受答案。我还改进了代码。当我运行这段代码时，我看到的只是一个弹出窗口，上面写着“将军”，它会不断弹出吗？而且它也不会改变价格。是的，那行只是为了验证格式。您可以通过在左侧加上引号对其进行注释，因此：'MsgBox（Cells（i，column）.NumberFormatLocal）。你需要找出美元价格的格式。好的，所以我看了整个工作簿和表格。在F列和G列中都有带$symbol的价格，而且我运行了你的代码，但它对meTake不起作用。查看主要方法：在其中添加所有字母，因此调用CHECKDOURAL（“D”）调用CHECKDOURAL（“E”）etcIf你喜欢这个答案，你可以单击绿色V将其标记为接受答案。我还改进了代码。当我运行这段代码时，我看到的只是一个弹出窗口，上面写着“将军”，它会不断弹出吗？而且它也不会改变价格。是的，那行只是为了验证格式。您可以通过在左侧加上引号对其进行注释，因此：'MsgBox（Cells（i，column）.NumberFormatLocal）。你需要找出美元价格的格式。好的，所以我看了整个工作簿和表格。在F列和G列中都有带$symbol的价格，我也运行了你的代码，但它对meTake不起作用。看看主要的方法：在其中添加所有的字母，所以调用CheckDollar（“D”）调用CheckDollar（“E”）等等

Public Sub main()

Call CheckDollar("A")
Call CheckDollar("B")
Call CheckDollar("C")
Call CheckDollar("D")
Call CheckDollar("E")
Call CheckDollar("F")
Call CheckDollar("G")
'etc
End Sub


Public Sub CheckDollar(column As String)

Dim N As Long, i As Long


N = Cells(Rows.Count, column).End(xlUp).Row

For i = 1 To N
' MsgBox (Cells(i, column).NumberFormatLocal)
If InStr(Cells(i, column).NumberFormatLocal, "$$") > 0 Or Cells(i, column).NumberFormatLocal = "$#,##0.00" Then
Cells(i, column).Value = (Cells(i, column).Value) * 1.1
End If
Next i

End Sub