Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Объединение ячеек с одинаковым содержанием
 
#1
24.05.2010 13:09:43
Добрый день! я снова к вам :(  
 
Имеется большой массив данных в одном столбце, эти данные повторяются только последовательно (т.е. несколько одинаковых значений друг за другом, в других местах они больше не встречаются), так же эти ячейки местами уже объединены.  
Так вот хотелось бы объединить эти значения в одну ячейку.  
Подскажите как это можно реализовать.  
 
P.S. По поиску к сожалению не нашел, хотя решение такой задачи наверняка обсуждалось.
 
 
 
#2
24.05.2010 13:12:46
а для чего это нужно?  
я бы не советовал так делать
 
 
 
#3
24.05.2010 13:41:02
что-то в этом роде:  
 
Sub Макрос1()  
'  
Dim i&, n&, arr, rn&  
n = Cells(Rows.Count, 1).End(xlUp).Row  
arr = Cells(1, 1).Resize(n)  
rn = 1  
For i = 2 To n  
   If arr(i, 1) <> arr(i - 1, 1) Then  
       With Range(Cells(rn, 1), Cells(i - 1, 1))  
           .HorizontalAlignment = xlGeneral  
           .VerticalAlignment = xlTop  
           .WrapText = False  
           .Orientation = 0  
           .AddIndent = False  
           .IndentLevel = 0  
           .ShrinkToFit = False  
           .ReadingOrder = xlContext  
           .MergeCells = True  
       End With  
       rn = i  
   End If  
Next  
End Sub
Живи и дай жить..
 
 
 
#4
24.05.2010 13:46:47
Спасибо, буду пробовать ))  
 
А нужно это, чтоб перед печатью всё симпатично выглядело, начальство это любит.
 
 
 
#5
24.05.2010 14:58:52
Вот так еще лучше:  
n = Cells(Rows.Count, 1).End(xlUp).Row+1
Живи и дай жить..
 
 
 
#6
24.05.2010 15:12:42
немного не так всё-равно получается.  
макрос отлично работает на обычных ячейках, но не объединяет уже объединенные ячейки ((  
терпеть не могу эти объединения, подскажите как реализовать?
 
 
 
#7
24.05.2010 15:18:37
сначала разобъедините весь диапазон
 
 
 
#8
24.05.2010 15:31:55
Если разъединить, то получаться пустые ячейки, которые в дальнейшем не попадут под объединение
 
 
 
#9
24.05.2010 15:54:53
{quote}{login=Eternal-Smoke}{date=24.05.2010 03:31}{thema=}{post}Если разъединить, то получаться пустые ячейки, которые в дальнейшем не попадут под объединение{/post}{/quote}  
Это ваше умозаключение или "практический опыт"? Правила гласят, что желателен пример реальных форматов данных в их реальной структуре... А как вам вариант объединить от непустой до непустой, предварительно разъединенных?..  
Z.
 
 
 
#10
24.05.2010 16:44:09
Без объединения (УФ)
 
 
 
#11
24.05.2010 17:13:03
Можно так. Единственное, последняя ячейка в таблице должна быть заполнена (можно руками :))
 
 
 
#12
03.02.2012 12:59:06
Уважаемый СЛЭН.  
А не можете переделать макрос, чтобы он также объединял ячейки , только по строкам.  
Заранее спасибо, просто я оч. далек от этого.
 
 
 
#13
03.02.2012 13:05:16
{quote}{login=Jon1242}{date=03.02.2012 12:59}{thema=}{post}Уважаемый СЛЭН.  
А не можете переделать макрос, чтобы он также объединял ячейки , только по строкам.  
Заранее спасибо, просто я оч. далек от этого.{/post}{/quote}  
 
 
Нужно так, строка одна
 
 
 
#14
02.03.2012 21:38:40
Этот код я так понимаю объединяет строки в первом столбце, а как сделать чтобы во всех объединял или в выделенном?  
И еще для полного счастья - когда он объединяет выскакивает окно что объединение приведет к потере всех данных как от него избавиться?
 
 
 
Страницы: 1
Читают тему
Наверх