提取從換行的文本細胞

文本的特定線路是否有可能採取只從一個換行文本細胞通過VBA代碼的前兩行？對於例如，A換行的文本單元具有值作爲提取從換行的文本細胞

AAAAAAA

BBBBBBB

CCCCCCC

DDDDDDD

所以單元包含4行換行文本的。我需要提取

「AAAAAAAA

BBBBBBBB」

請幫助我。

2012-03-27 1355

隨着A1你的文字，你可以試試這個公式來提取前兩行：

=LEFT(A1,FIND(CHAR(10),A1,FIND(CHAR(10),A1)+2))

您可以使用=SUBSTITUTE(...,CHAR(10)," ")更換符合空間打破。

如果你想使用VBA，你可以使用：

split(cells(1,1),chr(10))(0) & " " & split(cells(1,1),chr(10))(1)

2012-03-27 07:08:59

其實我不會換行。它自動包裝，列寬爲 – 1355 2012-03-27 08:08:14

當我們通過按Alt + Enter輸入數據時，它可以工作。但我在這裏做的只是將wrap文本屬性設置爲單元格。 – 1355 2012-03-27 09:10:28

那麼像這樣的換行符VBA代碼是CHR 10。因此，您需要使用此函數通過使用Mid函數來查找第二個換行符的位置，並使用Left函數獲取之前的所有字符。

如果沒有人給一個更清晰的答案時，我有時間來測試我將這個問題稍後編輯。

編輯

我剛纔您說：「換行的文本」，而不是他們換行像我以爲的注意。這些行是僅由列大小創建的，還是有實際的換行符？

2012-03-27 06:31:58 mattboy

其實我不把換行符。它自動包裹着列寬 – 1355 2012-03-27 08:31:39

回答