一个格子里面分成上下二格 一格怎么分成上下格

关于一个格子里面分成上下二格，一格怎么分成上下格这个很多人还不知道，今天小天来为大家解答以上的问题，现在让我们一起来看看吧！

1、如数据在A1单元格，在B1单元格输入公式=IFERROR(LOOKUP(12^12,--MID(";"&A$1,FIND("@",SUBSTITUTE(";"&A$1,";","@",ROW(A1)))+1,ROW($1:$1000))),"")这种数据，用VBA实现最方便，代码如下：Sub 单元格拆分(.Range("b" & x).Resize(UBound(arr1) + 1, 1) = Application.Transe(arr1))Dim arr1, xIf .Cells(x, 1) <> "" Then'去掉一个分号If Right(Cells(x, 1), 1) = ";" Then Cells(x, 1) = VBA.Mid(Cells(x, 1), 1, Len(Cells(x, 1)) - 1)'将A￥B列单元格内容拆分成数组arr1 = Split(.Range("a" & x), ";")'如果拆分出来的内容多于1个'根据拆分出来的数据项的数量向下插入空行Rows(x + 1 & ":" & UBound(arr1) + x).Insert Shift:=xlDown'在当前行C、D列转置存放拆分出来的数据项Else.Range("b" & x) = arr1End IfEnd IfNextEnd WithEnd Sub在B1中输入或粘贴下列公式=TRIM(MID(SUBSTITUTE(A$1,";",REPT(" ",100)),ROW(A1)100-99,100))下拉填充1光标移到需要换行的内容前，2同时按住alt加回车键就可以换行了。

2、alt+enter 强制换行。

本文到这结束，希望上面文章对大家有所帮助。