Question

With Range("Q10", Range("Q" & Rows.Count).End(xlUp))
 .Replace "*-", "", xlPart, xlByRows, False, False, False
 .Replace " -", "", xlPart, xlByRows, False, False, False
End With
With Range("X10", Range("X" & Rows.Count).End(xlUp))
 .Replace "*-", "", xlPart, xlByRows, False, False, False
 .Replace " -", "", xlPart, xlByRows, False, False, False
End With

Dim threeCell As Range
For Each threeCell In Range("Q10", Range("Q" & Rows.Count).End(xlUp))
With threeCell
    .Value = Trim(.Value)
End With
Next threeCell

大家好我使用该代码删除列中的数据。该列包含的数据类似于＆＃34; DE-45＆＃34; ＆＃34; CZ-DZX＆＃34;并且它完美地删除＆＃34; DE - ＆＃34;当细胞像这样的东西时，它就会让细胞与我想要的问题一起离开细胞＆＃34; DE-03＆＃34;它给了我一个＆＃34; 3＆＃34;而是一个＆＃34; 03＆＃34;。

我该如何解决这个问题？

谢谢！

Answer 1

这可能有点hacky，但它确实有效：

将.Replace "*-", "", xlPart, xlByRows, False, False, False更改为：

.Replace "*-", "'", xlPart, xlByRows, False, False, False

请注意'的单个Replacement参数。这将产生类似'05的值，Excel将其解释为String - 因此不会删除任何零。

vba excel删除数据 - ＆gt;保持为0

1 个答案: