按年归集按客户拆分多个工作表的数据求改代码

cherrix1

你那个图是浮动的图 ，先把图片嵌入到单元格 ， 然后用整行copy 即可， 你的图 不是单元 格所属的图片，所以复制不过去。   wps 里有插入-图片-嵌入到单元格， 如果不修改源数据 ，只有把shape 另外用代码复制过去了。  以下代码在wps 上好用 。
function test1 ()
{
        sourceRow = ActiveWorkbook.Sheets.Item(3).Rows.Item(3);
        sourceRow.Copy(ActiveWorkbook.Sheets.Item(4).Rows.Item(2));
}

cherrix1

这个图片是浮动图 ， 不是嵌入单元格的，插入-图片-嵌入单元格 ，用wps ， 然后可以可行拷贝，根据你提供的文档 ， 这是你数据 源的问题。

jaxpqh

cherrix1 发表于 2024-11-9 12:07
你那个图是浮动的图 ，先把图片嵌入到单元格 ， 然后用整行copy 即可， 你的图 不是单元 格所属的图片，所 ...

　　嵌入图片这一步我做了，由于我是用数组装入数据的，而不是直接复制，所以还是不能取到图片的数据，得到一个错误值（如下图）。

cherrix1

jaxpqh 发表于 2024-11-9 13:36
　　嵌入图片这一步我做了，由于我是用数组装入数据的，而不是直接复制，所以还是不能取到图片的数据，得 ...

用我上面wpsjs 的代码好用。 你试试 。 直接取一行的对象，然后用复制。

jaxpqh

jaxpqh 发表于 2024-11-9 13:36
　　嵌入图片这一步我做了，由于我是用数组装入数据的，而不是直接复制，所以还是不能取到图片的数据，得 ...

　　关键问题是我要按客户名称进行拆分表格，而同一客户的行并不在一起，而且拆分后的新工作表并不需要原始数据表所有列的数据，所以我只能用字典加数组来进行拆分，没办法用直接复制这个办法。

cherrix1

jaxpqh 发表于 2024-11-9 14:46
　　关键问题是我要按客户名称进行拆分表格，而同一客户的行并不在一起，而且拆分后的新工作表并不需要原 ...

复制到新表后把列再删除掉。你这数据 也都大不到哪里去。

wanghui834

楼主，直接筛选复制过去的，图片可以跟随复制过去，请查收，看是否符合你的要求
代码在模块2中，其中格式设置借用你现有的设置！

wanghui834

wanghui834 发表于 2024-11-9 19:33
楼主，直接筛选复制过去的，图片可以跟随复制过去，请查收，看是否符合你的要求
代码在模块2中，其中格式 ...

楼主，需要将这个字典的引用打开

wanghui834

wanghui834 发表于 2024-11-9 19:33
楼主，直接筛选复制过去的，图片可以跟随复制过去，请查收，看是否符合你的要求
代码在模块2中，其中格式 ...

第一个附件有2行被覆盖了，修改了一下！

jaxpqh

wanghui834 发表于 2024-11-9 20:28
第一个附件有2行被覆盖了，修改了一下！

　　出错了。