Есть ячейки с текстом, есть с числами, определяющимися как символьные данные, то есть сравнить их с числами не представляется возможным. Нужно напротив каждой из ячеек вывести ее адекватный формат, то есть если в ячейке 5, то Digital, если "cat", то Char, если "33"Digital. Пытался сделать через анализ ошибки, не получается, выдает ошибку при выполнении. [vba]
For i = 1 To 4 If Not IsError(Cells(i, 1) + 0) Then Cells(i, 2) = "Digital" Else Cells(i, 2) = "Char" End If Next i End Sub
[/vba]
Есть ячейки с текстом, есть с числами, определяющимися как символьные данные, то есть сравнить их с числами не представляется возможным. Нужно напротив каждой из ячеек вывести ее адекватный формат, то есть если в ячейке 5, то Digital, если "cat", то Char, если "33"Digital. Пытался сделать через анализ ошибки, не получается, выдает ошибку при выполнении. [vba]