Сообщений в теме: 914

[punter]

меняете где примечании, если столбиков 10 то тогда где 5 на 10, 6 на 11, Вашем случаи
1 To 6 заменил на 1 To 2
Resize(z - 1, 6) заменил на Resize(z - 1, 2)

приветствую еще раз! успешно вроде справлялся с вашим скриптом, но теперь когда столбиков стало 207, макрос запустившись говорит: "Run-time error '9'. Subscript out of range.
скрипт модернизировал следующим образом:

Sub www()
    Dim a(), c(), i&, y&, z
    a = Range("A1:GY1" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim c(1 To UBound(a) * 207, 1 To 6): z = 0
    For i = 1 To UBound(a)
        For y = 2 To 208: z = z + 1
            c(z, 1) = a(i, 1)
            c(z, 2) = a(i, y)
    Next y, i
    [GZ1].Resize(z - 1, 2).Value = c
End Sub

[Daulet.tech]

a = Range("A1:GY1" & Cells(Rows.Count, 1).End(xlUp).Row).Value

a = Range("A1:GY" & Cells(Rows.Count, 1).End(xlUp).Row).Value

[punter]

всем доброго дня! возникла очередная задача:

необходимо автоматическим образом заполнить пустующие ячейки

приходят сырые данные с датой, только не для каждой строки, которые необходимо проставить для каждой строки, к счастью есть некий "индикатор" (слово "start") который "говорит", когда должна начинаться новая дата:

 

прикрепил excel файл: http://download.file.../files/57114061

 

Спасибо авансом! 

Сообщение отредактировал punter: 07.02.2014, 16:58:00

[Daulet.tech]

=ИНДЕКС($D$2:$D$4;СЧЁТЗ($B$2:B2)) - для всех непустых ячеек

=ИНДЕКС($D$2:$D$4;СЧЁТЕСЛИ($B$2:B2;"start")) - это для только "start"

Сообщение отредактировал DauletAhamanov: 07.02.2014, 17:05:44

[punter]

=ИНДЕКС($D$2:$D$4;СЧЁТЗ($B$2:B2)) - для всех непустых ячеек

=ИНДЕКС($D$2:$D$4;СЧЁТЕСЛИ($B$2:B2;"start")) - это для только "start"

Спасибо!

[punter]

данных становится все больше (порядка 500 000 строк), используется функция впр, затем сортировка - и каждый шаг занимает теперь по 1,5 часа. Может кто знает как сэкономить время, или можно это делать на другом софте?

[Nigrum cygnum]

данных становится все больше (порядка 500 000 строк), используется функция впр, затем сортировка - и каждый шаг занимает теперь по 1,5 часа. Может кто знает как сэкономить время, или можно это делать на другом софте?

Пример?

[Мэс]

 

данных становится все больше (порядка 500 000 строк), используется функция впр, затем сортировка - и каждый шаг занимает теперь по 1,5 часа. Может кто знает как сэкономить время, или можно это делать на другом софте?

Пример?

 

PowerPivot для Excel

 

http://msdn.microsof...y/ee210644.aspx

[punter]

 

данных становится все больше (порядка 500 000 строк), используется функция впр, затем сортировка - и каждый шаг занимает теперь по 1,5 часа. Может кто знает как сэкономить время, или можно это делать на другом софте?

Пример?

 

приходят исходные данные №1 (эти 500 000 строк), потом приходят еще данные №2- скажем 150 000, необходимо эти данные объединить (используется впр), затем узнать по каким данным по №1 отсутствуют данные из №2.

Не уверен, есть ли необходимости в пивоте - там лишь одна сортировка - время

Сообщение отредактировал punter: 16.02.2014, 14:39:49

[Мэс]

 

 

данных становится все больше (порядка 500 000 строк), используется функция впр, затем сортировка - и каждый шаг занимает теперь по 1,5 часа. Может кто знает как сэкономить время, или можно это делать на другом софте?

Пример?

 

приходят исходные данные №1 (эти 500 000 строк), потом приходят еще данные №2- скажем 150 000, необходимо эти данные объединить (используется впр), затем узнать по каким данным по №1 отсутствуют данные из №2.

Не уверен, есть ли необходимости в пивоте - там лишь одна сортировка - время

 

ВПР на 500 000 строках  - это, извините, хотя не извиняйте.

Переходить лучше на СУБД, хотя бы тот же Access. И там делать запросами поиск и сравнение.

Или Pivot - это по сути надстройка с SQL возможностями.

[Скарамуш]

приходят исходные данные №1 (эти 500 000 строк), потом приходят еще данные №2- скажем 150 000, необходимо эти данные объединить (используется впр), затем узнать по каким данным по №1 отсутствуют данные из №2. Не уверен, есть ли необходимости в пивоте - там лишь одна сортировка - время

Вам нужно просто узнать чего не хватает в базе или Вы что то дальше делаете с данными? Если просто уточнить недостающие данные, то как вариант вытащить в отдельную книгу столбец с идентификатором и такой же столбец из просматриваемой базы. Тогда количество строкк будет не так сильно влиять на скорость расчета, учитывая, что фал будет намного легче  двух больших исходников.

Для чего делается последующая сортировка?

[Daulet.tech]

Можно использовать словарь, залейте пример. достаточно 10 строк, и все столбцы, что? как?

примерно такой код...

Sub TRANZ()
    Dim a(), b(), c(), i&, txt
    With Sheets(1)
        a = .Range("J2:J" & .Cells(.Rows.Count, 10).End(xlUp).Row).Value
    End With
    With Sheets(2)
        b = .Range("A2:K" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
    End With
    ReDim c(1 To UBound(a), 1 To 4)
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For i = 1 To UBound(b)
            .Item(b(i, 7)) = i
        Next        
        For i = 1 To UBound(a)
            txt = a(i, 1)
            If .Exists(txt) Then
                c(i, 1) = b(.Item(txt), 1)
                c(i, 2) = b(.Item(txt), 11)
                c(i, 3) = b(.Item(txt), 8)
                c(i, 4) = b(.Item(txt), 10)
            End If
        Next
    End With
    With Sheets(1)
        .[n2].Resize(i - 1, 4).Value = c
    End With
End Sub

Сообщение отредактировал DauletAhamanov: 17.02.2014, 08:59:51

[Заинтересованная]

ДД, а какие курсы можно пройти для изучения Excel более углубленно для экономиста? и если знаете по Астане такие

[Мэс]

ДД, а какие курсы можно пройти для изучения Excel более углубленно для экономиста? и если знаете по Астане такие

Лучше взять хорошую книжку.

Открыть Excel и пройтись по примерам.

[Абильбекова]

Доброго дня ) ну или ДД

у меня вопросы по написанию макросов, и длинющих формул, типо "автоподтягивания", авто обновления существующих сводных таблиц, 

для контроля за материалом, сколько есть, сколько пришло, сколько ушло, сколько осталось

для решения этих задач облазила км форумов, правда в основном российских

худо бедно что то получилось

но

я готова платить, ну или заплатить человеку который объяснит мне откуда "дети берутся" 

откликнетесь пожалуйста кто нибудь из Астаны. 

[Мэс]

я готова платить, ну или заплатить человеку который объяснит мне откуда "дети берутся" 

Если бы не кавычки.

[Абильбекова]

) просто тема не та 

но за помощь я правда заплачу )

неужели в этой столице ни кто не разбирается в этих волшебных таблицах...

[Nigrum cygnum]

) просто тема не та 

но за помощь я правда заплачу )

неужели в этой столице ни кто не разбирается в этих волшебных таблицах...

 

Все, кто разбирается, остались в Алматы =Р

[Абильбекова]

 

) просто тема не та 

но за помощь я правда заплачу )

неужели в этой столице ни кто не разбирается в этих волшебных таблицах...

 

Все, кто разбирается, остались в Алматы 

похоже на то.

ребят может быть кого нибудь  заинтересует предложение в удаленном обучении 

хоть как нибудь 

очень уж надо )

[Скарамуш]

похоже на то. ребят может быть кого нибудь заинтересует предложение в удаленном обучении хоть как нибудь очень уж надо )

Если очень уж надо - пишите здесь о своих проблемах тут достаточно людей, которые смогут Вам помочь. Даулет, Завуч - гуру екзеля