'左上にエラー発生行がくるようにする
spr.Sheets(0).SetActiveCell(iRow2, 0)
spr.ShowActiveCell(FarPoint.Win.Spread.VerticalPosition.Center, FarPoint.Win.Spread.HorizontalPosition.Center)
'アクティブセルの移動
spr.Sheets(0).ActiveColumnIndex = 1
spr.Sheets(0).ActiveRowIndex = 1
spr.Focus()