Макрос. Копирование данных из разных листов

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

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

Макрос. Копирование данных из разных листов (Формулы/Formulas)

Ponka

Дата: Среда, 21.05.2014, 13:09 | Сообщение № 1

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

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

Сообщений: 7

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

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

Excel 2010

Добрый день, гуру Excel!
Прошу помощи :'(

Мне нужно из листа "база" стоблец К в лист "месяц" столбец В поставить (подтянуть, скопировать) данные, так что бы макрос определял диапазон данных и копировал их без пустых строк.
Диапазон данных может меняться от 600 до 1500 строк.
Заранее, спасибо за помощь!!!!

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

Ответить

китин

Дата: Среда, 21.05.2014, 13:21 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 7031

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

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

Excel 2007;2010;2016

ну макросом я не знаю как(это вам в раздел по VBA),а формулой вот так можно(формула массива)

Код

=ЕСЛИОШИБКА(ИНДЕКС(база!$K$16:$K$892;НАИМЕНЬШИЙ(ЕСЛИ((ЕТЕКСТ(база!$K$16:$K$892))*(база!$K$16:$K$892<>"");СТРОКА(база!$K$16:$K$892)-15);СТРОКА(A1)));"")

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Ponka

Дата: Среда, 21.05.2014, 14:37 | Сообщение № 3

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

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

Сообщений: 7

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

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

Excel 2010

Спасибо, отправлю еще сообщение по VBA

Ответить

_Boroda_

Дата: Среда, 21.05.2014, 16:58 | Сообщение № 4

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

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

Сообщений: 16803

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

То же самое, только с одним условием в ЕСЛИ

Код

=ЕСЛИОШИБКА(ИНДЕКС(база!K$16:K$892;НАИМЕНЬШИЙ(ЕСЛИ(ДЛСТР(база!K$16:K$892);СТРОКА(база!K$16:K$892)-15);СТРОКА(A1)));"")

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

Ответить

Hugo

Дата: Среда, 21.05.2014, 17:23 | Сообщение № 5

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

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

Сообщений: 3744

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

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

365

Странно, вроде отвечал давно, самый первый... А, так это в VBA было... Ну пусть и тут для коллекции полежит:
[vba]

Код

Sub tt()
     With Sheets("база")
          .Range(.[K13], .Range("K" & .Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy Sheets("месяц").[b2]
     End With
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

китин

Дата: Среда, 21.05.2014, 18:18 | Сообщение № 6

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

Ранг: Экселист

Сообщений: 7031

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

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

Excel 2007;2010;2016

вот это

Код

ДЛСТР(база!K$16:K$892)

получатся тоже самое,что и

Код

ДЛСТР(база!K$16:K$892)<>0

????

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

_Boroda_

Дата: Среда, 21.05.2014, 20:30 | Сообщение № 7

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

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

Сообщений: 16803

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата китин, 21.05.2014 в 18:18, в сообщении № 6

получатся тоже самое,что и

Игорь, совершенно верно. Дело в том, что это выражение находится на месте первого аргумента в ЕСЛИ. А у ЕСЛИ какая конструкция? ЕСЛИ(Выражение;ТоЧтоВыводимПриИСТИНА;ТоЧтоВыводимПриЛОЖЬ). Выражение теоретически должно давать ИСТИНА или ЛОЖЬ, правильно? Но ЕСЛИ спокойно съедает и ноль вместо ЛОЖЬ. А вместо ИСТИНА тогда любое число (положительное, отрицательное, дробное, ...).
А ДЛСТР нам дает либо 0, либо какое-то число. Что равносильно значениям ЛОЖЬ и ИСТИНА соответственно.

Ответить

Макрос. Копирование данных из разных листов (Формулы/Formulas)

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