[已解决]合并单元格信息查找与提取-实际运用

山海风云轩

各位大佬，帮忙看看这个用VBA怎么操作

最佳答案

月排行榜 / 总排行榜

sam-wang

2021-12-25 17:39

sam-wang 发表于 2021-12-25 17:36
后面几句好像乱码了。>> 已貼上程式碼照片，請自行修改

就是请问，如何可以提升运行速度，后续可能会 ...

就是请问，如何可以提升运行速度，后续可能会遇到这类问题
>> 執行還可以0.1s

跳转到最佳答案楼层

山海风云轩

求助大佬帮忙

山海风云轩

每天看一下

山海风云轩

求助啊，求助

sam-wang

山海风云轩 发表于 2021-12-23 16:39
求助啊，求助

請測試看看，謝謝

山海风云轩

sam-wang 发表于 2021-12-24 09:25
請測試看看，謝謝

大佬，E列的最后3个1不能合并，是否合并要根据A列的序号(代表是否是一个原料，如果是一个原料，则可以合并)，也就是说：对应A列8、9、10的E列应该单独各自合并，谢谢大佬

sam-wang

山海风云轩 发表于 2021-12-24 09:32
大佬，E列的最后3个1不能合并，是否合并要根据A列的序号(代表是否是一个原料，如果是一个原料，则可以合 ...

請修改紅字部分，謝謝

With Sheet3
    .[a1].CurrentRegion.Offset(1, 0).EntireRow.Delete
    With .[a2].Resize(m, 8)
        .Value = Brr
        .Borders.LineStyle = xlContinuous
    End With
    For Each j In C
        For i = 1 To m
            T = Brr(i, 1)
            If xD.Exists(T) Then

山海风云轩

sam-wang 发表于 2021-12-24 10:52
請修改紅字部分，謝謝

With Sheet3

大佬果然厉害，我试着处理了一下，可以解决，但是不懂编辑逻辑，要复杂很多，而且运行较慢，

还有2个问题：
1、我希望把代码里面的sheet2换成sheet4，这时候他们的引用区域不一致；
2、效果展示的sheet3中，原来是从A2开始展示，现在希望从A4开始展示，
请问如何修改呢？

sam-wang

山海风云轩 发表于 2021-12-24 14:26
大佬果然厉害，我试着处理了一下，可以解决，但是不懂编辑逻辑，要复杂很多，而且运行较慢，

还有2个 ...

不好意思，怕解讀錯誤，可否附件需求結果(加以說明)，謝謝

sam-wang

山海风云轩 发表于 2021-12-24 14:26
大佬果然厉害，我试着处理了一下，可以解决，但是不懂编辑逻辑，要复杂很多，而且运行较慢，

还有2个 ...

是這樣嗎? 請確認，謝謝