كيفية نسخ التنسيق فقط من نطاق إلى آخر في Excel؟

عندما تريد فقط نسخ تنسيق الخلايا من نطاق، كيف يمكنك القيام بذلك بسرعة؟ يقدم لك هذا البرنامج التعليمي اختصارات سريعة لمساعدتك على نسخ التنسيق بسهولة.

نسخ التنسيق فقط باستخدام أداة Format Painter في Excel

نسخ التنسيق فقط باستخدام Kutools لـ Excel

نسخ التنسيق فقط باستخدام VBA

نسخ التنسيق فقط باستخدام أداة Format Painter في Excel

في Excel، يمكنك نسخ تنسيق الخلايا فقط باستخدام أداة Format Painter.

1. حدد النطاق الذي يحتوي على تنسيق الخلايا الذي تريد نسخه. انظر لقطة الشاشة:

2. قم بتطبيق Format Painter عن طريق النقر عليه تحت تبويب Home، انظر لقطة الشاشة:

3. حدد خلية فارغة وانقر عليها، سيتم نسخ تنسيق الخلايا فقط. انظر لقطة الشاشة:

ملاحظة: يمكن لـ Format Painter أيضًا نسخ التنسيق فقط إلى ورقة عمل أخرى.

نسخ التنسيق فقط باستخدام Kutools لـ Excel

إذا كان لديك Kutools لـ Excel مثبتًا، فإن وظيفة Copy Ranges يمكن أن تساعدك في نسخ تنسيق الخلايا بسرعة وسهولة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

يرجى تطبيق وظيفة Copy Ranges عن طريق النقر على Kutools > Copy Ranges. انظر لقطة الشاشة:

1. حدد الخلايا التي تريد نسخ التنسيق منها.

2. انقر على Kutools > Copy Ranges، ستظهر نافذة حوار على الشاشة، اختر خيار Formats تحت Paste special، انظر لقطة الشاشة:

3. ثم انقر على موافق. ستظهر نافذة حوار أخرى لتختار الخلية التي تريد لصق النتيجة فيها. انظر لقطة الشاشة:

4. انقر على موافق، وسيتم لصق التنسيق فقط في الخلية المحددة. انظر لقطة الشاشة:

ملاحظة: يمكنك أيضًا نسخ ولصق تنسيق الخلايا بين جدولين. إذا كنت تريد نسخ ارتفاع الصف وعرض العمود أيضًا، يمكنك تحديد مربع Including row height و Including column width في نافذة الحوار Copy Multiple Ranges.

مع وظيفة Copy Ranges من Kutools لـ Excel، يمكنك أيضًا نسخ القيم أو الصيغ أو التعليقات فقط.

نسخ التنسيق فقط باستخدام VBA

الوحدات البرمجية التالية يمكنها أيضًا مساعدتك في نسخ تنسيق الخلايا فقط.

1. اضغط مع الاستمرار على زر ALT واضغط على F11 على لوحة المفاتيح لفتح نافذة Microsoft Visual Basic for Application.

2. انقر على Insert > Module، ثم قم بنسخ الكود VBA إلى الوحدة.

VBA: نسخ تنسيق الخلية فقط:

Sub CopyFormat()
'Update 20130815
Dim CopyRng As Range, PasteRng As Range
xTitleId = "KutoolsforExcel"
Set CopyRng = Application.Selection
Set CopyRng = Application.InputBox("Ranges to be copied :", xTitleId, CopyRng.Address, Type:=8)
Set PasteRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
CopyRng.Copy
PasteRng.Parent.Activate
PasteRng.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub

3. انقر على زر Run أو اضغط على F5 لتشغيل الكود VBA. ستظهر نافذة حوار على الشاشة، ويجب عليك تحديد الخلايا التي تريد نسخ التنسيق منها. انظر لقطة الشاشة:

4. انقر على موافق، ستظهر نافذة حوار أخرى لتختار الخلية التي تريد لصق التنسيق فيها. انظر لقطة الشاشة:

6. انقر على موافق، ثم يتم لصق تنسيق الخلايا في الخلية المحددة. انظر لقطة الشاشة:

 ملاحظة: باستخدام هذا الكود VBA، يمكنك لصق التنسيق فقط في أوراق العمل الأخرى التي تريدها.

نصيحة: إذا كنت تريد عد أو جمع الخلايا بناءً على الألوان، يرجى تجربة استخدام أداة Count by Color من Kutools لـ Excel كما هو موضح في لقطة الشاشة التالية. تعمل هذه الأداة بكامل وظائفها دون قيود لمدة 30 أيام، يرجى تنزيلها الآن والتجربة المجانية.

مقالات ذات صلة:

• نسخ الأرقام بدون صيغ داخل الخلايا
• نسخ التعليقات فقط من خلايا إلى أخرى
• نسخ القيم والتنسيقات داخل الخلايا