엑셀 입력값 0과 1로 변환하기 질문드립니다.

[레펠]

안녕하세요.

너무 답답해서 질문드립니다.

약 4000천명 정도의 설문조사 결과가 입력이 너무 엉터리로 뒤죽박죽이 되어 있어서 수정하려고 하는데 통 모르겠네요.

첨부파일에 현재 입력상태와 변경하고자 하는 입력상태를 표시하였습니다.

현재 입력상태를 보면 질문 1의 첫번째 셀에 5로 입력되어 있는데 원래 질문 5칸에 어떤 형태로든 코딩이 되어야 합니다.

변경하고자 하는 입력상태는 해당 숫자가 해당 질문에 1로 코딩되고 나머지는 모두 0으로 표시하고 싶네요.

이럴때는 어떤 함수를 써야할까요?

전문가 분들의 도움을 구합니다.

꾸벅 ^^

========================================================================================

현재 사용하는 엑셀 버젼을 기재하시면 좀더 정확하고 신속한 답변을 얻으실 수 있습니다. 

엑셀 버젼(예: 2007) :

========================================================================================

[이군악]

Sub 설문정리()

baseS = ActiveSheet.Name '질문결과가 있는 곳에서 매크로 실행해야 함

Sheets.Add(after:=Sheets(Sheets.Count)).Select '새 시트에서 결과 정리

TotalAns = 4000 '설문조사 회신수량
Qno = 10 '질문 수

For i = 2 To TotalAns '2행부터 설문결과 입력

For j = 1 To Qno '해당질문에 1 표기

Cells(i, Sheets(baseS).Cells(i, j)) = 1

Next j

For k = 1 To Qno '1이 아닌 것은 0으로 채우기
If Cells(i, k) <> 1 Then
Cells(i, k) = 0
End If
Next k

Next i

End Sub

[레펠]

정말 감사합니다... ^^