如何将单元格中的数据拆分多行，谢谢！

zjian310 · 发表于 2012-5-11 16:42

本帖最后由 zjian310 于 2012-5-11 17:16 编辑

大家好，小弟是Excel菜鸟，有一个问题请教大家，我想把J列中包含多条数据的单元格进行拆分成多行，一个单元格只包含一条数据，其他列的数据重复，谢谢！

cool_honey · 发表于 2012-5-11 16:44

多少举个列子撒，或者上传个附件

amyalien · 发表于 2012-5-11 16:53

数据-分裂——固定宽度——你自己任意画线就可以了。。

rongtian2010 · 发表于 2012-5-11 16:59

分列就比较常见，分行就真是未见过，等高手吧

goodlong · 发表于 2012-5-11 17:08

本帖最后由 goodlong 于 2012-5-11 17:11 编辑

复制j2单元格中两个数字之间的空格，替换：查找内容为你复制的空格，替换内容为：alt+10----全部替换（alt+10操作方法是：按住键盘alt键，然后先后按小键盘1再按0，松手就ok）

然后复制到word中再复制回来

既然已经就索性 · 发表于 2012-5-11 17:13

goodlong 发表于 2012-5-11 17:08
复制j2单元格中两个数字之间的空格，替换：查找内容为你复制的空格，替换内容为：alt+10----全部替换（ ...

高手啊，楼主这回应该能满意了

yaozong · 发表于 2012-5-11 17:41

本帖最后由 yaozong 于 2012-5-11 18:04 编辑

Private Sub CommandButton1_Click()
Dim i, n, k
Application.ScreenUpdating = False
On Error Resume Next
For i = [j65536].End(3).Row To 2 Step -1
n = UBound(Split(Cells(i, 10), " "))
Cells(i, 1).Offset(1, 0).Resize(n, 13).Insert shift:=xlDown
Cells(i, 1).Offset(1, 0).Resize(n, 13) = Cells(i, 1).Resize(1, 13).Value
For k = 1 To n
Cells(i + k, 10) = Split(Cells(i, 10), " ")(k)
Next
Cells(i, 10) = Split(Cells(i, 10), " ")(0)
Next
Application.ScreenUpdating = True
End Sub

yaozong · 发表于 2012-5-11 17:44

本帖最后由 yaozong 于 2012-5-11 18:10 编辑

参考附件。。

yaozong · 发表于 2012-5-11 18:33

带分行后复原。。。

lpclimber · 发表于 2012-7-11 16:36

yaozong大侠分享的vba代码很好用,谢谢!

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

[求助] 如何将单元格中的数据拆分多行，谢谢！

评分

评分

评分

浏览过的版块