Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для вставки значения с фиксированной ячейки
 
#1
22.11.2019 13:49:55
Всем привет!

Есть много листов в файле (порядка 100), на каждом листе в ячейке B3 находится значение которое необходимо вставить во все ячейки первого столбца таблицы.
Таблицы на каждом листе начинаются с 6-ой строки
Единственное замечание: столбец B:B на каждой странице спрятан и ячейки B,C,D,E,F смерджены
Возможен ли макрос для вставки значения с В3 в первый столбец таблицы?
Спасибо!

Файл-пример прикладываю
Изменено: CainV - 22.11.2019 13:50:30
 
 
 
#2
22.11.2019 13:55:23
Хочу использовать данный макрос:
Код
Sub AutoModel()

         Dim ws_Count As Integer
         Dim i As Integer

         
         ws_Count = ActiveWorkbook.Worksheets.Count

       
         For i = 1 To ws_Count

            Копировать B3 и вставить начиная с А7 и до конца таблицы

         Next i

      End Sub
 
 
 
#3
22.11.2019 13:59:37
Код
For i = 1 To ws_Count
 
            Range("B3").Value = Range("A7").End(xlDown)   //Копировать B3 и вставить начиная с А7 и до конца таблицы
 
 Next i


?
 
 
 
#4
22.11.2019 14:07:51

Код
Sub AutoModel()

         Dim ws_Count As Integer
         Dim i As Integer

         
         ws_Count = ActiveWorkbook.Worksheets.Count

        
         For i = 1 To ws_Count

            Range("A7").End(xlDown) = Range("B3").Value
            

         Next i

      End Sub

Значение вставляется только в последнюю ячейку, как сделать так чтобы вставилось во все ячейки столбца?
 
 
 
#5
22.11.2019 14:09:29
Код
Sub InsB3()
  Dim ws As Worksheet
  For Each ws In Worksheets
    Range(ws.Cells(7, 1), ws.Cells(Rows.Count, 1).End(xlUp)) = ws.[b3]
  Next
End Sub
Изменено: Ігор Гончаренко - 22.11.2019 14:46:31
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
22.11.2019 14:31:37
Ігор Гончаренко,Благодарю!
 
 
 
Страницы: 1
Наверх