エクセルの【区切りの位置】の活用について

質問

【結論】列に配置したい。
エクセル　２０１０使用です。

１セルにカンマで区切った文字列があります。
（例）A1のセル内に【みかん,りんご,いちご,なし】

区切りの位置でカンマ.........で行うと
A1みかん　Ｂ１りんご　Ｃ１いちご　Ｄ１なし　になります。

行ではなく列にしたいです。
Ａ１みかん
Ｂ１りんご
Ｃ１いちご
Ｄ１なし

いま私が行っているのは、行を一度コピーして
貼り付けのオプションで行と列を入れ替えてます。

最初から１セルに１文字列がよいのですが
他人が１セルにカンマで区切ったデータを編集します。

エクセル２０１０での関数や操作で実施したい。
ただしマクロや、外部からのソフトは使用しないで

よろしくお願いします。

※OKWaveより補足：「ひかりＴＶのサービスやＩＳＰぷらら」についての質問です。

回答No.1

notnot · ベストアンサー

VBAを使わない範囲だと、いまされている方法がベストです。

もしくは、
A2に、=A1
A3に、=B1
A4に、=C1
A5に、=D1
と入れておくかという単純な方法しか無い。

お礼

ありがとうございます。質問の間違いがありました。
正しい結果は
Ａ１みかん
Ａ２りんご
Ａ３いちご
Ａ４なし
です。
【notnot】さん。私の質問の誤りに気がついて、
回答頂きありがとうございます。

エクセルの区切りも横・縦の両方ができるといいですね。
データのとりこぼしのないようにドラックして
【コペー】【貼り付けで行列入れ替え】でデータベース作成します。

補足

【シンプル　イット　ベスト】で頑張ります

回答No.3

imogasi

区切り位置の操作でセルに分離した結果下記となったとする。操作説明は、わかっていると思うので省略します。
A1:C3 5行Ｘ３列
ミカン１ りんご１ なし1
ミカン２ りんご２ なし2
ミカン３ りんご３ なし3
ミカン４ りんご４ なし4
ミカン５ りんご５ なし5
D3:H3　Ｄ３セルから３行ｘ５列を範囲指定し
Ｄ１セルに=TRANSPOSE(A1:C5）と入れて、ＳＨＩＦＴ＋ＣＴＲＬ＋ＥＭＴＥＲ
（３つのキーを同時押しするということ）。配列数式です。
結果
Ｄ１：Ｈ３に
ミカン１ ミカン２ ミカン３ ミカン４ ミカン５
りんご１ りんご２ りんご３ りんご４ りんご５
なし1　 なし2 　なし3 なし4 　なし5
ーー
元データと重複するセル範囲のＡ１：Ｅ３を範囲指定しても、できるか、やってみてください。
配列数式を使っているので、多数列（何千？）や多数行の場合に、何か不都合はないか、やってみてください。
いま時間がないのでとりあえず。

回答No.2

kagakusuki

>A1みかん　Ｂ１りんご　Ｃ１いちご　Ｄ１なし　になります。

>行ではなく列にしたいです。
>Ａ１みかん
>Ｂ１りんご
>Ｃ１いちご
>Ｄ１なし

との事ですが、

>A1みかん　Ｂ１りんご　Ｃ１いちご　Ｄ１なし

と

>Ａ１みかん
>Ｂ１りんご
>Ｃ１いちご
>Ｄ１なし

はどちらも同じ横1行です。

>行ではなく列にしたいです。

という事は、

>Ａ１みかん
>Ｂ１りんご
>Ｃ１いちご
>Ｄ１なし

ではなく、

>A1　みかん
>A2　りんご
>A3　いちご
>A4　なし

ではないでしょうか?

　それと確認したいのですが、値をセルに貼り付けますと、その貼り付けたセルに元々入力されていた関数は、上書きされて消えてしまいますので、貼り付け先のセルと、結果を表示させるセルは別のセルとしておかなければ関数を使った処理を行う事は出来ません。
　ですから、

>関数や

という事は、ある特定の1セルに

"みかん,りんご,いちご,なし"

という文字列を貼り付けると、その貼り付けたセルを含んでいないどこか別の所にある縦1列のセル範囲に、

>みかん
>りんご
>いちご
>なし

と表示させる様にするものだと考えて宜しいのですね?
　それで宜しければ以下の様な方法となります。
　今仮に、Sheet1のA1セルに

"みかん,りんご,いちご,なし"

等といった類の文字列を貼り付けると、Sheet2のB2以下に

>Sheet2!B2　みかん
>Sheet2!B3　りんご
>Sheet2!B4　いちご
>Sheet2!B5　なし

の様に表示される様にするものとします。

　まず、Sheet2のB2セルに次の関数を入力して下さい。

=IFERROR(REPLACE(LEFT(","&Sheet1!$A$1,FIND(CHAR(1),SUBSTITUTE(Sheet1!$A$1&",",",",CHAR(1),ROWS(B$2:B2)))),1,FIND(CHAR(1),SUBSTITUTE(","&Sheet1!$A$1,",",CHAR(1),ROWS(B$2:B2))),),"")

　そして、Sheet2のB2セルをコピーして、Sheet2のB3以下に貼り付けて下さい。

　以上です。

お礼

ありがとうございます。ご指摘の通り質問に間違いがありました。

>A1　みかん
>A2　りんご
>A3　いちご
>A4　なし
が正しい質問でした。

早速実施しました。ありがとうございました。