Excel VBA中如何比较日期？Do Until循环日期判断失效求助

你的问题核心是单元格日期为文本格式，而非Excel原生的日期数值类型。Excel的日期本质是代表天数的序列号，当单元格存为文本时，VBA会按字符串逐字符比较，导致"6/4/24"和"6/28/24"因开头字符匹配被误判相等。以下是几种可靠的解决方法：

• 方法1：转换为日期类型后比较
  使用DateValue函数将单元格内容转为标准日期格式，确保按日期逻辑比较：

  Do Until DateValue(Range("A1").Value) = DateValue(Range("B1").Value)
      ' 执行你的循环操作
  Loop
  

• 方法2：直接比较单元格原始数值
  利用Value2属性获取单元格的原始序列号（日期的底层存储值），跳过格式干扰：

  Do Until Range("A1").Value2 = Range("B1").Value2
      ' 执行你的循环操作
  Loop
  

• 方法3：处理带时间的日期
  如果单元格日期包含时间部分，需忽略时间仅比较日期时，用Int()提取日期的整数部分：

  Do Until Int(Range("A1").Value2) = Int(Range("B1").Value2)
      ' 忽略时间，仅比较日期部分
  Loop
  

额外建议：若频繁处理这类日期，可提前在Excel界面将A1、B1单元格格式设置为「日期」，确保输入内容被自动识别为日期数值，从根源避免格式问题。

内容的提问来源于stack exchange，提问作者Teddy Hanna