根据合并单元格区域自动填充

筱堇

根据B列合并单元格的区域，将C列的字符合并填入D列。谁能帮忙自动填充D列。

hefuqing

1. Sub main()
   
2. For i = 2 To Range("b65336").End(xlUp).Row '取A列最大行数，并从1到最大行数循环
   
3. If Range("b" & i).MergeCells = True Then '如果单元格为合并单元格
   
4. j = Range("b" & i).MergeArea.Count '从1到合并单元格的数量循环
   
5. For k = i To i + j - 1
   
6. r = r & Range("c" & k)
   
7. Next
   
8. Range("d" & i, "d" & i + j - 1).Merge
   
9. Range("d" & i, "d" & i + j - 1) = r
   
10. End If
    
11. r = ""
    
12. i = i + j - 1
    
13. Next i
    
14. End Sub

复制代码

筱堇

hefuqing 发表于 2018-8-28 14:14

非常感谢 点赞