Уважаемые гуру! Прошу помощи. Задача: есть макрос пожалуйста можете итоговый сделать чтобы я вставил и применялся он ко всем листам киниг в папке. Спасибо!
Код |
---|
Sub root() tm = 10 'Количество заменяемых значений Dim Zam_W: ReDim Zam_W(tm) 'Массив для храниея "ЧТО заменяем" Dim Zam_T: ReDim Zam_T(tm) 'Массив для храниея "Чем заменяем" Zam_W(1) = "Тюменьэнерго" Zam_T(1) = "Россети Тюмень" Zam_W(2) = "ОКС УИиКС ТРС" Zam_T(2) = "ОКС УИиКС" Zam_W(3) = "Тюменские распределительные сети" Zam_T(3) = "Тюменские электрические сети" For i = 1 To tm If Zam_W(i) <> 0 Then Call Zamena(Zam_W(i), Zam_T(i)) Next i End Sub Function Zamena(z_21, z_22) Cells.Replace What:=z_21, replacement:=z_22, MatchCase:=True End Function |