如何根据家庭人口，把多行转成一行，同时删除其他家庭成员行?

pzh130 · 发表于 2010-9-12 22:19

求助：如何根据家庭人口，把多行转成一行，同时删除其他家庭成员行?

非常感谢 4楼,5分钟不到转换全部完成.

[ 本帖最后由 pzh130 于 2010-9-13 09:07 编辑 ]

liuyan819 · 发表于 2010-9-12 22:32

要用VBA来实现了

pzh130 · 发表于 2010-9-12 22:43

表格有几千行了，想通过邮件合并全都打印出来，就这样复制，粘贴，要搞得头都大了。小弟才刚学了几个简单的函数，哪敢用VBA啊，楼上的大哥，能不能帮一下忙啊？
按家庭人口排序，把相同家庭人口的先录制一个宏，做好一个再录制一个，行不行啊？

[ 本帖最后由 pzh130 于 2010-9-12 22:46 编辑 ]

yvhgydn · 发表于 2010-9-12 23:51

Sub fd()
For ran = [f65536].End(xlUp).Row To 2 Step -1
If Cells(ran, 6).Value = "户主" Then
      For i = ran + 1 To [f65536].End(xlUp).Row
         If Cells(i, 6) <> "户主" Then
            Cells(i, 6).Resize(1, 11).Cut Cells(ran, 6).Offset(0, 11 * (i - ran))
         Else
         Exit For
         End If
      Next i
End If
Next ran
Range([f2], [f65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

打印.rar (11.39 KB, 下载次数: 50)

又忆江南 · 发表于 2013-11-3 21:35

非常感谢分享,也在找呢

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

[已解决] 如何根据家庭人口，把多行转成一行，同时删除其他家庭成员行?