Подскажите код макроса для переноса значений ячеек из одного листа в другой - VBA

Формулировка задачи:

Ребята подскажите макрос который может к примеру переносить значения из ячеек A1,F3,H7 Листа4 ,в ячейки Листа1 по принципу что значение ячейки из A1 в J3. из F3 в A5.из H7 в X6... Запуск должен с Листа1.и код можно было редактировать для возможности добавлять новые ячейки.

Решение задачи: «Подскажите код макроса для переноса значений ячеек из одного листа в другой»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Макрос1()
 
Sheets("Лист1").Range("J3") = Sheets("Лист4").Range("A1")
Sheets("Лист1").Range("A5") = Sheets("Лист4").Range("F3")
Sheets("Лист1").Range("X6") = Sheets("Лист4").Range("H7")
Sheets("Лист4").Range("A1").ClearContents
Sheets("Лист4").Range("F3").ClearContents
Sheets("Лист4").Range("H7").ClearContents
End Sub

Оцени полезность:

13 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы