Перемещение ячеек по определенному условию.

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перемещение ячеек по определенному условию. (Формулы/Formulas)

LeePV

Дата: Четверг, 19.10.2017, 07:16 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2013

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

К сообщению приложен файл: 7948783.xls (28.0 Kb)

Ответить

sboy

Дата: Четверг, 19.10.2017, 09:11 | Сообщение № 2

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.

Цитата

С одной ячейкой получается макросом но сразу три не получается

Макроса в файле не нашел
вариант формулой массива

Код

=ИНДЕКС(ЕСЛИ(ЕЧИСЛО($B$2:$B$11);$B$2:$B$11;"");СТРОКА())

К сообщению приложен файл: 2702544.xls (29.5 Kb)

Яндекс: 410016850021169

Ответить

_Boroda_

Дата: Четверг, 19.10.2017, 09:14 | Сообщение № 3

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Я тоже не нашел. Пришлось самому писать
[vba]

Код

Sub tt()
    Application.ScreenUpdating = 0
    r1_ = Range("B" & Rows.Count).End(3).Row
    For i = 2 To r1_
        If IsNumeric(Range("B" & i)) Then
            Range("B" & i).Offset(-1, -1) = Range("B" & i).Value
            Range("B" & i).ClearContents
        End If
    Next i
    Application.ScreenUpdating = 1
End Sub

[/vba]
Или вот такой вариант
[vba]

Код

Sub ee()
    r1_ = Range("B" & Rows.Count).End(3).Row
    Range("B2:B" & r1_).Copy
    Range("A1").PasteSpecial (xlPasteValues)
    Range("A1:A" & r1_).SpecialCells(xlCellTypeConstants, 2).ClearContents
    Range("B2:B" & r1_).SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub

[/vba]

К сообщению приложен файл: 7948783_1.xls (34.0 Kb)

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

Ответить

LeePV

Дата: Четверг, 19.10.2017, 12:18 | Сообщение № 4

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

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

Сообщений: 2

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

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

Excel 2013

_Boroda_,
Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума
Спасибо большое второй вариант то что надо !!!!!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перемещение ячеек по определенному условию. (Формулы/Formulas)

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