UC知道用vba，删除excel文件里某列数据中的[,]和[￥]两个特殊字符
来源：百度知道 编辑：UC知道 时间：2024/06/09 18:11:36
用vba，删除excel文件里某列数据中的[,]和[￥]两个特殊字符，
以及在此列中检测到未输入数据（也就是空显示）的单元格，用MsgBox报个错误。
求vb方面的大师帮帮忙。
两个程序是分开的，不是在一个语句里的。
楼下的哥们，你写的不太符合，这是我写的一段，但想要的是这个单元格输入的字符中包含“，”号的，不是只有一个“，”号，至于一列的循环，我已经解决，所以只要个能解决单元格的函数就行了。
If StrComp(Range(Cel_标准価格税込 & Cnt).Value, ",") = 0 Then Range(Cel_标准価格税込 & Cnt).Value = ""
以及在此列中检测到未输入数据（也就是空显示）的单元格，用MsgBox报个错误。
求vb方面的大师帮帮忙。
两个程序是分开的，不是在一个语句里的。
楼下的哥们，你写的不太符合，这是我写的一段，但想要的是这个单元格输入的字符中包含“，”号的，不是只有一个“，”号，至于一列的循环，我已经解决，所以只要个能解决单元格的函数就行了。
If StrComp(Range(Cel_标准価格税込 & Cnt).Value, ",") = 0 Then Range(Cel_标准価格税込 & Cnt).Value = ""
InStr(Range("A" & Cnt), ",") > 0'用这个判断是否存在
Range("A" & Cnt) = Replace(Range("A" & Cnt), ",", "")'然后用这个替换
-------------------------------------------------------------
Dim wkValue as String
' 从1开始循环直到A列最后一个有数据的单元格
for i = 1 to Range("A65536").End(xlUp).Row
if cells(i,1) = "" then
msgbox "A" & i & "数据错误"
else
wkValue = Replace(cells(i,1),",","") ' 替换","为""
wkValue = Replace(wkValue,"￥","") ' 替换"￥"为""
cells(i,1) = wkValue
end if
next