|
:: 게시판
:: 이전 게시판
|
- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다. 통합 규정을 준수해 주십시오. (2015.12.25.)
통합규정 1.3 이용안내 인용"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
18/09/17 20:56
넵. 엑셀이 안되는게 어딨습니까.;; 엑셀로 그림도 그리드만요..
=IF(AND((LEN(A1)=9),ISNUMBER(FIND("a",A1))),A1,"") 라고 AA1에 입력하시면 A1에서 a라는 문자열이 있고, a포함 9글자이면 해당값을 반환해줄겁니다.. 나머지는 머.. 붙혀넣기 하시고 정리하시면 끝나지 싶어요....... PS. 근데 왜 삭제 예정 질문이신건가요? 그냥 궁금해서이니 대답하기 곤란하시면 대답 안하셔도 됩니다;
18/09/17 21:14
음 근데 이런 경우에는 "A+숫자 8자리"를 반환하는 것이 아니라 "A+아무 문자 8자리"를 반환하는 것 같은데, 혹시 전자의 경우는 따로 추출하기 힘들까요?
18/09/17 22:11
음 그러네요.. 사실 엑셀에서 숫자 문자 구분은 셀서식으로 하는거라. left를 쓰면 되지 않을까 싶은데.
일단 밑에 분이 아름다운 답변을 다셔서 밑에분 답변으로 쓰시는게 좋겠습니다. 도움이 더 못되드려 죄송하네요. 사실 퇴근한지라 집에 엑셀이 없어서 테스트를 못해 보겠어요.....ㅠㅠ
18/09/17 21:03
배열 수식으로 해보려고 했는데, 조건을 각 셀별로 새로 지정하는 방법을 아직 모르겠어서 VBA로 일단 드립니다.
Sub FindIt() Dim rData As Range Dim rFind As Range Set rData = Range("A1:Z999") For Each c In rData If Left(c.Value, 1) = "A" And IsNumeric(Right(c.Value, 8)) Then If Not rFind Is Nothing Then Set rFind = Union(rFind, c) Else Set rFind = c End If End If Next Range("AA1").Select If Not rFind Is Nothing Then For Each c In rFind Selection.Value = c Selection.Offset(1, 0).Select Next End If End Sub
|
||||||||||||
