Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/В столбце добавить ячейку при определённом условии - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » В столбце добавить ячейку при определённом условии (Формулы/Formulas)
В столбце добавить ячейку при определённом условии
Totalmen Дата: Суббота, 27.05.2017, 01:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Возможно ли сделать так чтобы при копировании с 1листа один сталбец во 2 лист копировалось с добавлением одной пустой ячейки если между двух ячеек нет слова Отправил.(после точки постоянного слова отправил есть ещё несколько меняющихся слов)
Фамилия
Дата
Отправил.(и разные слова после точки авто,поезд,автобус)
Город

Фамилие
Дата
Город
и т.д вот иногда нет слова Отправил.(и разный текст) между дата и город как во втором случае,существует ли формула,что бы добавить только пустую ячейку между дата и город ,а если есть слово Отправил то не чего не добавлять.
 
Ответить
СообщениеВозможно ли сделать так чтобы при копировании с 1листа один сталбец во 2 лист копировалось с добавлением одной пустой ячейки если между двух ячеек нет слова Отправил.(после точки постоянного слова отправил есть ещё несколько меняющихся слов)
Фамилия
Дата
Отправил.(и разные слова после точки авто,поезд,автобус)
Город

Фамилие
Дата
Город
и т.д вот иногда нет слова Отправил.(и разный текст) между дата и город как во втором случае,существует ли формула,что бы добавить только пустую ячейку между дата и город ,а если есть слово Отправил то не чего не добавлять.
Автор - Totalmen
Дата добавления - 27.05.2017 в 01:49
Nic70y Дата: Суббота, 27.05.2017, 07:52 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
Вроде бы все понятно,
но все же лучше Ваш файл-пример посмотреть,
а то вдруг внезапно, там окажутся интересные вещи,
которых не видно в теле поста.

ЮMoney 41001841029809
 
Ответить
СообщениеВроде бы все понятно,
но все же лучше Ваш файл-пример посмотреть,
а то вдруг внезапно, там окажутся интересные вещи,
которых не видно в теле поста.
Автор - Nic70y
Дата добавления - 27.05.2017 в 07:52
Totalmen Дата: Суббота, 27.05.2017, 09:48 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вот
К сообщению приложен файл: 8170308.xlsx (10.1 Kb)
 
Ответить
СообщениеВот
Автор - Totalmen
Дата добавления - 27.05.2017 в 09:48
Nic70y Дата: Суббота, 27.05.2017, 10:48 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
такой вариант
[vba]
Код
Sub u_700()
Application.ScreenUpdating = 0
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For i = u To 1 Step -1
    If i = 1 Then Exit Sub
    If Cells(i, 1) = "Город" And Cells(i - 1, 1) = "Дата" Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = 1
End Sub
[/vba]
после вставки запустить макрос
К сообщению приложен файл: 8170308.xlsm (17.7 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениетакой вариант
[vba]
Код
Sub u_700()
Application.ScreenUpdating = 0
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For i = u To 1 Step -1
    If i = 1 Then Exit Sub
    If Cells(i, 1) = "Город" And Cells(i - 1, 1) = "Дата" Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = 1
End Sub
[/vba]
после вставки запустить макрос
Автор - Nic70y
Дата добавления - 27.05.2017 в 10:48
Totalmen Дата: Суббота, 27.05.2017, 11:39 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Большое спасибо,я первый раз столкнулся с макросом я в шоке. А если такой вариант что между определённым словом (Отм.) и цифрами от 1до15 нет слова (Работа) нужно все 15 макросов писать ? файл прикрепил.
К сообщению приложен файл: 9680810.xlsx (10.1 Kb)
 
Ответить
СообщениеБольшое спасибо,я первый раз столкнулся с макросом я в шоке. А если такой вариант что между определённым словом (Отм.) и цифрами от 1до15 нет слова (Работа) нужно все 15 макросов писать ? файл прикрепил.
Автор - Totalmen
Дата добавления - 27.05.2017 в 11:39
Totalmen Дата: Суббота, 27.05.2017, 11:41 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
не тот файл прикрепил ,вот правильный.
К сообщению приложен файл: 1403567.xlsx (10.2 Kb)
 
Ответить
Сообщениене тот файл прикрепил ,вот правильный.
Автор - Totalmen
Дата добавления - 27.05.2017 в 11:41
Nic70y Дата: Суббота, 27.05.2017, 13:33 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    If Cells(i, 1) <> "Работа" And Cells(i - 1, 1) = "Отм." Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
[/vba]просто условие НЕ равно

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 27.05.2017, 13:34
 
Ответить
Сообщение[vba]
Код
    If Cells(i, 1) <> "Работа" And Cells(i - 1, 1) = "Отм." Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
[/vba]просто условие НЕ равно
Автор - Nic70y
Дата добавления - 27.05.2017 в 13:33
Totalmen Дата: Суббота, 27.05.2017, 13:57 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
:( Я извиняюсь ,но я не понял.
 
Ответить
Сообщение:( Я извиняюсь ,но я не понял.
Автор - Totalmen
Дата добавления - 27.05.2017 в 13:57
Nic70y Дата: Суббота, 27.05.2017, 15:38 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
Строчку в макросе заменить.

Не нужно =1, =2 и т.д.
просто неравно <>
см.файл
К сообщению приложен файл: 1403567.xlsm (17.0 Kb)

ЮMoney 41001841029809
 
Ответить
СообщениеСтрочку в макросе заменить.

Не нужно =1, =2 и т.д.
просто неравно <>
см.файл
Автор - Nic70y
Дата добавления - 27.05.2017 в 15:38
Totalmen Дата: Суббота, 27.05.2017, 16:18 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Почему при копировании своих данных ,даже просто Отм. и цыфры ячейка не добавляется выделил синим ,а если написать руками то всё нормально.
К сообщению приложен файл: 36768.xlsm (17.7 Kb)
 
Ответить
СообщениеПочему при копировании своих данных ,даже просто Отм. и цыфры ячейка не добавляется выделил синим ,а если написать руками то всё нормально.
Автор - Totalmen
Дата добавления - 27.05.2017 в 16:18
Totalmen Дата: Суббота, 27.05.2017, 23:05 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Подскажите пожалуйста ,в прикреплённом файле есть какая то ошибка,то что я копирую на лист макрос не видит .Копированное выделил синим.
К сообщению приложен файл: 3573620.xlsm (17.7 Kb)
 
Ответить
СообщениеПодскажите пожалуйста ,в прикреплённом файле есть какая то ошибка,то что я копирую на лист макрос не видит .Копированное выделил синим.
Автор - Totalmen
Дата добавления - 27.05.2017 в 23:05
Sandor Дата: Суббота, 27.05.2017, 23:33 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: -4 ±
Замечаний: 0% ±

Excel 2010
Потому что лишний пробел в синих
там написано: "пробел Отм."
Это не то же самое, что "Отм."
 
Ответить
СообщениеПотому что лишний пробел в синих
там написано: "пробел Отм."
Это не то же самое, что "Отм."
Автор - Sandor
Дата добавления - 27.05.2017 в 23:33
Totalmen Дата: Воскресенье, 28.05.2017, 01:47 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата Sandor, 27.05.2017 в 23:33, в сообщении № 12 ()
Потому что лишний пробел в синих
там написано: "пробел Отм."
Это не то же самое, что "Отм."

Я убирал пробел не чего не происходит.
 
Ответить
Сообщение
Цитата Sandor, 27.05.2017 в 23:33, в сообщении № 12 ()
Потому что лишний пробел в синих
там написано: "пробел Отм."
Это не то же самое, что "Отм."

Я убирал пробел не чего не происходит.
Автор - Totalmen
Дата добавления - 28.05.2017 в 01:47
Nic70y Дата: Воскресенье, 28.05.2017, 08:11 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_700()
Application.ScreenUpdating = 0
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For i = u To 1 Step -1
    If i = 1 Then Exit Sub
    If Cells(i, 1) > 0 And InStr(Cells(i - 1, 1).Value, "Отм.") Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = 1
End Sub
[/vba]а может
[vba]
Код
Sub u_700()
Application.ScreenUpdating = 0
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For i = u To 1 Step -1
    If i = 1 Then Exit Sub
    If Cells(i, 1) > 0 And Cells(i, 1) < 1000000 And InStr(Cells(i - 1, 1).Value, "Отм.") Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = 1
End Sub
[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 28.05.2017, 08:20
 
Ответить
Сообщение[vba]
Код
Sub u_700()
Application.ScreenUpdating = 0
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For i = u To 1 Step -1
    If i = 1 Then Exit Sub
    If Cells(i, 1) > 0 And InStr(Cells(i - 1, 1).Value, "Отм.") Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = 1
End Sub
[/vba]а может
[vba]
Код
Sub u_700()
Application.ScreenUpdating = 0
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For i = u To 1 Step -1
    If i = 1 Then Exit Sub
    If Cells(i, 1) > 0 And Cells(i, 1) < 1000000 And InStr(Cells(i - 1, 1).Value, "Отм.") Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = 1
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 28.05.2017 в 08:11
Totalmen Дата: Воскресенье, 28.05.2017, 12:58 | Сообщение № 15
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо большое Nic70v вот ещё может кому поможет.

Sub u_700()
Application.ScreenUpdating = 0
u = Cells(Rows.Count, 1).End(xlUp).Row
For i = u To 1 Step -1
If i = 1 Then Exit Sub
If Cells(i, 1) >= 1 And Cells(i, 1) <= 15 Then
If Trim(Cells(i - 1, 1)) = "Отм." Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
End If
Next i
Application.ScreenUpdating = 1
End Sub
 
Ответить
СообщениеСпасибо большое Nic70v вот ещё может кому поможет.

Sub u_700()
Application.ScreenUpdating = 0
u = Cells(Rows.Count, 1).End(xlUp).Row
For i = u To 1 Step -1
If i = 1 Then Exit Sub
If Cells(i, 1) >= 1 And Cells(i, 1) <= 15 Then
If Trim(Cells(i - 1, 1)) = "Отм." Then Range("A" & i & ":B" & i).Insert Shift:=xlDown
End If
Next i
Application.ScreenUpdating = 1
End Sub
Автор - Totalmen
Дата добавления - 28.05.2017 в 12:58
Pelena Дата: Воскресенье, 28.05.2017, 14:03 | Сообщение № 16
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Totalmen, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеTotalmen, оформите код тегами с помощью кнопки # в режиме правки поста
Автор - Pelena
Дата добавления - 28.05.2017 в 14:03
Мир MS Excel » Вопросы и решения » Вопросы по Excel » В столбце добавить ячейку при определённом условии (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!