копирование формул

[evdss]

Здравствуйте!
Подскажите, пожалуйста как скопировать формулу
У меня в столбце по строкам идет формула,
=Лист1!G17
=Лист1!G18
=Лист1!G20
и т.д
т.е. ссылки на разные строки и очень много строк
мне надо копировать формулы, чтобы менялся столбец
=Лист1!H17
=Лист1!H18
=Лист1!H20
копировать на разные листы при этом задавать столбец, а строки оставались те же
Хотелось бы макросом, так как очень много.

[VictorM]

Хотелось бы макросом, так как очень много.

Для начала просто включите макрорекордер, сделайте что Вам нужно, посмотрите код.
Потом можно будет подредактировать получившийся макрос.

[evdss]

если рекодером, то просто вставляется Sub Макрос3()
'
' Макрос3 Макрос
' Range("D3:D103").Select
Selection.Copy
Sheets("tjg03").Select
Range("D3").Select
ActiveSheet.Paste
End Sub
т.е формула не меняется, которую я копирую, а надо поменять формулу в этих ячейках, т.е. задавать столбец в формуле

[Hugo121]

Как вариант - взять формулы в массив, в массиве их изменить, выгрузить массив в другой лист.

Sub tt()
    Dim a(), i&
    a = Sheets(1).[a1:a10].Formula
    For i = 1 To UBound(a)
        a(i, 1) = Replace(a(i, 1), "!G", "!H")
    Next
    Sheets(2).[a1].Resize(UBound(a), 1) = a
End Sub

Да, с формулами массива так сделать не получится.

[evdss]

в этом месте не понимает a = Sheets(1).[a1:a10].Formula

[staniiislav]

Сообщение от Hugo121

Как вариант - взять формулы в массив, в массиве их изменить, выгрузить массив в другой лист.

Интересный подход, +++ Hugo121

если правильно понял, немного подкорректировал пример Hugo121:

Sub tt()
    Dim a(), i&
    a = [d1:d10].Formula
    For i = 1 To UBound(a)
        a(i, 1) = Replace(a(i, 1), "G", "H")
    Next
    [d1].Resize(UBound(a), 1) = a
End Sub

[evdss]

спасибо большое, вы просто меня спасли

[Hugo121]

Я "!" оставил специально, чтоб например не заменилось что-то другое в формулах, например в CEILING().
Но конечно нужно смотреть по месту.

Почему "не понимает a = Sheets(1).[a1:a10].Formula " - не знаю... Стиль ссылок не влияет, проверил...

P.S. Т.е. уже понимает?
А вообще это можно было сделать обычной заменой в диапазоне по Ctrl+H

[staniiislav]

Hugo121 абсолютно прав, самый простой способ в вашей ситуации, это обычная замена, стандартными средствами эксель

Вот еще один пример макроса:

Sub Замена()
Dim ХотимПоменятьНаБуквуСтолбца As String, ТекущаяБукваСтолбца As String, ДиапазонЗамены As Range
Set ДиапазонЗамены = Application.InputBox("Выделите диапазон для замены", Type:=8)
ХотимПоменятьНаБуквуСтолбца = Application.InputBox("Введите букву столбца для замены", Type:=2)
If ХотимПоменятьНаБуквуСтолбца = "" Then Exit Sub
ТекущаяБукваСтолбца = Right(Left(ActiveCell.Formula, 2), 1)
ДиапазонЗамены.Replace What:=ТекущаяБукваСтолбца, Replacement:=ХотимПоменятьНаБуквуСтолбца
End Sub

[Hugo121]

Единственное что если делать такое Ctrl+H макросом, то заранее нужно знать, что на что изменится при копировании формул в конкретный диапазон, и по факту пересчёт формул произойдёт два раза (до замены, и после).
Если делать через массив - то меняем исходные известные формулы, пересчёт будет только после выгрузки уже изменённого массива.
В общем, через массив проще, контроль больше, можно сделать варианты замены по условию.