م الاسم النوع
1 ياسر ذكر
2 اسلام ذكر
3 حسام ذكر
4 محمد ذكر
5 عمرو ذكر
6 عماد ذكر
7 محمود ذكر
8 يوسف ذكر
9 مروه أنثى
10 رؤى أنثى
11 أميرة أنثى
12 آية أنثى
13 نور ذكر
14 إيناس أنثى
15 لمياء أنثى
16 أحمد ذكر
17 إبراهيم ذكر
18 سارة أنثى
19 عز ذكر
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1:C20").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B20") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:C20")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Range("A1:C20").Sort Key1:=Range("B1:B20"), Order1:=xlAscending, Header:=xlYes
Range("A2:C20").Sort Key1:=Range("B2:B20"), Order1:=xlAscending, Header:=xlNo
Range("A1:C20").Sort Key1:=Range("C1:C20"), Order1:=xlDescending, Key2:=Range("B1:B20"), Order2:=xlAscending, Header:=xlYes
Key1:=Range("C1:C20"), Order1:=xlDescending
Key2:=Range("B1:B20"), Order2:=xlAscending
Range("A100").Select
Selection.End(xlUp).Select
Range("A100").End(xlUp).Select
Range("A" & Rows.Count).End(xlUp).Select
Range("A" & Rows.Count).End(xlUp).Row
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
MsgBox LR
Dim LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox LR
Sub SortData()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:C" & LR).Sort Key1:=Range("C1:C" & LR), Order1:=xlDescending, Key2:=Range("B1:B" & LR), Order2:=xlAscending, Header:=xlYes
End Sub