Excell Makro, Satır ve sutun başlangıç bitişlerini sen ayarla, 1 to 83 yazan yerleri. FOR lardan birini satır birinide sutun başlangıç ve bitişi olarak düşün

Sub yaz ()
For i=1 to 83
  For t=1 to 83
      if Cint(Trim(Cells(i,t))) > 250 Then
           Cells(i,t) =1
      Else
          Cells(i,t)=0
     End If    
  Nex t
Next i
End Sub