Sub test123()
Dim ws As Worksheet
'назначаем переменной ссылку на активный лист
'чтобы после добавления нового листа можно было к нему обратиться
Set ws = ActiveSheet
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Range("A1").Copy Range("B1") 'правда не очень понимаю смысл сего действа...
Worksheets.Add.Name = "Лист3"
'переносим значения
Range("A1:B5").Value = ws.Range("E3:F7").Value
End Sub
Мне необходимо как то запомнить значения листа1 диапазон ("E3:F107") далее макрос меняет значения в диапазоне ("E3:F107") на этом же листе их тоже надо запомнить, далее все что запомнили нужно выложить на новом листе уже в два разных диапазона, допустим в ("A3:B107") и ("C3:D107") как то так
Александр.М написал: все что запомнили нужно выложить на новом листе уже в два разных диапазона, допустим в ("A3:B107") и ("C3:D107")
Код
Sub test123()
Dim arr
'назначаем переменной массива значения диапазона "E3:F107" активного листа
arr = Range("E3:F107").Value
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
'-----------------------------------------------
'до сих пор не понимаю зачем эта строка
Range("A1").Copy Range("B1")
'-----------------------------------------------
Worksheets.Add.Name = "Лист3"
'выгружаем массив в два других диапазона
Range("A3:B107").Value = arr
Range("C3:D107").Value = arr
End Sub