셀에 누락 된 고유 번호를 표시하려면 어떻게합니까? [닫은]


1

예를 들어 23450하나의 셀에 5 자리 숫자가 있습니다. 이 숫자에서 0에서 9까지의 숫자를 표시하고 싶습니다. 이 예에서는 다른 셀 16789에 누락 된 숫자 가 표시되어야합니다 . 아래는 예입니다.

열 A 열 B (누락 된 번호를 표시해야 함)
23456 17890
34877 125690
22344 1567890
27788 1345690

열 A의 숫자는 동일한 숫자의 배수를 포함 할 수 있으며,이 경우 열 B는 5 개 이상의 누락 된 숫자를 포함합니다.

이 문제에 접근하는 방법을 모르겠습니다.


1
슈퍼 유저에 오신 것을 환영합니다. 신입 회원은 일반적으로 업무를 수행 할 서비스 사이트로이 점을 착각합니다. 무언가를 시도하고 갇힌 후에 특정 질문을하는 Q & A 커뮤니티입니다. 스크립트, 코드 또는 수식을 포함하여 지금까지 시도한 세부 정보를 추가하십시오. 도와 드리겠습니다. 질문하는 방법에 대한 자세한 정보가 필요 하면 도움말 센터 에서 질문하는 방법을 확인하십시오 .
CharlieRB

주의하시기 바랍니다 슈퍼 사용자는 스크립트 작성 서비스가 아닙니다. 지금까지 시도한 내용 (사용중인 모든 스크립트 포함)과 문제가 발생한 위치를 알려 주시면 특정 문제를 해결하도록 도와 드릴 수 있습니다. 또한 좋은 질문을하려면 어떻게해야합니까?를 읽어보십시오 . .
DavidPostill

답변:


1

비 VBA 솔루션은 Máté Juhász와 유사하지만 대체는 없습니다. 단순히 문자열을 만듭니다.

=IF(ISERROR(FIND("0",A1)),"0","")&IF(ISERROR(FIND("1",A1)),"1","")
 &IF(ISERROR(FIND("2",A1)),"2","")&IF(ISERROR(FIND("3",A1)),"3","")
 &IF(ISERROR(FIND("4",A1)),"4","")&IF(ISERROR(FIND("5",A1)),"5","")
 &IF(ISERROR(FIND("6",A1)),"6","")&IF(ISERROR(FIND("7",A1)),"7","")
 &IF(ISERROR(FIND("8",A1)),"8","")&IF(ISERROR(FIND("9",A1)),"9","")

0

VBA를 사용하면 쉽게 달성 할 수 있습니다.

Public Function uniquenumbers(cellvalue As String)
    originalseries = "1234567890"
    totallength = Len(cellvalue)
    For i = 1 To totallength
        thevalue = Mid(cellvalue, i, 1)
        theposition = InStr(1, originalseries, thevalue)
        If theposition > 0 Then
            originalseries = Mid(originalseries, 1, theposition - 1) & Mid(originalseries, theposition + 1)
        End If
    Next i
    uniquenumbers = originalseries
End Function

ALT+로 매크로 / VBA를 엽니 다 F11. 마우스 오른쪽 단추로 클릭 에서 ThisWorkbook 하고 삽입 모듈 . 코드를 오른쪽에 붙여 넣습니다.

세포에 B2넣어 =uniquenumbers(A2).


0

내 접근 방식은 모든 숫자의 문자열 ( 0123456789)로 시작한 다음 소스 문자열에있는 각 숫자를 제거하는 것입니다 0.

=SUBSTITUTE("0123456789",IF(ISERROR(FIND("0",A1)),"","0"),"")

그런 다음 다음 단계에서 결과를 처리하려면 중첩해야합니다.

=SUBSTITUTE(SUBSTITUTE("0123456789",IF(ISERROR(FIND("0",A1)),"","0"),""),IF(ISERROR(FIND("1",A1)),"","1"),"")

그리고 모든 숫자에 대해 :

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE("0123456789",IF(ISERROR(FIND("0",A1)),"","0"),""),IF(ISERROR(FIND("1",A1)),"","1"),""),IF(ISERROR(FIND("2",A1)),"","2"),""),IF(ISERROR(FIND("3",A1)),"","3"),""),IF(ISERROR(FIND("4",A1)),"","4"),""),IF(ISERROR(FIND("5",A1)),"","5"),""),IF(ISERROR(FIND("6",A1)),"","6"),""),IF(ISERROR(FIND("7",A1)),"","7"),""),IF(ISERROR(FIND("8",A1)),"","8"),""),IF(ISERROR(FIND("9",A1)),"","9"),"")

당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.