如何把序号中的1.1改为1-1？（批量修改）

Francis的马甲

791344806 发表于 2017-7-14 11:25
这个是函数 不是宏代码

具体怎么操作呢

791344806

Francis的马甲 发表于 2017-7-14 11:12
谢谢朋友，可以把完整的代码教一下吗   对于宏   我也是个新手   抱歉！

思路 是这样的：先用FIND 函数去查找A2中有没有“.”，然后再用iferror函数去判断是不是有错，有错说明就是没找到“.”   就用if函数判断 是错误 就执行A2&"-"&A2，否则就执行SUBSTITUTE(A2,".","-")，这个函数就是个替换函数 就是把"."替换成“-”，   最近具体的函数的用法太多了~~你可以在excel中点击函数帮助去学习或者论坛中去看看~~~

AVEL

先将单元格格式都设置为文本格式，再查找 . 替换为 -

wuwenbin32415

即使先把单元格格式都设置为文本格式再查找替换，也不行，也是会变成日期。

cyh3230

还是老老实实 VBA 吧.

1. Sub Format1()
   
2. Dim i%
   
3. 
   
4. For i = 2 To [a1].End(xlDown).Row
   
5. Range("A" & i) = Replace("'" & Format(Range("a" & i), "0.0"), ".", "-")
   
6. Next
   
7. 
   
8. End Sub

复制代码

高个子

1. =IF(ISERR(FIND(".",A2)),A2&"-1",SUBSTITUTE(A2,".","-"))

复制代码

lsm3129312

裸奔的TeacherHu 发表于 2017-7-14 09:22
康锤+诶曲，输入您需要替换的字符！都能想到宏，为什么不知道替换呢？

替换前

替换后

转本文

确实不行，替换之后变成图2了，转换文本变成图3了

hailiantianlan

先输入半角英文单引号，然后输入1-0,1-1,1-2，直接下拉填充也可以，不用写公式或者宏