如何提取合并单元格拆分后填充数据并提取

哈喽哈哈1

各位老师好，

        我的诉求是这样的：1、提取数据的时候，B列和C列的数据都是合并单元格，怎么样在粘贴前对单元格进行拆分，并填充内容（模块3）
                                     2、就是我提取的数据是有固定的行数的，如果大于这个行数后没有办法填充了，我试过查询最后一行的方式但是最后一行中有其他的数据（如图所示） 这是模块1里面的。 这是模块3里面的。以上有两个问题麻烦各位老师帮忙一下，非常感谢！事后小花花双手奉上！

哈喽哈哈1

有大佬帮一下忙嘛

蓝桥玄霜

把lastRow = 210改为：

1. arr = srcSheet.UsedRange
   
2.                 For i = 4 To UBound(arr)
   
3.                     If arr(i, 1) = "合计" Then lastRow = i
   
4.                 Next

复制代码

ykcbf1100

代码看上去象AI写的，都是直接对单元格操作的。
看懂得费不少时间，适合有闲的人来改。

哈喽哈哈1

ykcbf1100 发表于 2024-11-1 16:02
代码看上去象AI写的，都是直接对单元格操作的。
看懂得费不少时间，适合有闲的人来改。

是的，是Ai写的，感觉很复杂。能帮忙看一下怎么改嘛，麻烦辛苦一下

ykcbf1100

哈喽哈哈1 发表于 2024-11-1 16:24
是的，是Ai写的，感觉很复杂。能帮忙看一下怎么改嘛，麻烦辛苦一下

让别人来吧。
我从不改AI写的代码，因为我理解起来比较费劲。

哈喽哈哈1

有大佬辛苦帮忙看一下嘛h

林越洋

最快方法是先粘贴格式，再粘贴数据。

哈喽哈哈1

林越洋 发表于 2024-11-1 19:46
最快方法是先粘贴格式，再粘贴数据。

我试了一下还是不怎么行

哈喽哈哈1

蓝桥玄霜 发表于 2024-11-1 15:31
把lastRow = 210改为：

感谢蓝版，我把If arr(i, 1) = "合计" Then lastRow = i后面进行了-1问题得到了解决，是否辛苦一下蓝版帮忙对第一个问题进行指导一下