>>148
たぶんここ

正　ws2.Cells(j, m).Value = 1
誤　ws2.Cells(i, m).Value = 1

だと思うけど、それ以外にもおかしいところがたくさんありすぎて、突っ込んでいいのかどうか迷うところ