Можно ли заменить весь лист с другими значениями одним нажатием кнопки через макрос? Там нет "заменить X на Y" или любой узнаваемый шаблон, я пытаюсь заменить все значения в листе.

Проще говоря, у меня есть две диаграммы с одинаковым расположением, но совершенно разными значениями на каждой диаграмме. Я хочу, чтобы пользователь мог переключаться между различными графиками, находясь на одном и том же рабочем листе, и каждый раз, когда пользователь переключал графики, график автоматически обновлялся до этой диаграммы.

1 ответ1

1

Этот быстрый грязный маленький код заменит значения на активном листе значениями в тех же ячейках другого листа:

Sub xFory()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As String

Set ows = Sheets("Sheet1") 'Change to your destination sheet
Set tws = Sheets("Sheet2") ' change to your data sheet

rng = "A1:G12" ' Change to your range address

ows.Range(rng).Value = tws.Range(rng).Value

End Sub

Редактировать: немного отредактировал код.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .