Excel - Как программно преобразовать «число, сохраненное как текст» в число?

Question

Я ищу простой Excel VBA или формулу, которая может преобразовать целую строку в Excel из «числа, хранящегося в виде текста», в фактическое число для причин vlookup.

Может ли кто-нибудь указать мне правильное направление?

Answer 1

Лучший подход

Вы должны использовать INDEX(MATCH) вместо VLOOKUP, потому что VLOOKUP ведет себя непредсказуемым образом, что вызывает ошибки, такие, как тот, который вы, вероятно, испытывающего.

INDEX (<return array> , MATCH (<lookup value> , <lookup array> , 0)) 

Использование 0 в качестве последнего аргумента MATCH означает, что матч должен быть точным
Here некоторые более подробной информации о INDEX(MATCH) -ную

Дополнительная

Добавить +0, чтобы преобразовать значение в число.
Это может быть (опасно) продлено с IFERROR() превратить нечисловой текст в ноль:

=A2+0
=IFERROR(A2+0,0)

Для обратного, вы можете сцеплять пустую строку &"", чтобы заставить значение быть строка.

Примечания

Если 0 не используется в качестве последнего аргумента MATCH, он найдет все виды неожиданных «спичек» .. и хуже, он может найти другое значение, даже если точное совпадение присутствует.

Часто бывает полезно выполнить дополнительную работу, чтобы определить, есть ли дубликаты в столбце поиска MATCH, иначе будет найдено первое найденное значение (см. Пример).

Справка с MATCH исходит от here, в частности, логики соответствия 3-го аргумента.

Answer 2

Я нашел это, но есть ли у кого-нибудь формула?

Sub macro() 
    Range("F:F").Select 'specify the range which suits your purpose 
    With Selection 
     Selection.NumberFormat = "General" 
     .Value = .Value 
    End With 
End Sub 

http://www.ozgrid.com/forum/showthread.php?t=64027

Answer 3

Попробуйте это:

Sub ConvertToNumber() 
    Application.ScreenUpdating = False 
    Dim cl As Range 
    For Each cl In Selection.Cells 
     cl.Value = CInt(cl.Value) 
    Next cl 
    Application.ScreenUpdating = True 
End Sub 

Чтобы его использовать, просто выберите соответствующий блок ячеек с помощью мыши, а затем запустить макрос (Alt + F8, чтобы воспитывать диалоговое окно). Он будет проходить через каждую ячейку в выбранном диапазоне и преобразовывать любое значение, которое он удерживает, в число.

Answer 4

Я написал пользовательскую функцию vlookup, которая не заботится о форматах данных. Поместите это в модуль в VBA и использовать = VLOOK вместо = ВПР

Public Function VLook(sValue As String, rDest As Range, iColNo As Integer) 

' custom vlookup that's insensitive to data formats 

Dim iLastRow As Long 
Dim wsDest As Worksheet 

Set wsDest = Sheets(rDest.Parent.Name) 

iLastRow = wsDest.Range(wsDest.Cells(100000, rDest.Column).Address).End(xlUp).Row 

If iLastRow < rDest.Row + rDest.Rows.Count Then 
    For X = rDest.Column To rDest.Column + rDest.Columns.Count 
     If wsDest.Cells(100000, X).End(xlUp).Row > iLastRow Then iLastRow = wsDest.Cells(100000, X).End(xlUp).Row 
    Next X 
End If 

sValue = UCase(Application.Clean(Trim(sValue))) 

For X = rDest.Row To iLastRow 

    If UCase(Application.Clean(Trim(wsDest.Cells(X, rDest.Column)))) = sValue Then 
     VLookDM = wsDest.Cells(X, rDest.Column + iColNo - 1) 
     Exit For 
    End If 

Next X 

End Function 

Answer 5

Самый простой способ, которым я могу думать, используя встроенную функцию = VALUE (TEXT_TO_CONVERT_TO_STRING).