Копир-ие данных из ячейки одного листа на другой перед тире

Дата: Вторник, 31.05.2016, 07:54 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Необходимо скопировать из Листа1 ячееки F4: ... в лист 2 в ячейки I данные которые
находятся перед тире

Пример

В листе1 в ячейках F4:...

T20.0-Любой другой текст
T40.5-Любой другой текст2
I20.0-Любой другой текст
I25.8-Любой другой текст69
-
...

Должно получатся на Листе2 в ячейках I4:...
T20.0
T40.5
I20.0
I25.8
пусто

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

Сообщение отредактировал dmr - Вторник, 31.05.2016, 07:54

китин

Дата: Вторник, 31.05.2016, 08:15 | Сообщение № 2

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

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

Сообщений: 7015

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

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

Excel 2007;2010;2016

так надо?

Код

=ЕСЛИОШИБКА(ЛЕВБ('Аналитика по ИБ(1)'!F4;ПОИСК("-";'Аналитика по ИБ(1)'!F4)-1);"")

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

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

Сообщение отредактировал китин - Вторник, 31.05.2016, 08:18

Дата: Вторник, 31.05.2016, 08:21 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Чтобы получалось да, но это нужно сделать с помощью макросов

Дата: Вторник, 31.05.2016, 08:31 | Сообщение № 4

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

[vba]

Код

Public Sub www()
Me.Range("f4:f" & Me.[f5536].End(xlUp).Row).Copy Worksheets(2).[i1]
Worksheets(2).[i:I].Replace "-*", "", 2
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Вторник, 31.05.2016, 08:33 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Это в модуль листа 1.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Вторник, 31.05.2016, 08:38 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

В лист1

Дата: Вторник, 31.05.2016, 08:40 | Сообщение № 7

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

???

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Вторник, 31.05.2016, 08:44 | Сообщение № 8

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

не в модуль а в Лист1(Аналитика по ИБ(1)

Дата: Вторник, 31.05.2016, 08:47 | Сообщение № 9

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Что за ахинею Вы несете? Мой код надо вставить в модуль листа 1.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Вторник, 31.05.2016, 08:57 | Сообщение № 10

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

VBA Project Имя
Microsoft Excel Objects
Лист1 сюда
Лист2
Modules у меня нет модулей
Module

Дата: Вторник, 31.05.2016, 09:03 | Сообщение № 11

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Цитата dmr, 31.05.2016 в 08:57, в сообщении № 10

у меня нет модулей

- вижу. До свидания.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Вторник, 31.05.2016, 09:20 | Сообщение № 12

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Все же поясню. Вы в следующий раз, прежде чем бравировать в обсуждении своей глупостью и невежеством, все же постарайтесь хоть что-то узнать о предмете обсуждения. Книжку какую прочитать, что ли.. Что такое модуль? Какие бывают модули?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

sv2014

Дата: Вторник, 31.05.2016, 11:49 | Сообщение № 13

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

Ранг: Форумчанин

Сообщений: 226

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

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

Excel 2013

dmr, имеется кросс

http://www.cyberforum.ru/vba/thread1750219.html