Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 在包含文本和数字的列中的数字后添加“%”_Excel_Excel 2010 - Fatal编程技术网

Excel 在包含文本和数字的列中的数字后添加“%”

Excel 在包含文本和数字的列中的数字后添加“%”,excel,excel-2010,Excel,Excel 2010,我有一个包含文本和数字的电子表格。我的老板让我在某一列的所有数字后面加一个百分号。我知道有一个简单的方法可以做到这一点,但我想不出来 文本示例如下: 评级为70。与团队合作很好。产量95,准确度98。需要信心训练 希望它是: 评级为70%。与团队合作很好。95%的产量和98%的准确度。需要信心训练。 非常感谢 下面是一个使用VBA的方法。选择要处理并运行此短宏的单元格: Option Explicit Sub Percentology() Dim r As Range, sin As

我有一个包含文本和数字的电子表格。我的老板让我在某一列的所有数字后面加一个百分号。我知道有一个简单的方法可以做到这一点,但我想不出来

文本示例如下: 评级为70。与团队合作很好。产量95,准确度98。需要信心训练

希望它是: 评级为70%。与团队合作很好。95%的产量和98%的准确度。需要信心训练。 非常感谢

下面是一个使用VBA的方法。选择要处理并运行此短宏的单元格:

Option Explicit

Sub Percentology()
    Dim r As Range, sin As String, sout As String
    Dim i As Long, L As Long, CH As String

    For Each r In Selection
        sin = r.Value
        sout = ""
        L = Len(sin)
        sout = Left(sin, 1)
        For i = 2 To L
            CH = Mid(sin, i, 1)
            If Not IsNumeric(CH) And IsNumeric(Right(sout, 1)) Then
                sout = sout & "%"
            End If
            sout = sout & CH
            If i = L And IsNumeric(CH) Then sout = sout & "%"
        Next i
        r.Value = sout
    Next r
End Sub
之前:

及之后:

这使用了爬虫技术而不是正则表达式

编辑1:

宏非常易于安装和使用:

ALT-F11将显示VBE窗口 ALT-I ALT-M打开一个新模块 粘贴内容并关闭VBE窗口 如果保存工作簿,宏将与工作簿一起保存。 如果在2003年以后使用Excel版本,则必须保存 文件的格式为.xlsm而不是.xlsx

要删除宏,请执行以下操作:

如上所述打开VBE窗口 清除代码 关闭VBE窗口 要使用Excel中的宏,请执行以下操作:

ALT-F8 选择宏 触跑 要了解有关宏的更多信息,请参阅:


必须启用宏才能使其工作

是否可以使用=concatenatecellref%,它在文本后面添加了%,而不是在numberHow about=cellref&%之后?这会将每个条目转换为文本。你真棒,我很感激你的回答,但我是一个完全的新手,甚至不知道宏放在哪里。@user7402286然后查看我的EDIT1