[已解决]请教老师，清除几个合并单元格的内容，一直报错1004，麻烦老师帮忙看看

ibm003 · 发表于 2021-9-12 23:11

本帖最后由 ibm003 于 2021-9-12 23:55 编辑

Worksheets("表格1").Range("A8:A17,L8:L17").MergeArea.ClearContents

如上，用Range("L8")，这样是没有问题的，A8-A17,L8-L17都是合并过的单元格，目的是实现清除A8-A17,L8-L17的内容，请老师帮忙指点一下，万分感谢！

最佳答案

月排行榜 / 总排行榜

AmoKat

2021-9-13 13:56

本帖最后由 cutecpu 于 2021-9-13 14:28 编辑

合併儲存格不能分開單格處理

For Each r In Range("A8:A17,L8:L17")
Range(r.MergeArea.Address).ClearContents
Next

當然也可以給空值

Worksheets("Sheet1").Range("A8:A17,L8:L17") = ""

跳转到最佳答案楼层

lisongmei · 发表于 2021-9-12 23:40

MergeArea：返回一个 Range 对象，该对象代表包含指定单元格的合并区域。
意思就是：你只能选择合并单元格所包含的其中一个单元格.MergeArea.单元格区域没有MergeArea属性。
纯个人理解。

lisongmei · 发表于 2021-9-12 23:43

官方解释：
备注

MergeArea 属性只应用于单个单元格区域。

ibm003 · 发表于 2021-9-12 23:57

lisongmei 发表于 2021-9-12 23:43
官方解释：
备注

请问怎么才能实现我的需求呢

风林火山 · 发表于 2021-9-13 08:44

lisongmei老师说了，只应用于单个单元格区域。把你代码中的MergeArea这个删掉试试

ibm003 · 发表于 2021-9-13 13:49

风林火山发表于 2021-9-13 08:44
lisongmei老师说了，只应用于单个单元格区域。把你代码中的MergeArea这个删掉试试

老师，因为是合并过的单元个，去掉MergeArea会提示，无法对合并的单元格进行此操作

我把附件传上来了，麻烦老师再帮忙看看

AmoKat · 发表于 2021-9-13 13:56

这个最佳答案由 AmoKat 给出，感谢 AmoKat 的回答。

单击隐藏图章

本帖最后由 cutecpu 于 2021-9-13 14:28 编辑

合併儲存格不能分開單格處理

For Each r In Range("A8:A17,L8:L17")
Range(r.MergeArea.Address).ClearContents
Next

當然也可以給空值

Worksheets("Sheet1").Range("A8:A17,L8:L17") = ""

lisongmei · 发表于 2021-9-13 16:41

ibm003 发表于 2021-9-12 23:57
请问怎么才能实现我的需求呢

Range("A8:A17,L8:L17").ClearContents
直接这样清空不就完了。。。为啥还要循环去，或者去写个MergeArea呢。

		自动登录	找回密码
密码			注册

[已解决]请教老师，清除几个合并单元格的内容，一直报错1004，麻烦老师帮忙看看

评分