Для теории на сайте есть Библиотека. А практика - это только форум. Смотрите, как решают задачи более опытные форумчане. Попробуйте решать самостоятельно. Далее пробуете помогать менее опытным. 90% нынешних "Асов" так начинали.
Для теории на сайте есть Библиотека. А практика - это только форум. Смотрите, как решают задачи более опытные форумчане. Попробуйте решать самостоятельно. Далее пробуете помогать менее опытным. 90% нынешних "Асов" так начинали. ShAM
Красотка, по личному опыту - совет который дала Pelena - действительно стоящий совет. Я начинал с 0 сам, после того как понял что мне лень делать работу руцями начал искать ответы, как автоматизировать это с помощью формул и ВБА (правда о нем еще буквально год-два назад, я слышал лишь краем уха). Зависая на двух форумах на нашем и на одном из дружеских пытался помогать таким же новичкам как я и смотрел как помогают профи, рассматривал их решения и пытался вникнуть, ну и параллельно создавал свои темы с вопросами того что не понятно (да и по сегодняшний день периодически задаю их тут). Так что оставайтесь с нами, просматривайте решения и у Вас все получится))
P.S. - у меня тоже есть сертификат с курсов VBA, не скажу что прям оооочень, но немного помогли продвинутся вперед.
Красотка, по личному опыту - совет который дала Pelena - действительно стоящий совет. Я начинал с 0 сам, после того как понял что мне лень делать работу руцями начал искать ответы, как автоматизировать это с помощью формул и ВБА (правда о нем еще буквально год-два назад, я слышал лишь краем уха). Зависая на двух форумах на нашем и на одном из дружеских пытался помогать таким же новичкам как я и смотрел как помогают профи, рассматривал их решения и пытался вникнуть, ну и параллельно создавал свои темы с вопросами того что не понятно (да и по сегодняшний день периодически задаю их тут). Так что оставайтесь с нами, просматривайте решения и у Вас все получится))
P.S. - у меня тоже есть сертификат с курсов VBA, не скажу что прям оооочень, но немного помогли продвинутся вперед.DJ_Marker_MC
я ни курсов никаких не заканчивал, ни книжек не читал. до того, как открыл для себя форумы (четыре года назад) - всё осваивал по справке и методом научного тыка. и при этом считал. что кое-что знаю и умею.
после прихода на форумы - понял, что дурак дураком. ни коллекций не знал, ни словарей. ни регулярок,.. надеюсь, с тех пор немного поумнел
я ни курсов никаких не заканчивал, ни книжек не читал. до того, как открыл для себя форумы (четыре года назад) - всё осваивал по справке и методом научного тыка. и при этом считал. что кое-что знаю и умею.
после прихода на форумы - понял, что дурак дураком. ни коллекций не знал, ни словарей. ни регулярок,.. надеюсь, с тех пор немного поумнел ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Sub sdf() Dim dic: Set dic = CreateObject("scripting.dictionary") Dim num, tmp$ With Application: .ScreenUpdating = 0: .EnableEvents = 0: .DisplayAlerts = 0 For Each num In [A1].CurrentRegion.Value tmp = Join(Evaluate("transpose(len(" & num & ")-len(substitute(" & num & ",char(row(r48:r57)),)))")) dic(tmp) = Trim(dic(tmp) & " " & num) Next For Each Key In dic.keys If InStr(1, dic(Key), " ") = 0 Then dic.Remove Key Next With [L1].Resize(dic.Count) .CurrentRegion.Clear: .Value = WorksheetFunction.Transpose(dic.items) .TextToColumns Range("L1"), xlDelimited, Space:=True: .Formula = .Value End With .ScreenUpdating = 1: .EnableEvents = 1: .DisplayAlerts = 1: End With Set dic = Nothing End Sub
[/vba]
еще вариант [vba]
Код
Sub sdf() Dim dic: Set dic = CreateObject("scripting.dictionary") Dim num, tmp$ With Application: .ScreenUpdating = 0: .EnableEvents = 0: .DisplayAlerts = 0 For Each num In [A1].CurrentRegion.Value tmp = Join(Evaluate("transpose(len(" & num & ")-len(substitute(" & num & ",char(row(r48:r57)),)))")) dic(tmp) = Trim(dic(tmp) & " " & num) Next For Each Key In dic.keys If InStr(1, dic(Key), " ") = 0 Then dic.Remove Key Next With [L1].Resize(dic.Count) .CurrentRegion.Clear: .Value = WorksheetFunction.Transpose(dic.items) .TextToColumns Range("L1"), xlDelimited, Space:=True: .Formula = .Value End With .ScreenUpdating = 1: .EnableEvents = 1: .DisplayAlerts = 1: End With Set dic = Nothing End Sub