كيف تُدرج عددًا محددًا من الأعمدة بفاصل زمني ثابت في Excel؟
في استخدامك اليومي لـ Excel، قد تواجه موقفًا يتطلب منك إضافة أعمدة إضافية بين الأعمدة الموجودة. بالطبع، يمكنك إدراج الأعمدة واحدة تلو الأخرى باستخدام خاصية «إدراج». لكن عندما تعمل مع مجموعات بيانات كبيرة وتحتاج إلى إدراج ثلاثة أعمدة بعد كل عمود ثاني — أو بعد كل عمود n — فإن هذه الطريقة تصبح غير فعّالة بوضوح. فكيف يمكنك إنجاز هذه المهمة بسرعة؟ في هذا البرنامج التعليمي، سنستعرض طريقتين سهلتين وفعّالتين لحل هذه المشكلة.
استخدم كود VBA لإدراج عدد محدد من أعمدة فارغة في نطاق البيانات بفترات زمنية ثابتة
استخدم Kutools لـ Excel لإدراج عدد محدد من أعمدة فارغة في نطاق البيانات بفترات زمنية ثابتة
يمكنك استخدام كود VBA أدناه لإدراج عدد محدد من الأعمدة الفارغة بعد كل عمود n. يُرجى اتباع الخطوات التالية:
1. اضغط على مفاتيح «Alt + F11» في Excel لفتح نافذة «Microsoft Visual Basic for Applications».
2. انقر على «Insert» > «Module»، ثم الصق الماكرو التالي في نافذة «Module».
Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. اضغط على مفتاح "F5" لتشغيل هذا الكود، وستظهر لك نافذة منبثقة لتذكيرك بتحديد «نطاق البيانات» الذي تريد إدراج أعمدة فارغة فيه.
4. انقر على زر «OK». ستظهر نافذة منبثقة أخرى؛ يُرجى إدخال «عدد فترات الأعمدة» في مربع «Enter column interval».
5. استمر في النقر على زر «موافق». بعد ذلك، ستظهر نافذة منبثقة ثالثة؛ يُرجى تحديد «عدد الأعمدة التي تريد إدراجها عند كل فترة» في المربع المخصص.
6. انقر على زر «موافق» للحصول على النتيجة.
إذا كنت تفضل عدم استخدام كود VBA، فإن ميزة «إدراج صفوف/أعمدة فارغة» في «Kutools لـ Excel» هي الحل المثالي لك. فباستخدام هذه الميزة، يمكنك إدراج عدد محدد من الأعمدة ضمن نطاق البيانات بفاصل ثابت بينها — وكل ذلك بنقرات قليلة فقط!
1. حدد أولًا نطاق البيانات الموجودة، ثم انقر على «Kutools» > «Insert» > «إدراج صفوف/أعمدة فارغة».
2. تظهر نافذة الحوار «إدراج صفوف/أعمدة فارغة»، حيث يمكنك رؤية نطاق البيانات الذي حددته في الخطوة 1 معروضًا في مربع النطاق. اختر خيار «أعمدة فارغة» في قسم «نوع الإدراج»، ثم حدد «عدد فترات الأعمدة» و«الأعمدة التي تريد إدراجها عند كل فترة». هنا، أدخلتُ القيمتين 1 و3 على التوالي.
3. انقر على زر «موافق» لإنهاء الإعداد والحصول على النتيجة.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
كيف تُدرج سطرًا سريعًا استنادًا إلى التاريخ الحالي في Excel؟
افترض أن لديك ورقة تحتوي على صف من التواريخ، وتريد الآن إدراج سطر جديد مباشرةً بجانب التاريخ الحالي—الذي يتجدد تلقائيًا كلما فتحت المصنف. هل هناك طريقة لتحقيق ذلك في Excel؟
كيف تُدرج دائمًا صفًّا فارغًا أسفل الخلية المحددة بدلًا من الأعلى في Excel؟
كما نعلم جميعًا، عند إدراج صف فارغ في ورقة العمل، يُدرج دائمًا فوق الصف أو الخلية المحددة. لكن في بعض الأحيان، قد تحتاج إلى إدراج الصف أسفل الخلية أو الصف المحدَّد. فكيف يمكنك تنفيذ هذه المهمة في Excel؟
كيف تُدرج صفًا جديدًا فارغًا تلقائيًا باستخدام زر أمر في Excel؟
قد تحتاج في العديد من الحالات إلى إدراج صف جديد فارغ في موضع معيّن من ورقة العمل الخاصة بك. وفي هذه المقالة، سنوضح لك كيفية إدراج صف جديد فارغ تلقائيًا بمجرد النقر على زر أمر في Excel!
كيف تُدرج صفًّا فارغًا بعد نص معيّن في Excel؟
إذا كنت ترغب في إدراج صفوف فارغة بعد نص معيّن كما هو موضح في لقطة الشاشة التالية، فكيف يمكنك تنفيذ ذلك بسرعة وسهولة دون إدخالها يدويًّا واحدة تلو الأخرى؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل