Question

我有一些代码可以剥离ID，然后仅复制值。

Range("F2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[1],FIND(""."",RC[1])-1)"
Range("F2:F4448").Formula = Range("F2").Formula
Range("F2:F4448").Value = Range("F2:F4448").Value

但是结果列包含一些以字母开头的ID，有些不以字母开头。我需要将它们全部都视为一个字符串，以便稍后查找，但是我不知道该怎么做。复制单元格后，只有以字母开头的ID才能在查找中工作。 A9999可以工作，而9999则不能。

我尝试过：

For Each i In Range("F2:F4448")
    i = CStr(i)
Next I

但是那仍然没有用。

Answer 1

最终使用：

Range("F2:F4448").Formula = Range("F2").Formula
Range("F2:F4448").Value = Range("F2:F4448").Value
Range("F2:F4448").NumberFormat = "@"

如何将一系列单元格转换为文本？

1 个答案: