如何在VBA中使用逗号存储数字

Question

如果没有逗号，即1,000＆lt;＆gt;，我必须将大量金额列表与专有系统进行比较，该系统与金额不匹配。 1000.

对于我的生活，我无法获得我的VBA代码来捕获金额中的逗号。

我已经尝试将金额存储为双，字符串，数字，货币而没有运气

With ws.Range("C:C")
    .NumberFormat = "#,##0.00"
End With

and

Amount = CDbl(ws.Cells(2, 3))

我也尝试将我从系统中拉出的数字分开，但是当我不得不为超过10毫米的数字编码时它变得非常混乱，所以我把它刮掉了。

对此的任何想法都会非常有帮助

Answer 1

单击一个单元格.....如果您在单元格中看到 1,234.56 ，并且在公式栏中看到 1234.56 ，并且您希望VBA获​​得“格式化” “价值，然后：

Sub WYSIWYG()
    Dim st As String
    st = ActiveCell.Text
End Sub

将检索值，并以逗号结束。

Answer 2

您可以导入数据并在比较之前删除逗号。这将删除任何逗号，然后强制单元格在比较之前转换为数字。

=((SUBSTITUTE(A1,",","")*-1)*-1) <> B1