تکه کد کلاس بندی مجموعه داده در اکسل

با این کد می تواند مجموعه داده تان را به چند کلاس دسته بندی کنید

Sub class()
 For i = 739 To 2 Step -1
  Select Case Cells(49, i)

   Case Is < 2
       Cells(48, i) = 1
      
   Case Is < 5
       Cells(48, i) = 2
      
   Case Is < 11
       Cells(48, i) = 3

   Case Else
       Cells(48, i) = 4
 
End Select
 Next i
End Sub