Question

我有一个Excel电子表格，用于在ICD 9和ICD 10代码上查找说明等。由于这些代码可以以零（0）为前缀，因此必须将它们作为文本处理。这就是我遇到的问题。我有以下单元格宏：

TIdSocksInfo

单元格B9被定义为文本，我做了.NumberFormat =＆＃34; @＆＃34;以防万一。在ICD代码表中，我将列A定义为文本，同样，我做了.NumberFormat =＆＃34; @＆＃34;。无论如何，ICD代码表的初始加载似乎有些问题，其中某些单元格的查找将返回＆＃34; #N / A＆＃34;。如果我进入表格，找到代码，将光标设置在单元格中并点击回车，某些内容会在突然发生变化时发生变化。我尝试使用VBA代码遍历列中的每个单元格，获取值，执行CSTR然后将其放回，这似乎没有任何效果。有什么想法吗？

Answer 1

尝试这样的事情：

Dim lastRow, i As Long
Dim ICDStg As String

lastRow = Cells.Find("*",SearchOrder:=xlByRows,earchDirection:=xlPrevious).Row

For i = 2 To lastRow
    ICDStg = Cells(i, "B").Text
    Cells(i, "B").NumberFormat = "@"
    Cells(i, "B").Value = ICDStg
Next i

Answer 2

根据MacroMarc的评论，我最终创建了一个新列，并确保在插入任何值之前将数字格式设置为文本。幸运的是，我有第二列可以转换，因为此时我真的不相信问题列。

Excel：将数字作为文本和VLOOKUP处理

2 个答案: