使用公式更改单元格的格式

Question

您好我想更改我的专栏中的单元格格式＆＃34;我＆＃34;至＆＃34; 0000＆＃34;格式，使用公式（因此不使用.NumberFormat方法）和VBA。

例如，如果范围（＆＃34; A1＆＃34;）。值= 09，则公式将其转换为0009等。

我试过这个，但它不起作用：

With Range("I2", Cells(Rows.Count, "I").End(xlUp))
   .Value = Evaluate("INDEX(TEXT(" & .Address(external:=True) & ",""0000""),)")
End With

提前感谢您的帮助， 此致 J.Garry

Answer 1

非VBA

=right("000"&A1,4)

基本上标记在前面的一堆0上，将数字转换为字符串，然后取最后4个字符。这假设您正在使用整数，因此不会被小数点抛弃。