Question

请教大神：一个VBA格式设置问题？谢！ .......图 ↓

Answer 1

假设数据时A7：A10，可以用以下宏设置：

Sub t()
For Each c In Range("A1:A10")

If c <> "" Then Cells(c.Row, 1) = "'" & c
Next

End Sub

追问

多谢，但是咋没有反应呢？.................

追答

放到对应的sheet下面运行，并且注意range对应的也要修改成你的区域

追问

只有A7有变化，且不是目标效果

追答

文件上传发给我试试

追问

http://pan.baidu.com/s/1dDt01HJ

追答

Sub t()
For Each c In Range("A1:A10")
Dim l As LongLong
If c "" Then
l = c * 1
Cells(c.Row, 1).Value = "'" & l
End If
Next

End Sub

试试

追问

追答

额 我的没有问题 你的是什么版本的？

追问

2007，谢谢！
大神的是什么版本?我看看能否见贤思齐....

追答

我的是10版的~
额 好吧 没辙了 我电脑可以 不行的话把数据给我帮你跑好了。。。