Помогите, пожалуйста решить проблему. Есть столбец данных со значениями типа: example пример пример; example1 example2 пример. Таких ячеейк в столбце 100 тыс. Как из этого всего выделить в отдельный столбец значениями на английском языке. Другими словами - Как выделить английские слова? Спасибо. Работаю в excel 2010.
Помогите, пожалуйста решить проблему. Есть столбец данных со значениями типа: example пример пример; example1 example2 пример. Таких ячеейк в столбце 100 тыс. Как из этого всего выделить в отдельный столбец значениями на английском языке. Другими словами - Как выделить английские слова? Спасибо. Работаю в excel 2010.tima1
Вариант решения. Макрос окрашивает английские буквы в текстовой строке. Время работы макроса пропорционально количеству ячеек и длине текстовых строк в них. [vba]
Код
Sub Макрос() Dim i As Long, iString As String For Each cell In ActiveSheet.Range("A1").CurrentRegion cell.Font.ColorIndex = 0 For i = 1 To Len(cell) iString = Mid(cell, i, 1) If iString Like "[a-zA-Z]" Then cell.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 End If Next i Next End Sub
[/vba]
Вариант решения. Макрос окрашивает английские буквы в текстовой строке. Время работы макроса пропорционально количеству ячеек и длине текстовых строк в них. [vba]
Код
Sub Макрос() Dim i As Long, iString As String For Each cell In ActiveSheet.Range("A1").CurrentRegion cell.Font.ColorIndex = 0 For i = 1 To Len(cell) iString = Mid(cell, i, 1) If iString Like "[a-zA-Z]" Then cell.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 End If Next i Next End Sub