在前面一篇文章《excel單元格換行和相關(guān)問(wèn)題解決方法》中,介紹了一些excel單元格內(nèi)換行的方法,比如通過(guò)alt+enter組合鍵等等方法。
注:如果使用alt+enter組合鍵使用excel單元格內(nèi)換行之后,應(yīng)該再重新調(diào)整行高(雙擊行與行之間間隔快速調(diào)整為合適高度)。
本文介紹一些特殊的excel單元格內(nèi)換行的實(shí)例。
excel單元格內(nèi)換行實(shí)例一:
如何用VBA實(shí)現(xiàn)15位數(shù)值以每5個(gè)數(shù)字自動(dòng)換行。
按ALT+F11,打開(kāi)VBE窗口,單擊插入——模塊,復(fù)制下面代碼,按F5鍵運(yùn)行即可自動(dòng)實(shí)現(xiàn)excel單元格內(nèi)換行。
Sub 單元格內(nèi)換行()
For x = 1 To Range("A" & Range("A:A").Count).End(3).Row
Cells(x, 1) = Left(Cells(x, 1), 5) & Chr(10) & Mid(Cells(x, 1), 6, 5) & Chr(10) & Right(Cells(x, 1), 5)
Next x
End Sub
excel單元格內(nèi)換行實(shí)例二:
excel一個(gè)單元格內(nèi)換行內(nèi)容,如A1所示,如何自動(dòng)將A1自動(dòng)換行的內(nèi)容轉(zhuǎn)換為多個(gè)單元格,如A3:A5的效果。
按ALT+F11,打開(kāi)VBE窗口,單擊插入——模塊,復(fù)制下面代碼,按F5鍵運(yùn)行即可自動(dòng)實(shí)現(xiàn)excel單元格內(nèi)換行。
Sub 單元格內(nèi)換行()
v = Split(Cells(1, 1).Value, Chr(10))
Cells(3, 1).Resize(UBound(v) + 1, 1).Value = Application.Transpose(v)
End Sub
excel單元格內(nèi)換行實(shí)例三:
Excel工作表中以分號(hào)隔開(kāi)的數(shù)據(jù),如何操作可以實(shí)現(xiàn)這些信息在Excel單元格內(nèi)換行?
將A1單元格處實(shí)現(xiàn)單元格內(nèi)換行。在B1單元格輸入公式: B1=SUBSTITUTE(A1,";",CHAR(10)),然后調(diào)整B1單元格的列寬和行高。
通過(guò)三個(gè)小實(shí)例介紹了除上一篇文章的基礎(chǔ)用法以外的用公式和VBA來(lái)實(shí)現(xiàn)excel單元格內(nèi)換行。
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴(lài)品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:excel單元格內(nèi)換行方法
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139216454.html