個々のセルに分割文字列 - VBA関数

Question

";"で区切られた文字列を分割するのに助けが必要です。この例に示すようにリストを作成します。

  |  A   | 
|----------------------------| 
| Row1 | Name1;Name2;Name3 | 
| Row2 |  Name1  | 
| Row3 |  Name2  | 
| Row4 |  Name3  | 

これをVBA関数でどのように実現できますか？事前に

おかげで、

MD

Answer 1

私はランチにわたって非作業関連のコードを書くことが好き：

Sub NamesToList() 
    'Assumes that a cell is selected which contains a string which 
    'looks something like "Name1;Name2;Name3" 
    'The sub splits that list and then puts the values immediately 
    'below the selected cell. Warning: this doesn't check if there is 
    'room for those values and will overwrite existing values with no 
    'warning 

    Dim A As Variant, n As Long, R As Range 
    Set R = Selection 
    A = Split(R.Value, ";") 
    n = UBound(A) 
    Range(R.Offset(1), R.Offset(n + 1)).Value = Application.WorksheetFunction.Transpose(A) 
End Sub 

A1が選択されているときにこのサブを起動した場合、名前はなりますA2:A4に自動的に挿入されます。エラーチェックは行われないので、おそらくこのコードを調整して、そうでないことを確認してください。任意の値を上書きします。