#excel #vba
#excel #vba
Вопрос:
Я пытаюсь найти способ с помощью VBA в EXCEL заменить то же слово, которое существует внутри каждого листа, другим словом, которое также будет отличаться для каждого листа, в зависимости от названия каждого листа, возможно ли это?
Например, допустим, у меня есть 4 листа с именами A, B, C amp; D, которые содержат внутри несколько раз слово «один».
- Я хочу на листе A переименовать слово «один» в «1»
- Я хочу на листе B переименовать слово «один» в «2»
- Я хочу на рабочем листе C переименовать слово «один» в «3»
- Я хочу на листе D переименовать слово «один» в «4»
Спасибо!
Комментарии:
1. Вы могли бы использовать функцию замены с немного указаниями.
ThisWorkbook.Sheet1.Replace(one,one,1). И так далее с другими листами
Ответ №1:
Этот код будет делать то, что вы говорите; однако, если вам нужна большая область, вам придется изменить диапазон. Я просто устанавливаю этот макрос на кнопку, или вы можете просто запустить его.
Sub Click_Me()
Sheet1.Range("A1:AA100").Replace What:="one", Replacement:="1"
Sheet2.Range("A1:AA100").Replace What:="one", Replacement:="2"
Sheet3.Range("A1:AA100").Replace What:="one", Replacement:="3"
Sheet4.Range("A1:AA100").Replace What:="one", Replacement:="4"
End Sub