vba - 如果条件检查单元格中的内容是否右对齐不起作用

Question

我有一个从 pdf 文件复制和粘贴的数据，然后使用“texttocolumns”进行拆分。我使用这些数据将特定信息提取到另一个 Excel 中。所有这些都是使用 vba 完成的。

作为其中的一部分，我有以下代码来检查单元格 A12（示例）中的内容是否右对齐。尽管单元格中的内容“显示”为右对齐，但 vba 并未将结果显示为“真”。

If Sheets("Test").Range("A12").HorizontalAlignment = xlRight Then
''Do something
End if

测试数据

Answer 1

数字默认右对齐

所以你可能想用这个

With Sheets("Test").Range("A12")
    If .HorizontalAlignment = xlRight Or (IsNumeric(.Value) And .HorizontalAlignment = xlGeneral) Then
        MsgBox cell.Value
    End If
End With