如何删除'for Cstr（combox1.value）

我使用这个来改变stringtypes的combox值并粘贴到单元格上。

cells(i,1)=Cstr(combox1.value) 

在Excel列A上，我将数据types设置为String。

例如，我input017``123 098 065

但是，我发现细胞（i，1）上的确切值是'056 123 。 从0开始的代码在开始处包含'

*任何方式来改善我的代码，而不会出现在'准确的单元格，对于那些代码从0 *

Answer 1

'可能是一个格式化字符，这是来自Lotus 1-2-3的宿醉，我们使用领先的'表示左alignment和领先"来表示右对​​齐（我想我记得是正确的）。

如果只是格式化字符（如果是的话，它不会被包含在由LEN返回的字符计数中），那么你可以放心地忽略它。

如果出于审美的原因想要删除它，则需要删除单元格的当前内容，将单元格格式化为常规格式，然后将单元格格式化为文本格式，然后将新值插入单元格中。

注意：您不能将单元格格式化为文本，删除内容，然后插入新值。 '仍然会出现在这种情况下。 将其更改为常规格式的步骤（如果尚未采用该格式）非常重要！ （也许将其设置为其他非文本格式将工作，以及将其设置为常规，但我知道一般会工作。）

幸运的是.Clear会删除单元格的内容，并将格式设置回常规，所以在编程上我们可以同时做两件事情。

因此，我相信下面的代码应该做你想做的事情：

  Cells(i, 1).Clear Cells(i, 1).NumberFormat = "@" Cells(i, 1).Value = combox1.Value 

第一行是简单地摆脱当前存在的问题。 如果您正在使用全新的工作簿，则不需要。

Answer 2

在设置数字值之前将单元格的数字格式转换为Text 。

 cells(i,1).NumberFormat = "@" cells(i,1)=combox1.value