批量移除文本识别符问题

f8b1987

批量移除文本识别符问题.zip (7.4 KB, 下载次数: 7)

2024-7-27 17:32 上传

点击文件名下载附件

单元格中存在文本识别符'
要求不改变边框、字体大小、颜色、下划线、上标、下标等其他所有可能存在的格式。

写入VBA中是没有这个符号的，但是如果不重置格式，从VBA写回到原单元格中，又会自动添加文本符号。

日常使用没什么问题，但是从编辑栏复制到网页中，很容易把这个符号也复制上去。

各位有什么好办法吗

ynzsvt

要求已经过分，去掉单引号，必须要加上其他的不可见字符，比如 空格、Tab之类的。

shiruiqiang

right(单元格,len(单元格)-1)

f8b1987

shiruiqiang 发表于 2024-7-27 18:34
right(单元格,len(单元格)-1)

公式不能解决格式问题，粘贴值回去，还会有相同问题，还是会多出这个文本符号'

shiruiqiang

公式



代码

ykcbf1100

没有那个文本符号，那A列都成数值了。
你可以试试3楼的办法。

f8b1987

ykcbf1100 发表于 2024-7-27 20:24
没有那个文本符号，那A列都成数值了。
你可以试试3楼的办法。

主要是考虑保留其他格式，比如颜色、边框、上标、下标，只去掉符号，不改变其他

ynzsvt

使用条件格式和粘贴板可以对区域做到结果，但代码不会。

ttiemike

Sub 批量移除文本识别符()
    Dim ws As Worksheet
    Dim cell As Range
    Dim values() As String
    Dim i As Long
   
    ' 设置工作表对象，这里假设使用活动工作表
    Set ws = ActiveSheet
   
    ' 获取工作表中所有使用过的单元格的值
    ReDim values(1 To ws.UsedRange.Cells.Count)
    For i = 1 To ws.UsedRange.Cells.Count
        values(i) = ws.UsedRange.Cells(i).Value
    Next i
   
    ' 处理数组中的值
    For i = 1 To UBound(values)
        If InStr(values(i), " '") > 0 Then
            values(i) = Replace(values(i), " '", "")
        End If
    Next i
   
    ' 将处理后的值写回工作表
    For i = 1 To UBound(values)
        ws.UsedRange.Cells(i).Value = values(i)
    Next i
   
    ' 清除工作表对象
    Set ws = Nothing
End Sub

ynzsvt

如果不需要保留单元格区域的底色、边框，直接在空白处刷子一下，就可以去除区域的文本前导符。