vba - 区分 MS Excel 中的数字和日期

Question

我正在处理大量数据。数据包含数字、字符串和日期。我想区分日期、字符串和数字。我在区分数字和日期时遇到问题。

我目前正在使用以下公式。

=(IF(TYPE(A1)=2,A1,TEXT(A1,"mmmm d, yyyy"))&"& "&IF(TYPE(B1)=2,B1,TEXT(B1,"mmmm d, yyyy"))&"& "&IF(TYPE(C1)=2,C1,TEXT(C1,"mmmm d, yyyy")))

如果我给出 1，它会将其格式化为日期 1900 年 1 月 1 日

即使我尝试了 ISNUMBER 函数，它也返回 true 日期，例如:ISNUMBER(10/01/1900)。

Answer 1

ISNUMBER 不起作用，因为日期是实际意义上的数字。只是格式使它们显示为日期。例如，00/01/1900 是 0 格式的日期。这同样适用于 TYPE 函数，因为它将返回一个数字的 1(无论该数字的格式是数字还是日期)

使用这个:

=LEFT(CELL("format",A1),1)

如果 A1 格式为日期，则返回 d。