كود لتعبئة الفارغات في مدى معين
السلام عليكم و رحمة الله و بركاته
اخواني كثيراً ما نستخدم عملية تعبئة الفارغات في مدى معين من خلال
تحديد المدى ثم 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
|
سنجرب الكود التالي:
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
============
أتمنى لكم المتعة و الفائدة
===========
دمتم في حفظ الله
يحيى حسين
الاستاذ يحيى حسين / Excel MVP
أول محترف عربي متخصص في الإكسيل ،حاصل على Excel MVP من شركة مايكروسوفت ، مستشار ومدرب معتمد لكبرى الشركات
0 التعليقات:
شكرا على التعليق