求助

君梦 · 发表于 2012-12-1 16:06

  A列：A1: 20110919
         A2： 20120718怎么变成B列：B1:2011
                                                            0919
                                                      B2：2012
                                                               0718

vs2010 · 发表于 2012-12-1 16:20

A列为原始数据

B1=MID(INDIRECT("A" & INT((ROW()+1)/2)),IF(MOD(ROW(),2),1,5),4)

复制代码

向下拉

hhjjpp · 发表于 2012-12-1 16:34

b1公式=replaqce(a1,5,,char(10))
并把b1设置为自动换行

君梦 · 发表于 2012-12-1 16:54

vs2010 发表于 2012-12-1 16:20
A列为原始数据向下拉

先谢谢了，不过你提供的公式确实是分行了，但是显示在不同的单元格里面，我说的是在同一个单元格里面的分行显示，还请再帮助考虑一下

vs2010 · 发表于 2012-12-1 17:09

Sub test()
maxRow = Sheet1.[A65535].End(xlUp).Row
For r = 1 To maxRow
Cells(r, 1) = Left(Cells(r, 1), 4) & Chr(10) & Right(Cells(r, 1), 4)
Next
End Sub

复制代码

公式搞不定了只能VBA

		自动登录	找回密码
密码			免费注册