Разные значения в объединенных ячейках

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Разные значения в объединенных ячейках (Формулы/Formulas)

HoBU4OK

Дата: Пятница, 18.08.2017, 09:32 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 318

Репутация: 14 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
Периодически получаю файл, в котором объединённые ячейки
Файл жутко "тормозит"... При отмене "объединения" данные оказываются в КАЖДОЙ ячейке, при этом они могут отличатся( в файле примере видно на цифрах)
Как это можно побороть..? Возможно макросом

Файл вложил

К сообщению приложен файл: 7120825.xlsx (8.7 Kb)

Я думал, ты остроглазый лев, а ты слепая собака :-)

Сообщение отредактировал HoBU4OK - Пятница, 18.08.2017, 09:50

Ответить

_Boroda_

Дата: Пятница, 18.08.2017, 10:00 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16881

Репутация: 6593 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Это откуда-то скопировали объединенные ячейки и вставили в Ваш файл поверх имеющихся данных Спецвставка - Формат.
Как побороть? А что в итоге нужно получить?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

progger

Дата: Пятница, 18.08.2017, 10:02 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Не отличаются данные в ячейках после отмены объединения, а их формат

Ответить

AlexM

Дата: Пятница, 18.08.2017, 10:02 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1130 ±

Замечаний: 0% ±

Excel 2003

Возможно объединили ячейки без потери данных специально.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

HoBU4OK

Дата: Пятница, 18.08.2017, 10:15 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 318

Репутация: 14 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, что получить... Файл 18 мб (их много) при открытии жутко тормозит и зависает- решил что проблема именно в этом
Хотелось бы "как то" их "облегчить".... (не знаю как сформулировать)
progger, может и формат... только в одном случае число... в другом тест
AlexM, возможно... только собрать данные из-за этого не выходит (с разных файлов через power query

Я думал, ты остроглазый лев, а ты слепая собака :-)

Сообщение отредактировал HoBU4OK - Пятница, 18.08.2017, 10:20

Ответить

sboy

Дата: Пятница, 18.08.2017, 10:33 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.

Цитата HoBU4OK, 18.08.2017 в 10:15, в сообщении № 5 ()

Хотелось бы "как то" их "облегчить"....

Чтобы их облегчить нужно понимание, какие данные нужны в итоге и в каком виде. Нарисуйте в файле, что должно остаться.
[p.s.]Самый простой способ облегчить Ctrl+A+Delete

Яндекс: 410016850021169

Ответить

HoBU4OK

Дата: Пятница, 18.08.2017, 10:43 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 318

Репутация: 14 ±

Замечаний: 0% ±

Excel 2010

"Что нужно получить"
Попробую сформулировать: макрос отменяющий объединённые ячейки и "оставляющий" только видимые значения...
Возможно так

Я думал, ты остроглазый лев, а ты слепая собака :-)

Ответить

_Boroda_

Дата: Пятница, 18.08.2017, 10:54 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16881

Репутация: 6593 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А зачем? Вы ж потом собираетесь

Цитата HoBU4OK, 18.08.2017 в 10:15, в сообщении № 5 ()

собрать данные ... с разных файлов через power query

Что Вы будете делать с темя ичейками, которые очистятся? Тем более, что, предположу, что такие ячейки есть в шапке таблицы

Ответить

sboy

Дата: Пятница, 18.08.2017, 11:11 | Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Сделал, как понял)
[vba]

Код

Sub UnMerge_()
With ActiveSheet.UsedRange
    .UnMerge
    .Interior.Pattern = xlNone
End With
For c = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
    If Not IsNumeric(Cells(1, c)) Then Columns(c).Delete
Next c
End Sub

[/vba]

К сообщению приложен файл: 7120825.xlsm (12.5 Kb)

Яндекс: 410016850021169

Ответить

_Boroda_

Дата: Пятница, 18.08.2017, 12:32 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 16881

Репутация: 6593 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

У меня так получилось
[vba]

Код

Sub tt()
    Dim d0_ As Range, d1_ As Range
    Application.ScreenUpdating = 0
    Application.Calculation = xlCalculationManual
    Set d0_ = Range(Cells(1), Cells(1).SpecialCells(xlLastCell))
    cn_ = d0_.Cells.Count
    For i = cn_ To 1 Step -1
    d0_(i).Select
        If d0_(i).MergeArea.Count > 1 Then
            mad_ = d0_(i).MergeArea.Address
            Set d1_ = Range(mad_)
            With d1_
                z_ = .Cells(1).Value
                .UnMerge
                .ClearContents
                .Cells(1) = z_
            End With
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = 0
End Sub

[/vba]

Ответить

HoBU4OK

Дата: Пятница, 18.08.2017, 14:37 | Сообщение № 11

Группа: Проверенные

Ранг: Обитатель

Сообщений: 318

Репутация: 14 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, я их буду собирать через power query
Сейчас не выходит, выдаёт ошибку

[DataFormat.Error] "Text" является недопустимым XmlNodeType., строка 1, позиция 153

Пс надлежащим образом оформить не могу - с телефона...

Я думал, ты остроглазый лев, а ты слепая собака :-)

Ответить

Разные значения в объединенных ячейках (Формулы/Formulas)

Страница 1 из 1
1