下面是我的宏代码，转换文本为数字在以往任何一张Excel表格，并留下它与'%'符号连接：

'Convert text to numbers with one decimal place
            With rng
                .Value = .Value 'Convert text to numbers
                For Each cell In .Cells 'Loop through each cell in the range
                    If Right(cell.Value, 1) = "%" Then 'Check if the value ends with a percentage symbol
                        cell.Value = Left(cell.Value, Len(cell.Value) - 1) / 100 'Remove the percentage symbol and divide by 100
                        cell.NumberFormat = "0.0%" 'Set the number format to display one decimal place and a percentage symbol
                        cell.Value = cell.Value 'Remove trailing zero
                    End If
                Next cell
            End With

这段代码正确地将文本转换为数字，但是保留了2个小数位而不是1位。因此，对于值6.3%，它转换为6.30%。Numberformat不做任何事情。有没有帮助如何修复这个问题？