دسته بندی اعداد در هر ستون و گرفتن میانگین از هر دسته

[sabaas]

سلام و خسته نباشید

محموعه ای از اعداد ممیزی در ستونی از اعداد,بطور نامرتب وجود دارند.میخواهم ابتدا کلیه اعداد ستون از کوچک به بزرگ در یک ستون دیگر مرتب و نمایش داده بشوند و سپس اعدادی که رقم صحیح و سه رقم بعد اعشار آنها مثل هم باشند در یک گروه قرار گرفته و سپس میانگین گیری شوند
مثلا اعداد 2.2565 و 2.2561 و 2.2568 و 2.2569 در ستونی از اعداد, وجود دارند.این اعداد در ستونی دیگر نمایش داده بشوند و سپس میانگین گیری شوند.

[Ali Parsaei]

سلام،
ابتدا اطلاعات را کپي کرده و در ستون ديگري پيست کنيد، سپس کل اطلاعات جديد که کپي کرده ايد را انتخاب و راست کليک کرده و با گزينه sort آن را از کوچک به بزرگ رديف کنيد.
سپس در يک رديف ديگر با تابع mid رقم اول و دو رقم بعد از مميز اعداد را پيدا کنيد و با ز در يک ستون ديگر با تابع averageif ميانگين نهايي دلخواه خود را بيابيد.
البته فکر کنم تابع averageif در ورژنهاي قديم اکسل وجود ندارد.

[Amir Mohsenpour]

Sub Macro4()
'
' Macro4 Macro
'


'
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:B22")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],5)"
Selection.End(xlToLeft).Select
Selection.End(xlDown).Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Columns("A:B").Select
Selection.Subtotal GroupBy:=2, Function:=xlAverage, TotalList:=Array(1), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Columns("A:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.RemoveSubtotal
End Sub