[已解决]请帮忙修正代码错误之处

望帝春心

1. Sub 数字转文本字()
   
2.     Dim rng As Range
   
3.     Set rng = Application.InputBox("请选择待转换的区域", "转换区域", Address, , , , , 8)
   
4.     If rng Is Nothing Then Exit Sub
   
5.     For Each rng1 In rng
   
6.     rng1.Value = "'" & rng1.Value
   
7.     Next
   
8. End Sub

复制代码