|
◀ 셀의 첫문자열중에서 첫 자음의 값과 건수를 알고 싶습니다.
예제가 아래와 같다고 생각하시면
일련번호 성 명 과 명 주 소
바-1 박문수 원무과
하-1 홍길동 간호과
아-1 연놀부 내과
아-2 연흥부 산부인과
이-3 임꺽정 치과
사-1 심봉사 외과
하-2 홍길서 관리과
이런내용들이 약 2,000개 정도 있습니다.
버튼을 만들어서 버튼을 클릭하면
위에서부터 ㄱ,ㄴ,ㄷ,ㄹ,ㅁ,ㅂ,ㅅ,ㅇ,ㅈ,ㅊ,ㅋ,ㅌ,ㅍ,ㅎ을 인식하여서
일련번호를 선정하고 싶습니다.
◀ 실지로 이용하는 파일에는 2가지의 시트가 있는데요
기초시트에는 각 내용들이 세부적으로 왼쪽에서 오른쪽으로 자료가 있습니다.
출력시트에는
각 개인의 인적사항을 입력하고 버튼을 클릭하면
출력시트의 내용들이
기초시트의 마지막 셀에 순차적으로 입력하도록 만들었습니다.
근데 엑사모에서 아무리 검색을 하여도 찾지 못해서
질문을 올립니다.
Sub Button1_Click() '엉터리 VB 코드입니다.
Dim i As Integer
Dim 건수 As Integer
For i = 2 To 15
If Left(Cells(1, 1), 1) = Left(Cells(i, 2), 1) Then
건수 = 건수 + 1
End If
Next i
Range("A2") = ? & "-" & 건수 '출력을 원하는 형태 --> 가-3
◀제가 그토록 원하는 답은
성명의 첫값에서 "ㄱ"의 값을 인식하여야 할 듯 하고요
그것을 아래쪽으로 계속 인식하여야 하는데
성이 가, 강, 고, 길 등이 있을때 같은것으로 보고 건수를 세고 싶습니다.
답이 아래와 같이 나오면 되는데요
가-4
--> ㄱ으로 시작하는 4번째 자료이다
가능하여야 하는데요
==============[그린님 글에 대한 답변입니다]==============
안녕하세요
첨부 참고하세요
이름을 사용했습니다..
잘되시길... |
|