Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как выделить каждую вторую ячейку., выделение ячеек
 
#1
05.03.2019 09:50:57
Добрый день подскажите как можно выделить каждую вторую ячейку, чтобы в последствии между ними вставить пустые ячейки. Файл для примера прилагаю.  
 
 
 
#2
05.03.2019 09:59:30
Цитата
ASER. написал:
выделить каждую вторую ячейку
начиная откуда? и в какую сторону выделять?
Вполне такой нормальный кинжальчик. Процентов на 100
 
 
 
#3
05.03.2019 10:04:44
Цитата
китин написал:
начиная откуда? и в какую сторону выделять?
Дико извеняюсь. Не ячейку а столбец полностью. То есть 1, 3, 5а потом вставить новые строки. Что бы получилось вот так..
 
 
 
#4
05.03.2019 10:13:09
Для чего я это делаю. Файл будет рассылаться разным регистраторам для того что бы они в нём отметили свои адреса. Должно получиться вот так. Лучше выхода я не придумал к сожалению.  
 
 
 
#5
05.03.2019 10:31:07
Цитата
ASER. написал:
Не ячейку а столбец полностью
Может строку?
 
 
 
#6
05.03.2019 10:55:18
Вставьте макрос в модуль листа и запустите его. как понял вас  :D
Цитата
Sub Макрос1()
   Application.ScreenUpdating = False
   Application.CutCopyMode = False
   Application.DisplayAlerts = False
   Dim ttt_&, ii_&, ddd_&, zz_&
   ttt_ = Cells(Rows.Count, 1).End(xlUp).Row
       For ii_ = ttt_ To 3 Step -1
          Rows(ii_).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
       Next ii_
    ddd_ = Cells(Rows.Count, 1).End(xlUp).Row
    For zz_ = 2 To ddd_ Step 2
        With Range("A" & zz_ & ":A" & zz_ + 1 & ",B" & zz_ & ":B" & zz_ + 1)
          .Merge
          .HorizontalAlignment = xlCenter
          .VerticalAlignment = xlCenter
       End With
    Next zz_
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
    Application.DisplayAlerts = True
End Sub
Изменено: китин - 05.03.2019 10:56:02
Вполне такой нормальный кинжальчик. Процентов на 100
 
 
 
#7
05.03.2019 11:23:10
Цитата
Alex_I_S написал:
Может строку?
У меня видимо проблемы))) Да Вы абсолютно правы. Строку.  
 
 
 
#8
05.03.2019 11:24:36
китин,Большое Вам спасибо!!!
 
 
 
Страницы: 1
Наверх