请问excel怎么把一个单元格的内容分成上下两行呢?

发布网友发布时间：2022-04-23 01:54

我来回答

共11个回答

热心网友时间：2022-04-29 03:42

excel把一个单元格的内容分成上下两行，可在需要分行的位置使用组合键“Alt+Enter”实现强制换行。

方法步骤如下：

1、打开需要操作的EXCEL表格，双击需要分行的单元格，使之处于编辑状态，然后将光标停在需要换行的文本中间。

2、通过键盘组合键“Alt+Enter”即可将一个单元格的内容强制分为上下两行。

3、单独点击回车键，返回EXCEL表格，可发现excel把一个单元格的内容分成上下两行操作完成。

热心网友时间：2022-04-29 05:00

根据前边的哥们的VBA改编的我自己测试过可以用，是用来所有列都分行的，题主可以将第二个for循环指定到具体的列，希望对你有帮助。
Sub Macro1()
rr = Cells(1, 1).CurrentRegion.Rows.Count
rc = Cells(1, 1).CurrentRegion.Columns.Count
i = fi(Cells(1, 1))
For r = rr To 1 Step -1
Rows(r).Insert Shift:=xlDown
For pr = 1 To rc Step 1
Cells(r, pr) = Left(Cells(r + 1, pr), i - 1)
Cells(r + 1, pr) = Mid(Cells(r + 1, pr), i + 1)
Next pr
Next r
End Sub
Function fi(ct)
fi = 0
For i = 1 To Len(ct)
If Mid(ct, i, 1) = Chr(10) Then
fi = i
Exit For
End If
Next i
End Function

热心网友时间：2022-04-29 06:35

付费内容限时免费查看回答您好！很高兴为您解答

请稍等，我将全面解答您的问题

您好！很高兴为您解答

回答:1.先打开Excel，选择一个单元格输入一行文字，按回车键或者鼠标在其他地方点击一下；

2.然后鼠标右击这段文字，选择【设置单元格格式】

3.接着在【对齐】选项中勾选【自动换行】，点击【确定】

4.最后双击这段文字进入编辑状态，将光标放在需要分行的位置，同时按住【Alt+Enter】键即可。

很高兴为您解答，祝您生活愉快

热心网友时间：2022-04-29 08:26

在本表里面的C列选中，数据-分列-“分隔符号”下一步-选中“空格”-完成，
从新弄一表，讲刚才分列出来的两列数据复制到D列和E列
在A1列输入 =ROUNDUP((ROW()/2),0)
在B1 =IF(MOD(ROW(),2)=1,INDIRECT("D"&$A1),"") 下拉，会出现一个有数一格空白的情况，然后选选出所有的空白单元格，输入 =IF(MOD(ROW(),2)=0,INDIRECT("e"&$A2),"") 下拉
就基本上完成了.,, 后面中文那个就简单了哈.. 自己想一下哈

热心网友时间：2022-04-29 10:34

先再每一行后插入一行，可以按F5用定位条件选中空值后插入行实现，看你上面的表好像是做好了
在第4列插入一列(d列），在D2中输入"=left(C2,16)"，下一个单元格D3中输入"=right(c2,16)",选中D2、D3向下填充，做好后数值化，把第3列（C列）删除

热心网友时间：2022-04-29 12:59

你是要把显示为两行的一个单元格分成两行，左右单元格的内容不变吗？
试一下下面的宏：
Sub Macro1()
rr = Cells(1, 1).CurrentRegion.Rows.Count
rc = Cells(1, 1).CurrentRegion.Columns.Count
pr = 2 '要分行的列号,根据你的需求修改
For r = rr To 1 Step -1
i = fi(Cells(r, pr))
If i > 0 Then
Rows(r).Insert Shift:=xlDown
For c = 1 To rc
Cells(r, c) = Cells(r + 1, c)
Next c
Cells(r, pr) = Left(Cells(r + 1, pr), i - 1)
Cells(r + 1, pr) = Mid(Cells(r + 1, pr), i + 1)
End If
Next r
End Sub

Function fi(ct)
fi = 0
For i = 1 To Len(ct)
If Mid(ct, i, 1) = Chr(10) Then
fi = i
Exit For
End If
Next i
End Function

热心网友时间：2022-04-29 15:40

如果上下的数据中间有空格的话，可先用分列切开来，之后全选复制-选择性粘贴用里面的转置

热心网友时间：2022-04-29 18:38

设置单元格格式，在对齐选项卡上，选择自动换行，OK

热心网友时间：2022-04-29 21:53

输完第一行后按Alt+Enter就换行了