Прескочи на основното съдържание

Как да променя/преобразувам абсолютна препратка към относителна препратка в Excel?

Автор: Техническа поддръжка Последна промяна: 2014-06-03

Обикновено има няколко вида препратки към клетки, които можете да използвате във формула, и всеки тип препратки към клетки може да ви помогне да постигнете различни цели във формулата. Можете да имате следните типове препратки към клетки, като абсолютна препратка към клетка, относителна препратка към клетка, относителна препратка към ред, абсолютна препратка към колона и абсолютна препратка към ред и относителна препратка към колона. Но понякога може да се наложи да промените използването на целта на формулата, като промените препратките към клетки във формулата. Следните трудни методи ще ви кажат как да промените абсолютната препратка към относителната в Excel.

Променете абсолютната препратка към относителната препратка с клавиш F4

Промяна на абсолютна препратка към относителна препратка с VBA код

Бързо променете абсолютната препратка към относителната препратка с Kutools за Excel

Абсолютна справка

Относителна справка


стрелка син десен балон Променете абсолютната препратка към относителната препратка с клавиш F4

С клавишната комбинация F4 можем лесно да превключим абсолютната препратка към относителната препратка, моля, направете следните стъпки:

Поставете курсора зад $A$1, след това натиснете F4 три пъти, ще стане A$1, $A1, A1 последователно. Вижте екранна снимка:

Съгласно тази стъпка, поставете курсора зад $B$1, за да получите B1.

И тази препратка към клетка ще стане относителна препратка от абсолютна препратка.

Ако има няколко препратки към клетки на формули, които трябва да бъдат променени, този начин ще бъде досаден и отнема много време.


стрелка син десен балон Промяна на абсолютна препратка към относителна препратка с VBA код

С кода на VBA можете бързо да промените набор от препратки към клетки с формули от абсолютни препратки към относителни препратки наведнъж.

1. Изберете диапазона, който искате да промените.

2. кликване Софтуерен Инженер > Visual Basic или можете да натиснете Alt + F11, ще се покаже нов прозорец на Microsoft Visual Basic за приложения, щракнете Поставете > Модулии въведете следния код в Модули:
VBA: Преобразуване на абсолютна в относителна референция.

Sub ConverFormulaReferences()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
Dim xIndex As Integer
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)
xIndex = Application.InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Absolute = 1" & Chr(13) _
& "Row absolute = 2" & Chr(13) _
& "Column absolute = 3" & Chr(13) _
& "Relative = 4", xTitleId, 1, Type:=1)
For Each Rng In WorkRng
    Rng.Formula = Application.ConvertFormula(Rng.Formula, XlReferenceStyle.xlA1, XlReferenceStyle.xlA1, xIndex)
Next
End Sub

3. След това кликнете doc-абсолютен-относителен-6 за да изпълните кода и ще изскочи поле за подкана за избор на диапазон за преобразуване, след което щракнете върху OK и се показва друг диалогов прозорец, за да ви подкани кой тип искате да използвате. След това можете да изберете правилния тип, от който се нуждаете. За този пример ще вмъкна 4. Вижте екранни снимки:

4. След това кликнете OK. Всички абсолютни препратки в селекцията са променени на относителни препратки във формулата.

Това е многофункционален VBA код с този код; можете също да промените относително спрямо абсолютната препратка, да промените абсолютния ред или да промените абсолютната колона.


стрелка син десен балон Бързо променете абсолютната препратка към относителната препратка с Kutools за Excel

Kutools за Excel: с повече от 100 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Махни го сега

Kutools за Excel ви позволяват бързо и лесно да промените абсолютната на относителна референция или обратно. Моля, направете следното:

Стъпка 1. Отидете, за да изберете диапазона, който съдържа формули, които искате да промените препратките към клетки в работен лист.

Стъпка 2. Щракнете Kutools > Конвертиране на препратки. Ще се покаже Преобразуване на препратки към формули диалогов прозорец. Вижте екранна снимка:

Стъпка 3. Проверете Към роднина и кликнете Ok or Добавете Обява в Преобразуване на препратка към формула диалогов прозорец. Това ще промени абсолютната препратка към относителна препратка.

Ако искате да промените препратките към клетки на абсолютни колони или абсолютни редове, моля, проверете Към колона абсолютна опция или Да гребеш абсолютно опция.

За по - подробна информация за Преобразуване на справка, Моля, посетете Описание на функцията Convert Reference.


Относителна статия:Променете относителната препратка към абсолютна препратка

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Function ConvertMyAddress(strRng As String) As String
Dim rngSelection As Range

Set rngSelection = Application.Range(strRng)
'// Test if empty
If rngSelection Is Nothing Then Exit Function

' MsgBox rngSelection.Address(0, 0) 'A1
' MsgBox rngSelection.Address(1, 0) '$A1
' MsgBox rngSelection.Address(0, 1) 'A$1
' MsgBox rngSelection.Address(1, 1) '$A$1
' MsgBox rngSelection.Address '$A$1
'
' MsgBox rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)
' MsgBox "[" & rngSelection.Parent.Parent.Name & "]" & rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)

ConvertMyAddress = rngSelection.Address(1, 1)

End Function
This comment was minimized by the moderator on the site
Wao Excellent teh VBA Code Works Perfect, Thank You very Much
This comment was minimized by the moderator on the site
Excel 2010. I clicked on cancel when the prompt comes up, but excel still ran the script and it froze my computer for several hours. I only had 1 cell highlighted anyway, so even if the script did run, why did it take so long to run? [i realize now that despite pressing cancel, the code ran and made every cell in the worksheet relative ! :( ] I was assigning it to a form button vs pressing play within VBA window. I've used other scripts from KuTools and never experienced this nonsense.
This comment was minimized by the moderator on the site
The F4 toggle works in all versions. but you MUST be in edit mode first. I always press F2 (puts you into edit mode) then F4 to toggle between the four options.
This comment was minimized by the moderator on the site
With the shortcut key F4, we can easily toggle the absolute reference to relative reference, please do //as// the following steps. Forgot to mention F4 didn't work with my excel (windows 7) but your macro and invite to Kutools is great. Sorry about repeat sends, I thought the code wasn't working.
This comment was minimized by the moderator on the site
Thank you very much. Descriptive, easy to follow information.
This comment was minimized by the moderator on the site
Thank you very much, descriptive, easy to follow information.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations