엑셀 VBA 도움말 - Excel에서 하나 개의 값

Question

에 매핑 키의 하나의 연결된 문자열에서 여러 키 값을 기록 출력 I 데이터의 2 열이. 하나는 값이고 다른 하나는 키 문자열의 세미콜론으로 구분 된 목록입니다. I는 오픈이 두 번째 열을 끊고 개인 키 - 값 쌍으로 개별 키 값을 연결할 필요가있다.

INPUT :

Value1 Key1 
Value1 Key2 

Answer 1

시도 샘플 코드

Sub sample() 
    Dim strValue As String 

     s = 2 
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row 

     strValue = Range("B" & i).Value 
     retval = Split(strValue, ";") 

     For j = LBound(retval) To UBound(retval) 

      Range("C" & s) = Range("A" & i).Value 
      Range("D" & s) = retval(j) 
      s = s + 1 
     Next 
    Next 
End Sub 

Answer 2

이 새 워크 시트에 업데이트/분할 목록을두고 아래 Value1 "key1;key2"

OUTPUT.

Sub SplitKeyVals()  
Dim wsMe As Worksheet: Set wsMe = ActiveSheet 
Dim wsNew As Worksheet 
Dim rngKeys As Range 
Dim cl As Range 
Dim keyVals() As String 
Dim k As Variant 
Dim r As Long: r = 1 
Dim myDelimiter as String 

Set wsNew = Worksheets.Add(Before:=ActiveSheet) '## Modify as needed ##' 
Set rngKeys = wsMe.Range("A2:A10") '## Modify as needed ##' 

'## We will use this delimiter value later ##' 
myDelimiter = ";" 

'## Iterate over each cell in rngKeys.Cells ##' 
For Each cl In rngKeys.Cells 
    '## Use the Split function to split a delimited string in to 
    ' an array, so we can iterate over the values. ' 
    keyVals = Split(cl.Offset(0, 1).Value, myDelimiter) 

    '## Now that the values are in array, iterate over the 
    ' array items: ' 
    For Each k In keyVals 
     '## Do something with this information ##' 
     wsNew.Cells(r, 1) = cl.Value 
     wsNew.Cells(r, 2) = k 
     '## Increase the destination row for output ##' 
     r = r + 1 
    Next 
Next 

End Sub