vba - 多个单元格的文本函数

Question

我想知道是否有另一种方法(而不是循环)在多个单元格上使用文本函数。

例如，以下代码可正常用于查找

Range("c2:c6").Value = Application.WorksheetFunction.VLookup(Range("a2:a6"), Range("a2:b6"), 2, 0)

但是，对于文本功能，我收到以下错误

Range("c2:c6").Value = Application.WorksheetFunction.Text(Range("A2:A6"), "000000")

Answer 1

你想要做的只是格式化单元格并复制值吗？

像下面这样？

    With Range("C2:C6")
        .Value = Range("A2:A6").Value
        .NumberFormat = "000000"
    End With

宏记录器给了我与上面类似的一些优化

使用公式

Range("C2").FormulaR1C1 = "=TEXT(RC[-2],""000000"")"
Range("C3").FormulaR1C1 = "=TEXT(RC[-2],""000000"")"
Range("C4").FormulaR1C1 = "=TEXT(RC[-2],""000000"")"
Range("C5").FormulaR1C1 = "=TEXT(RC[-2],""000000"")"
Range("C6").FormulaR1C1 = "=TEXT(RC[-2],""000000"")"

或者更动态的东西

For Each cell In Range("C2:C6")
    cell.FormulaR1C1 = "=TEXT(RC[-2],""000000"")"
Next