تکه کد تبدیل عناصر یک سر به دو کلاس 0 و 1

Sub BINARY()
  For i = 2 To 2076
    If Cells(9, i) > 0 Then
      Cells(9, i) = 1
    End If
  Next i
End Sub