VBA Right-Function 返回错误的数据类型

Question

我编写了一个非常简单的代码，它返回范围内每个事件单元格的最后 6 个字符。

代码工作得很好，直到它找到一个特定的单元格，其中要返回的字符应该是:“MARC01”。不幸的是，它返回一个日期类型字符 (01.Mrz)。

通过使用普通的 excel 公式，它工作正常，这就是为什么我希望它也能与宏一起工作。

在这里您可以看到我的代码，它从“A”列获取字符串并将其输入到“B”列:

    Range("B12").Activate

    Do
      ActiveCell.Value = Right((ActiveCell.Offset(0, -1).Value), 6)
      ActiveCell.Offset(1, 0).Activate

    Loop Until ActiveCell.Offset(0, -1).Value = 0

Answer 1

Excel 喜欢将任何看起来像可能日期的内容更改为日期。要强制这不会发生，请在公式前面放置一个 "'"。

ActiveCell.Value = "'" & Right((ActiveCell.Offset(0, -1).value), 6)

这将强制它保留文本。不利的一面是，如果它是一个数字，它将被保存为文本。