셰어웨어 목록/Excel to Ms 분리 문자로 나누기 액세스

Question

SharePoint 목록이 있고 직원들이 정보를 입력 한 다음 Excel로 내 목록을 내 보냅니다 (내 회사에서 Access와 SharePoint가 서로 잘 어울리지 않음)) 보고서를 실행하기 위해 Access로 가져옵니다. 하나의 열을 제외하고는 훌륭합니다. 직원들은 여러 카운티에서 일할 수 있으므로 SharePoint에서는 여러 카운티를 선택할 수있는 열을 찾습니다. 문제는 Excel로 내보낼 때 다음과 같이 보입니다.

[카운티] Outagamie # 1

[현] 애쉬 # 35; #Bayfield # 66; #Douglas # 67; #Iron # 68

I 만 현 이름 원한다

[현] Outagamie

을

[카운티] 애쉬 랜드, 베이 필드, 더글러스, 아이언

다시 말해서 일부 직원은 카운티가있을 수 있으며 일부 직원은 5 개 또는 6 개가있을 수 있습니다. 수식을 작성할 수 있다는 것을 알고 있지만이 보고서를 실행할 다른 사람들에게도 쉽게 알리고 싶습니다. Excel 파일을 가져 와서 쿼리를 기반으로 보고서를 실행하면됩니다.

하나님을 사랑하기 때문에 Access 쿼리에서 이것이 쉬운 일이라고 생각할 것입니다.하지만이 문제를 연구 할 때 Excel에서만 할 수있는 방법을 찾습니다. 액세스 할 수있는 방법이 있어야합니다. 제발 도와주세요 ...

Answer 1

Hummm, 찾기/바꾸기가 트릭을하는 것처럼 보입니다.

Answer 2

는이 같은 작은 도우미 함수를 만들 수 있습니다 도움을

Public Function CleanString(ByVal Value As String) As String 

    Dim Parts As Variant 
    Dim Part As Integer 
    Dim Result As String 

    Parts = Split(Value, ";#") 
    For Part = LBound(Parts) To UBound(Parts) 
     If Part Mod 2 = 0 Then 
      If Result <> "" Then 
       Result = Result & ", " 
      End If 
      Result = Result & Parts(Part) 
     End If 
    Next 

    CleanString = Result 

End Function