ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
13 сообщений из 13, страница 1 из 1
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37552802
DenisKlementiev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DenisKlementiev
Гость
Есть таблица в которой в столбце А объединены некоторые повторяющиеся значения.
Задача: объединить ячейки в столбцах B, C, D для уже объединенных ячеек в столбце А.
...
Рейтинг: 0 / 0
30.11.2011, 19:09
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37552813
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
DenisKlementievв столбце А объединены некоторые повторяющиеся значенияПосмотреть бы на это чудо... скриншотиком не поделитесь? заодно хоть понятно станет, о чём речь.
...
Рейтинг: 0 / 0
30.11.2011, 19:18
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37552844
DenisKlementiev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DenisKlementiev
Гость
IDЗаказыФИОНаценкаСуммаТоварКолВо568166Бабин 2 924р. 2 924р.ВЕДРО НОВОЕ1613633Клинова 2 489р. 2 489р.ТВИСТЕРСВИП1620806сазанова 3 033р. 3 033р.ВЕДРО1624377головина 3 001р. 3 001р.СКУЛЬПТОР1627901Веселов 7 716р. 7 716р.МЭДЖИКСПА1637521Максименко 1 958р. 1 958р.ДЖИНИ1637743Зиматуллин 3 181р. 3 181р.СОБАКАВА2638794овцинов 2 800р. 2 800р.ЭЛЕКТРА1638795овцинов 2 648р. 2 648р.ТОТАЛПИЛОУ1овцинов 2 648р. 2 648р.ШЕФБАСКЕТ 21639467Харитонова 2 033р. 2 033р.ШЕФБАСКЕТ 21639835соколова 4 728р. 4 728р.КОНТ МИКР1соколова 4 728р. 4 728р.КУБАТОР1соколова 4 728р. 4 728р.МЕРЛОЖКА1соколова 4 728р. 4 728р.ОРЕХОКОЛ1соколова 4 728р. 4 728р.ШЕФБАСКЕТ 21639992Громова 3 180р. 3 180р.МАЙТИПУТИ1Громова 3 180р. 3 180р.УМТАП1Громова 3 180р. 3 180р.УМТАП1640165Карпун 1 744р. 1 744р.МК ТАЙМЕР1Карпун 1 744р. 1 744р.ШЕФБАСКЕТ1640294Курмаева 3 726р. 3 726р.ВЕДРО НАСАД1Курмаева 3 726р. 3 726р.ВЕДРО НОВОЕ1Курмаева 3 726р. 3 726р.П ПЭМПЕРТ1640678Салтыкова 3 844р. 3 844р.ФИШ1641096носкова 3 018р. 3 018р.П ПЭМПЕРТ1носкова 3 018р. 3 018р.СЛЭПЧОП1носкова 3 018р. 3 018р.ШЕФБАСКЕТ2
...
Рейтинг: 0 / 0
30.11.2011, 19:38
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37552939
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
DenisKlementiev,
процедуру - в модуль обрабатываемого листа. Скорректировать значение константы S_Rng. Заупустить один раз.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub nahpovtor()
    Const S_Rng$ = "B1:D29"
    Dim a, i&
  With Range(S_Rng) 
    a = .Value
    For i = UBound(a) To LBound(a) +  1  Step - 1 
      If a(i,  1 ) = a(i -  1 ,  1 ) Then a(i,  1 ) = "": a(i,  2 ) = "": a(i,  3 ) = ""
    Next i
    .Value = a
  End With
  Erase a
End Sub
...
Рейтинг: 0 / 0
30.11.2011, 20:51
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37552990
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Условное форматирование. Если An пусто, то цвет шрифта Bn и Cn белый по белому.
...
Рейтинг: 0 / 0
30.11.2011, 21:44
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37553043
DenisKlementiev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DenisKlementiev
Гость
Akina

Условное форматирование не подходит, надо объединять ячейки в каждом столбце, если в столбце “A” ячейки объединены.
Чтобы получился некий симбиоз матрицы и таблицы.

Скукотища

Спасибо за вариант, но нужно решение без диапазона, так как диапазон заранее не известен и каждый раз будет разное количество строк.
Неизменным останется только количество столбцов.
...
Рейтинг: 0 / 0
30.11.2011, 22:41
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37553059
DenisKlementiev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DenisKlementiev
Гость
Скукотища

Ваш код убирает повторяющиеся значения, а мне надо именно физически объединить ячейки в каждом столбце (B,C,D) если в столбце (А) объединены ячейки.

...
Рейтинг: 0 / 0
30.11.2011, 22:59
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37553063
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
DenisKlementiev,
...но нужно решение без диапазона, так как ...
UsedRange.Row , - номер первой строки в
UsedRange.Rows.Count - количество строк
...
Рейтинг: 0 / 0
30.11.2011, 23:02
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37553072
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
Напоминает анекдот:

Папа с сыном прогуливаются по парку и видят художника, увлечённо что-то малюющем на холсте.
Папа говорит:
-Сынок, смотри что делают люди у которых нет Polaroid'а :-)

ЗЫ Зачем макросы, если сводная в два клика?
...
Рейтинг: 0 / 0
30.11.2011, 23:09
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37553087
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Serge 007,
ник обязвает.
...
Рейтинг: 0 / 0
30.11.2011, 23:33
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37553088
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
DenisKlementiev,
мне надо именно физически объединить ячейки в каждом столбце (B,C,D) если в столбце (А) объединены ячейки.
 
пробуйте
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub merge2()
    Dim i&, j&, k&

Application.DisplayAlerts = False
Application.ScreenUpdating = False
  
  j = UsedRange.Row
  For i = j To j + UsedRange.Rows.Count -  1 
    If Cells(i,  1 ).MergeCells Then
      j = Cells(i,  1 ).MergeArea.Rows.Count
      For k =  1  To  3 
        With Cells(i,  1 ).Offset( 0 , k).Resize(j,  1 )
          .MergeCells = True
          .VerticalAlignment = xlVAlignCenter
        End With
      Next k
      i = i + j -  1 
    End If
  Next i

Application.ScreenUpdating = False
Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
30.11.2011, 23:34
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37553136
DenisKlementiev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DenisKlementiev
Гость
скукотища

Огромное, человеческое спасибо !!!
Лет десять с Excel не работал, так что я в нем полный NULL.
Спасибо еще раз!

немного подправил..
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub merge2()
    Dim i&, j&, k&

Application.DisplayAlerts = False
Application.ScreenUpdating = False
  
  j = ActiveSheet.UsedRange.Row
  For i = j To j + ActiveSheet.UsedRange.Rows.Count -  1 
    If Cells(i,  1 ).MergeCells Then
      j = Cells(i,  1 ).MergeArea.Rows.Count
      For k =  1  To  3 
        With Cells(i,  1 ).Offset( 0 , k).Resize(j,  1 )
          .MergeCells = True
          .VerticalAlignment = xlVAlignCenter
        End With
      Next k
      i = i + j -  1 
    End If
  Next i

Application.ScreenUpdating = False
Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
01.12.2011, 00:39
| Ответить | Цитировать | Написать  
VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
    #37827875
reanews
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reanews
Гость
DenisKlementiev,
А как сделать, что б складывал суммы у каждого "Совпадающая фамилия" и потом лишние удалял в макросе, иначе не удобно?
...
Рейтинг: 0 / 0
06.06.2012, 15:54
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Excel объединение ячеек в столбцах -B,C и т.п. по образцу ячеек столбца A.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=100&tid=2175657]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 346ms
total:  465ms
созд. / загр.: 465ms
x
x
Закрыть


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