1つのセルの中の物のリストをいくつかのセルに分けるにはどうすればいいですか？

Question

私は例えば、物事のリストを持って、このセルを持っている：

[dogs, cats, mice, cows, horses] 

そして、私は別の細胞にそれらを分離したい：

[dogs] 
[cats] 
[mice] 
[cows] 
[horses] 

はこれが行われることはできますか？

Answer 1

あなたは簡単にVBAでこれを行うことができます。

Sub splitString() 
    Dim ran, splitS() As String 
    ran = Range("A1") 
    splitS() = Split(ran, ",") 
    For j = LBound(splitS) To UBound(splitS) 
    Range("B" & (j + 1)) = splitS(j) 
    Next j 
End Sub 

あなたも角括弧は、以下のコードを使用したい場合：

Sub splitStringWithSquareBrackets() 
    Dim ran, splitS() As String 
    ran = Range("A1") 
    ran = Right(ran, Len(ran) - 1) 
    ran = Left(ran, Len(ran) - 1) 
    splitS() = Split(ran, ",") 
    For j = LBound(splitS) To UBound(splitS) 
    Range("B" & (j + 1)) = "[" & splitS(j) & "]" 
    Next j 
End Sub 

Answer 2

これはそれを行うだろう - あなたが選択する必要がありますそれを実行する前にセルを持つセルであり、どちらかの端に閉じた括弧（ "["と "]"）があると仮定します。

私は今、セルのデータA1で..

Sub ImAmazing() 
Dim sString As String, i As Long 

If Trim(ActiveCell.Value) = "" Then Exit Sub 

ActiveCell.Value = Mid(ActiveCell.Value, 2, Len(ActiveCell.Value) - 2) 

Do Until InStr(ActiveCell.Value, ",") = 0 
    i = i + 1 
    Cells(ActiveCell.Row + i, ActiveCell.Column).Value = "[" & Left(ActiveCell.Value, InStr(ActiveCell.Value, ",") - 1) & "]" 
    ActiveCell.Value = Right(ActiveCell.Value, (Len(ActiveCell.Value) - InStr(ActiveCell.Value, ",") - 1)) 
Loop 

ActiveCell.Value = "[" & ActiveCell.Value & "]" 

End Sub 

Answer 3

を私の最高の答えを持っています：

Sub dural() 
    Dim s As String, i As Long 

    s = Range("A1").Value 
    s = Mid(s, 2, Len(s) - 2) 
    ary = Split(s, ", ") 
    i = 2 

    For Each a In ary 
     Cells(i, "A").Value = "[" & a & "]" 
     i = i + 1 
    Next a 
End Sub