كيفية نسخ عنوان الخلية الحالية إلى موقع آخر في Excel؟

في Excel، يمكنك نسخ محتويات الخلية الحالية بسهولة باستخدام الاختصارات أو قائمة السياق، ولكن كيف يمكنك نسخ عنوان الخلية الحالية إلى موقع آخر؟

نسخ عنوان الخلية الحالية

نسخ عنوان الخلية الحالية ولصقه باستخدام VBA

نسخ عنوان الخلية الحالية

إليك صيغة يمكنها الحصول على عنوان الخلية الحالية في Excel.

حدد خلية حيث تريد وضع عنوان الخلية، واكتب هذه الصيغة =ADDRESS(ROW(),COLUMN())، ثم سيتم عرض عنوان الخلية الحالية.

ثم اضغط على Ctrl + C لنسخه وانقر بزر الماوس الأيمن على خلية لاختيار لصقه كقيمة.

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

نسخ عنوان الخلية الحالية ولصقه باستخدام VBA

إليك كود VBA الذي يمكنه نسخ عنوان الخلية ثم لصقه في خلية أخرى.

1. اضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود أدناه في البرنامج النصي.

VBA: نسخ ولصق عنوان الخلية

Sub AddressCopy()
'UpdatebyExtendoffice20180307
    Dim xSRg As Range
    Dim xDRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select cell(s) to copy its address:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select a cell to paste:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xDRg(1).Value = xSRg.Address
End Sub

3. اضغط F5 مفتاح، ستظهر نافذة منبثقة لتحديد الخلية التي تريد نسخ عنوانها.

4. انقر موافق، حدد خلية للصق عنوان الخلية.

5. انقر موافق.