Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA. Из одной ячейки выбрать данные и разнести по всему столбцу.
 
#1
03.11.2010 22:51:18
Добрый вечер всем.  
Если у кого есть возможность, прошу помощи.  
Из одной ячейки нужно разнести данные по столбцу, соблюдая некоторые специфические нюансы.  
Собственно, в примере все рассказано очень подробно :)  
 
Если там слишком все сложно... то хотя бы на пальцах объяснить у кого-нибудь если получится с чего бы начать :)  
 
Спасибки всем заранее :)
 
 
 
#2
03.11.2010 23:16:27
Примерно так. Перед запуском макроса ячейки "дебит" должны быть пустыми.  
Столбец "до" не используется.  
 
Sub Di()  
Dim v, x, i As Long  
v = Split([A4], ";")
For Each x In v  
   i = Application.Match(CDbl(x), [C5:C9], 1)
   With Range("E" & i + 4)  
       .Value = .Value & IIf(.Value = "", "", vbLf) & ChrW$(9650) & x  
   End With  
Next  
End Sub
 
 
 
#3
03.11.2010 23:19:44
Казанский!!! Золотце!!!  
Спасибки тебе большое прибольшое!!! :)  
Все великолепно работает :)
 
 
 
#4
09.11.2010 12:34:22
Доброго времени суток :)  
Новую тему не стала создавать с идентичным названием :)  
Если кто-нибудь может помочь, очень-очень благодарна буду! :)  
 
Есть в одной ячейке GPS координаты:  
 
N51 13 34.1 E6 46 21  
 
И с помощью макроса надо преобразовать их вот в это (т.е. широту и доготу отделить).:  
 
Например,  
 
 
Debug.Print vN [N51° 13' 34.1'']
Debug.Print vE [E6° 46' 21'']
 
(символы: градус, апостроф, два апострофа).  
Символы градус и апостроф нашла (176 и 39).  
Но вот с помощью формул получается заменить... а макросом нет :(  
Вернее да, но он почти на две страницы получается...  
 
Уверена, как-то проще есть... но я не совсем разобралась пока что :(  
 
Спасибки заранее!!! :)
 
 
 
#5
09.11.2010 12:46:12
например  
 
Sub pp()  
Dim s As String  
Dim l1 As String  
Dim l2 As String  
Dim arr  
s = Cells(1, 1).Text  
arr = Split(s)  
l1 = arr(0) & " градус" & arr(1) & "' " & arr(2) & "''"  
l2 = arr(3) & " градус" & arr(4) & "' " & arr(5) & "''"  
End Sub  
 
 
искать код символа градус было лень )
 
 
 
#6
09.11.2010 12:47:56
Dophin, спасибочки большое!!!! :)
 
 
 
#7
09.11.2010 12:52:51
Sub pp()  
Dim s As String  
Dim l1 As String  
Dim l2 As String  
Dim arr  
s = "N51 13 34.1 E6 46 21"  
arr = Split(s)  
l1 = arr(0) & Chr(176) & " " & arr(1) & Chr(39) & " " & arr(2) & Chr(39) & Chr(39)  
l2 = arr(3) & Chr(176) & " " & arr(4) & Chr(39) & " " & arr(5) & Chr(39) & Chr(39)  
End Sub  
 
вот так оно покрасивее выглядит)
 
 
 
Страницы: 1
Читают тему
Наверх