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