Union 提示要求对象

any1009

在做拆分表格的时候，发生了一些问题，附件中《求助》工作表内的<对应表>是拆分的对应条件，关键字以<yuliu>中“标题5”的值为判断依据，最终生成的是《客户1》、《客户2》...的工作簿，如《客户1》工作簿内应包含<yuliu>中“标题5”开头是352202、352203、352204的数据，详见附件中提供的《客户1》工作簿。
我写了代码，但是在运行时到“Set Dic(ds(zdkey)) = Union(Dic(ds(zdkey)), Cells(x, 1).Resize(, lai)) '把行连合起来”这句就报错，提示要求对象。
请各位老师解惑，帮忙修改下。
谢谢！

philijian

If Not ds.exists(zdkey) Then ds(zdkey) = "其他"
If Not Dic.exists(ds(zdkey)) Then
    Set Dic(ds(zdkey)) = Cells(x, 1).Resize(, lai)
Else
    Set Dic(ds(zdkey)) = Union(Dic(ds(zdkey)), Cells(x, 1).Resize(, lai))
End If

any1009

谢谢老师，可以生成了，可是为什么项目是数字的找不到关键字呢？全部都生成到“其他”里了。还有我之前的为什么就会报错呢？

philijian

因为你后面的数字是用left提取的，是字符串，而前面数组直接从工作表取的是数字，程序判断不是同一个值；为了统一，可以考虑前面存入ds字典的时候，用cstr函数转换成字符串；
之前报错是因为union(range1,range2)函数，要求括号里面的range得是实际存在的，不能为空；你只用if not ds.exists判断，如果是else的话，这时候Dic(ds(zdkey)仍是空的，union就会报错

any1009

谢谢老师，终于弄懂了。还有个问题，生成的表格中“信息”表拷贝是空的，说明没有拷贝，但是又没有报错，不知道是怎么回事了.
另外，生成的表格中“列表”里弱想以标题五进行排序的话，该怎么弄？
谢谢！

philijian

试试
ThisWorkbook.Worksheets("xinxi").Cells.Copy .Sheets("信息").Range("A1")
排序的话，用.sort方法，具体我很少用，可以学习论坛里香川群子的普及贴