كود لتعبئة الفارغات في مدى معين

السلام عليكم و رحمة الله و بركاته

اخواني كثيراً ما نستخدم عملية تعبئة الفارغات في مدى معين من خلال

تحديد المدى ثم Goto Special->Balnks

ثم نقوم بكتابة مرجع الخلية من الخلية الفعالة للخلية التي تسبقها ثم

Ctrl + Enter

و كحل سريع و تطبيقاً على الجدول المرفق

Name

Sales

Yahya

14093

 

30610

 

53445

 

11116

 

10996

 

14090

 

5072

 

34706

 

48310

 

28304

Ali

22790

 

12835

 

43276

 

33596

 

18973

 

8207

 

27507

 

52039

Ahmad

49905

 

11166

 

6779

 

5176

 

42371

 

31762

 

24678

 

36906

 

29631

 

22241

 

48708

Yousef

27656

 

26368

 

35568

 

22388

 

5028

 

11608

 

10290

 

6918

 

17386

 

15403

 

11378

 

13747

 

2050

 

44306

 

38056

Hani

38531

 

40220

 

32149

 

5189

 

43689

 

41854

 

37531

 

26522

 

41146

 

24330

 

18642

 

8150

 

9142

 

25925

 

سنجرب الكود التالي

Code:

Sub FillMyList()

'www.Excel4Us.com

Dim LastR As Long

LastR = Range("b" & Rows.Count).End(xlUp).Row

Range("A1:A" & LastR).SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"

End Sub

============

أتمنى لكم المتعة و الفائدة

===========

دمتم في حفظ الله

يحيى حسين

اترك تعليقك

الاسم
:
 

البريد الإلكتروني
:
 


رقم الهاتف
:
 
 


التعليق
:
 

التعليقات