Как заменить имена диапазонов ссылками на ячейки в Excel?
Некоторые люди предпочитают использовать в своих формулах много имен диапазонов, потому что они считают, что это более ясно и легче для чтения и понимания. Но если вы хотите увидеть фактические ссылки на ячейки, как вам это сделать? В этом руководстве мы расскажем о двух быстрых приемах решения этой проблемы.
Замените имена диапазонов кодом VBA;
Быстро и легко заменить имена диапазонов с помощью Kutools for Excel.
Например, на этом листе я назову диапазон A2: A6 как цена продажи, и назовите B2 как скидка, а затем используя оба имени диапазона в формуле для расчета новой цены. Смотрите скриншот:
  |
 |
После выполнения простых приемов имя диапазона будет заменено ссылкой на ячейку, как показано ниже:
Замените имена диапазонов кодом VBA
Используя VBA для замены имен диапазонов формул ссылками на ячейки, вы можете сделать это шаг за шагом следующим образом:
1. Выберите диапазон, содержащий формулы, имена которых вы хотите заменить ссылками на ячейки.
2. Нажмите Застройщик > Визуальный Бейсик or Alt + F11 открыть новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить>Модули, а затем введите в модуль следующие коды:
Код VBA: заменить имена диапазонов абсолютной ссылкой
Sub AbsoleteNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
End If
Next
Next
End SubКод VBA: заменить имена диапазонов относительной ссылкой
Sub ReplaceNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
End If
Next
Next
End Sub3. Затем нажмите 
Нажмите кнопку для запуска кода, появится диалоговое окно для выбора диапазона для замены. Смотрите скриншот:
4. Затем нажмите OK. и все имена выбранных диапазонов формул были заменены. Смотрите скриншот:
 |
 |
|
|
Заменить имена диапазонов относительными ссылками на ячейки |
Заменить имена диапазонов абсолютными ссылками на ячейки |
Быстро и легко заменить имена диапазонов с помощью Kutools for Excel
Если вы только что Kutools for Excel, Его Заменить имена диапазонов Утилита поможет вам быстро и легко заменить имена диапазонов ссылками на ячейки.
Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Получить сейчас
Шаг 1. Пожалуйста, примените эту утилиту, нажав Кутулс > Другие инструменты > Заменить имена диапазонов. Смотрите скриншот:
Шаг 2. Всплывающее диалоговое окно с названием Заменить имена диапазонов отображается, и щелкните Диапазон раздел, а затем выберите диапазон, который вы хотите заменить ссылками на ячейки из Базовый диапазон. Смотрите скриншот:
Шаг 3. Нажмите Замените, Другой Заменить имена диапазонов появится всплывающее диалоговое окно с информацией о количестве измененных формул и неизмененных формул, щелкните Ok, а затем имена диапазонов в выбранном диапазоне были заменены ссылками на ячейки. Смотрите скриншот:
Для получения более подробной информации о Заменить имена диапазонов, Пожалуйста, посетите Описание функции "Заменить имена диапазонов".
Относительная статья:
Изменить ссылку на ячейку в формулах на имена диапазонов в Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
