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