Excel & VBA---Brain Training
아래를 실행하면
시트에 이렇게 정보가 입력된다
고급휠터를 사용하여 유일한 값을 찾아낼때
중복되는 값을 하나 더 갖고 나타난다..맨위의 값을 휠드명으로 알고
필드명까지 갖여 와서 그렇다..
즉 중복되는것을 하나 더 갖고 온것은 필드명으로 간주한 값이라서
그러니 헷갈리지 마시도록
그러니 필요에 따라서 정확하게 만들어서 사용하는 것이 좋겠다
<![CDATA[
Sub writeDatas()
Dim iX As Integer
Dim shtX As Worksheet
Const DATAX As String = "김이박"
Set shtX = Worksheets.Add
With shtX.Range("A1")
For iX = 0 To 200
.Offset(iX) = _
Mid(DATAX, Int(Rnd() * 3) + 1, 1) & _
Mid(DATAX, Int(Rnd() * 3) + 1, 1) & _
Mid(DATAX, Int(Rnd() * 3) + 1, 1)
Next
End With
End Sub
]]>
위의 프로시져로 얻어낸 정보를
아래와 같이 재가공 처리하여
중복되지 않는 유일한 값이 몇개인지..
그리고 정렬을 해서 확인 해본다
순환문 연습이다
BrainTraining_061.
