求助

君梦

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

vs2010

A列为原始数据

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

复制代码

向下拉

hhjjpp

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

君梦

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

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

vs2010

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

复制代码

公式搞不定了 只能VBA