Excel的两个小数点替换成不同字符

计算机

Excel 2010

Windows 7

选择A列，之后点击菜单栏上面的【数据】、【分列】。

在第1步里面选择“分隔符号”（通常默认），然后点击【下一步】；在第2步里面选择“其他”，在它的后面输入小数点（.），然后点击【下一步】；在第3步里面的目标区域改成“$B$1”，然后点击【完成】，分列完成。

在E1单元格里面输入公式=B1&'''&C1&''''&D1，然后向下复制填充，将会看到原先单元格里面的小数点转换成所需的符号。

如果要把原先单元格里面的数值替换，可以全选E列，按下【Ctrl+C】组合键复制，选择A1单元格并单击右键，在粘贴选项里面选择“值”。（替换之前应当做好数据备份，以免数据丢失）

由于字体的原因，显示的英文单引号可能不太像，此时修改一下字体即可，如：“宋体”改成“Arial Unicode MS”。

在F2单元格里面输入公式=SUBSTITUTE(SUBSTITUTE(A1,'.',''',1),'.','''',1)，然后向下进行复制填充，之后将会看到替换的结果。

SUBSTITUTE函数释义：（1）SUBSTITUTE是字符替换函数，语法为：SUBSTITUTE（要替换的文本，被替换的旧文本，即将替换的新文本，新文本即将替换第几次出现的旧文本）。（2）函数公式=SUBSTITUTE(SUBSTITUTE(A1,'.',''',1),'.',''''，1)里面，会优先SUBSTITUTE(A1,'.',''',1)里面值，然后才计算到外面的SUBSTITUTE，此时可以通过“公式求值”逐步查看它的计算过程。

如果要替换A列里面的值，可以参照方法一的步骤④、⑤处理。

在“Sheet1”的工作表标签上面单击右键，选择“查看代码”。

在VBA编辑器的“Sheet1”代码框里面输入以下程序代码，然后按下【F5】键运行程序。（执行程序之前应当做好数据备份）Sub TiHuan()Dim iSet mysheet1 = ThisWorkbook.Worksheets('Sheet1') '定义工作表Sheet1For i = 1 To 1000   '从第一行到第一千行If mysheet1.Cells(i, 1) <> '' Then '如果单元格不是空白，则mysheet1.Cells(i, 1) = Application.WorksheetFunction. _Substitute(mysheet1.Cells(i, 1), '.', ''', 1)  '把第一个小数点替换成单引号（')mysheet1.Cells(i, 1) = Application.WorksheetFunction. _Substitute(mysheet1.Cells(i, 1), '.', '''', 1) '把第二个小数点替换成半双引号（')End IfNextmysheet1.Columns('A:A').Font.Name = 'Arial Unicode MS' '把A列字体改成“Arial Unicode MS”End Sub

回到Excel工作表界面，将会看到程序的执行结果。