[[20110224100630]]　『改行削除』（アクシオ）　ページの最後に飛ぶ

『改行削除』（アクシオ）

 １つのセルの中に

 １行目　Ａ　
 ２行目　空白　
 ３行目　Ｂ　
 ４行目　空白　
 ５行目　Ｃ　
 ６行目　空白

 というデータがあったとします。
 偶数行のみ改行コードを削除して

 １行目　Ａ　
 ２行目　Ｂ　
 ３行目　Ｃ

 としたいのですが、どのようにすれば良いのでしょうか。

 『=SUBSTITUTE(A1,CHAR(10),"")』
 とすると、改行が全て削除されてしまいます。

 よろしくお願い致します。

 ←行頭を半角スペースで始めると書き込みの改行位置が反映されます。
　
 こんにちは。
＞偶数行のみ改行コードを削除して 
というのは難しいですね。
　
サンプルをCHAR(10)で書き直すと、
「Ａ CHAR(10) CHAR(10) Ｂ CHAR(10) CHAR(10) Ｃ CHAR(10)」
このようになっている（間のスペースはなし）ということですので、
　
・CHAR(10) CHAR(10)をいったん別の文字（@）に置き換え、
・CLEAN関数で（最後の）CHAR(10)を削除し、
・別の文字（@）をCHAR(10)に戻す
という方法でやってみました。

  B1 =SUBSTITUTE(CLEAN(SUBSTITUTE(A1,CHAR(10)&CHAR(10),"@")),"@",CHAR(10))
　
（コタ）

ありがとうございました。

ずっと悩んでいた事が、一瞬で解決して感謝感激です。

今後ともよろしくお願いします。

（アクシオ）

 すいません。私がやるとA,B,Cが"ABC"と横になってしまって、縦には並びません。
やり方が悪いのでしょうか。

 それとも質問者さんは横でもいいとのことで解決サインを出されたのでしょうか。
セル内改行のAltの処理は必要ないのでしょうか。教えてください。
（おいちゃん）

 ＞私がやるとA,B,Cが"ABC"と横になってしまって、縦には並びません。
セルの書式設定で、「折り返して全体を表示する」にチェックがついていないのでしょうね。
（数式を入力しただけでは、書式設定までは変わりませんから）
　
ちなみにAlt+Enterで改行入力すると、そのセルには自動的に↑のチェックがつきます。
　
（コタ）

 解決済みですが、別案を思いついたので参考までに。

 B1 =SUBSTITUTE(TRIM(SUBSTITUTE(A1,CHAR(10)," "))," ",CHAR(10))
　
（純丸）(o^-')b

コメント返信：

[ 一覧(最新更新順) ]

[[20110224100630]] 『改行削除』（アクシオ） ページの最後に飛ぶ

[[20110224100630]]　『改行削除』（アクシオ）　ページの最後に飛ぶ