انتقل إلى المحتوى الرئيسي

كيفية إدراج عمود فارغ بسرعة بين كل عمود آخر في إكسيل؟

عندما نقوم بتشغيل ورقة عمل ، نحتاج أحيانًا إلى إدراج بعض الأعمدة بين الأعمدة الموجودة. لكن إدراج عمود فارغ بين أعمدة البيانات الخارجة سيكون مهمة شاقة إذا قمت بإدراج كل عمود على حدة. هل هناك طرق سريعة للتعامل مع هذه المشكلة؟

قم بإدراج أعمدة فارغة برمز VBA

أدخل الأعمدة الفارغة بسرعة باستخدام Kutools for Excel


السهم الأزرق الحق فقاعة قم بإدراج أعمدة فارغة برمز VBA

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

1. حدد النطاق الذي تريد إدراج أعمدة فارغة بين البيانات.

2. انقر المطور > Visual Basic، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة، وأدخل الكود التالي في الوحدة النمطية:

إدراج فرعي_عمود_كل_آخر ()
ل colx = 2 إلى 30 الخطوة 2
الأعمدة (colx). أدخل التحول: = xlToRight
التالى
نهاية الفرعية

3. ثم اضغط  دوك-ضرب-حساب -3 زر لتشغيل الكود. وتم إدراج أعمدة فارغة بديلة في الأعمدة الموجودة.

ملحوظة: يمكن لـ VBA فقط إدراج عمود فارغ واحد بين كل عمود أول.

إذا كنت ترغب في إدخال عمود فارغ بفترتين ، فلن يعمل الرمز أعلاه. وكيف يمكنك إدخال الأعمدة الفارغة بسرعة مع فترات زمنية محددة؟


السهم الأزرق الحق فقاعة أدخل الأعمدة الفارغة بسرعة باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا بدون قيود في 30 يومًا. احصل عليها الآن.

مع مساعدة من كوتولس ل إكسيل، يمكنك حل هذه المشكلة بسهولة. الرجاء القيام بما يلي:

1. قم بتمييز النطاق الذي ترغب في إدراج أعمدة فارغة فيه.

2. انقر كوتولس > أدوات إدراج > أدخل صفوف / أعمدة فارغة... ، انظر لقطة الشاشة:

doc- إدراج-أعمدة فارغة 2

3. و أدخل صفوف / أعمدة فارغة سيظهر مربع الحوار. انقر أعمدة فارغة الخيار من أدخل نوع. وإدخال 2 بوصة الفاصل الزمني، الإدخال 1 بوصة عمود. انظر لقطة الشاشة:

4. ثم اضغط OK. وسوف تقوم بإدخال عمود فارغ مع كل فترتين. انظر لقطة الشاشة:

بدافع أدخل صفوف / أعمدة فارغة وظيفة ، يمكنك أيضًا إدراج عدد محدد من الصفوف الفارغة بفواصل زمنية محددة بين الخروج من البيانات. نقوم هنا بإدراج صفين فارغين بين كل عمود ثاني ، انظر الصورة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to copy coloumns from sl no 1 to 10 and paste to merged rows at a time from sl no 1 to 10 copy and paste in rows ab merge cd merge
This comment was minimized by the moderator on the site
Sadly this Kutools does not work on sheets where multiple tables are used above each other. It would be great if you could update the tool to enable this annoying limitation of Excel. I want to add a new column in the middle of ALL my tables within the document but it doesn't seem to be possible.
This comment was minimized by the moderator on the site
Is there a way to make the height of the blank row different from the height of the alternate row?
This comment was minimized by the moderator on the site
After running the macro You can also insert another column by putting 3 after Step
This comment was minimized by the moderator on the site
Can you please tell me the codes for multiple insertions and deletion of columns ?
This comment was minimized by the moderator on the site
This is related to the VB code modification in the excel where macro is there. Instead of doing change in code can i do it directly in the excel that is adding additional column details in excel between two columns
This comment was minimized by the moderator on the site
This is awesome! it works. great! thanks Asif
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations