كيف ترقيم الخلايا المدمجة تلقائيًا في إكسيل؟

كيف يمكننا ملء أرقام السلسلة في قائمة خلايا مدمجة مختلفة الحجم في Excel؟ أول ما يدور في أذهاننا هو سحب مقبض الملء التلقائي لملء الخلايا المدمجة ، ولكن في هذه الحالة ، سنحصل على رسالة التحذير التالية ، ولا يمكننا ملء الخلايا المدمجة.

نظرًا لأن مقبض التعبئة لا يدعم الخلايا المدمجة ، هنا ، يمكنني التحدث عن بعض الحيل الأخرى لحل هذه المشكلة.

رقم تلقائي / تعبئة الخلايا المدمجة برمز VBA

رقم تلقائي / تعبئة الخلايا المدمجة برمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في ترقيم الخلايا المدمجة المحددة بسرعة. الرجاء القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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

كود فبا: رقم تلقائي الخلايا المدمجة

Sub NumberCellsAndMergedCells()
	'Update 20141028
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	xIndex = 1
	Set Rng = WorkRng.Range("A1")
	Do While Not Intersect(Rng, WorkRng) Is Nothing
		Rng.Value = xIndex
		xIndex = xIndex + 1
		Set Rng = Rng.MergeArea.Offset(1)
	Loop
End Sub

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

4. بعد تحديد الخلايا المدمجة ، وانقر فوق OK، الآن ، تم ملء الخلايا المدمجة المحددة بأرقام متسلسلة ، انظر الصورة:

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

كيفية إعادة الترقيم التلقائي أو إعادة الترقيم بعد التصفية في Excel؟

كيفية دمج الصفوف المتجاورة بسرعة مع نفس البيانات في Excel؟

كيفية إلغاء دمج الخلايا وتعبئتها بقيم مكررة في Excel؟