Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст / 9 сообщений из 9, страница 1 из 1
28.08.2010, 16:31
    #36817150
Shpr0TinG
Shpr0TinG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
Макрос на сравнение и подсчет в первом столбце строк, и сумирование значений этих строк в другом столбце, и вывод в отдельную ячейку.

в общем незнаю как сделать, подскажите что.

пример прикрепил.

Просто объем очень большой и нужен макрос
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2010, 19:28
    #36817275
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
Shpr0TinG,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Sub Макрос3()
Dim j, s, ja, jg, ji
ja =  1      'для наглядности
jg =  7 
ji =  9     'Я взяла лишний чтобы не бить ващ
j =  64000  'можете уменньшить под ваши данные
''''''''''не стала усложнять поиском конца даннах
s =  0 
Do While j >  1 
s = s + Cells(j, jg).Value
If Len("" & Cells(j, ja)) >  0  Then
Cells(j, ji).Value = s
Cells(j, ji).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color =  65535 
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With
s =  0 
End If

j = j -  1 
Loop
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2010, 20:59
    #36817301
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
Ну, зачем уж излишества-то?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Count1()
    Dim nI, nJ
    nJ =  2 
    For nI =  2  To ActiveSheet.UsedRange.Rows.Count
        If Len(Cells(nI,  1 ).Value) >  0  Then
            nJ = nI
        End If
        Cells(nJ,  8 ).Value = Cells(nJ,  8 ).Value + Cells(nI,  7 ).Value
    Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2010, 00:20
    #36817421
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
AndreTM,

запусти-ка пару раз макрос и 5,.. не получишь.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2010, 02:44
    #36817477
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
ПЕНСИОНЕРКА,

Вообще-то, это ПРИМЕР
В моём тестовом рабочем варианте первой командой была .Range("H:H").Clear
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2010, 14:15
    #36819077
Shpr0TinG
Shpr0TinG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
ПЕНСИОНЕРКА,
спасибо, но не получается.

вот примерно полная версия файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2010, 14:19
    #36819091
Shpr0TinG
Shpr0TinG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2010, 14:23
    #36819101
Shpr0TinG
Shpr0TinG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2010, 15:02
    #36819235
_slan_
_slan_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
Shpr0TinG,

если у вас действительно большие объемы, то вот так будет быстрее:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub t()
Dim r, n&, i&, s, k&
n = Cells(Rows.Count,  2 ).End(xlUp).Row
r = Range(Cells( 7 ,  1 ), Cells(n,  1 ))
s = Range(Cells( 7 ,  7 ), Cells(n,  7 ))
For i =  1  To n -  6 
    If Len(r(i,  1 ) & "") >  0  Then
        r(i,  1 ) = s(i,  1 )
        k = i
    Else
        r(k,  1 ) = r(k,  1 ) + s(i,  1 )
    End If
Next
Range(Cells( 7 ,  8 ), Cells(n,  8 )) = r
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 535ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2177740]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 197ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 247ms
total:  535ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]