كيفية إدراج صف تلقائيًا بناءً على قيمة الخلية في Excel؟

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

إدراج صف أعلى بناءً على قيمة الخلية باستخدام Kutools لـ Excel

إدراج صف أسفل بناءً على قيمة الخلية باستخدام VBA

لإدراج صف بناءً على قيمة الخلية عن طريق تشغيل VBA، يرجى اتباع الخطوات التالية:

1. اضغط على مفتاحي Alt + F11 معًا، وستظهر نافذة Microsoft Visual Basic for Applications.

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

VBA: إدراج صف أسفل بناءً على قيمة الخلية.

Sub BlankLine()
	'Updateby20150203
	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)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

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

4. انقر موافق. بعد ذلك سيتم إدراج صفوف فارغة أسفل القيمة صفر.

نصيحة:

1. إذا كنت تريد إدراج صفوف بناءً على قيمة أخرى، يمكنك تغيير 0 إلى أي قيمة تريدها في VBA: إذا كانت Rng.Value = "0".

2. إذا كنت تريد إدراج صفوف فوق القيمة صفر أو أي قيمة أخرى، يمكنك استخدام الكود التالي vba.

VBA: إدراج صف أعلى قيمة صفر:

Sub BlankLine()
	'Updateby20150203
	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)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

إدراج صف أعلى بناءً على قيمة الخلية باستخدام Kutools لـ Excel

إذا لم تكن على دراية بـ VBA، يمكنك تجربة أداة تحديد الخلايا المحددة في Kutools لـ Excel، ثم إدراج الصفوف أعلاها.

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

1. حدد القائمة التي تريد العثور فيها على الخلايا المحددة، وانقر Kutools > تحديد > تحديد خلايا محددة. انظر لقطة الشاشة:

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

3. انقر موافق، وسيظهر مربع حوار ينبهك بعدد الصفوف المحددة، فقط أغلقه.

4. ضع المؤشر عند أحد الصفوف المحددة، وانقر بزر الماوس الأيمن واختر إدراج من قائمة السياق. انظر لقطة الشاشة:

الآن تم إدراج الصفوف أعلاها بناءً على قيمة محددة.

إدراج صفوف أعلاها بناءً على قيمة الخلية

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

• إدراج صفوف فارغة في Excel