问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

Excel 如何在word中用vba删除有合并单元格的行

发布网友 发布时间:2022-04-22 10:33

我来回答

2个回答

热心网友 时间:2023-07-28 13:32

以下内容为wordVBA帮助中的相关解释:

访问表格行或列时产生的错误
如果要访问绘制表格中单独的行或列,而该表格又不统一,则会产生一个运行时错误。例如,如果活动文档中第一张表格的每列中具有不同数量的行,则使用下列指令将导致出错。

Sub RemoveTableBorders()
ActiveDocument.Tables(1).Rows(1).Borders.Enable = False
End Sub
要避免这种错误,可首先使用 SelectColumn 或 SelectRow 方法选定一列或一行中的单元格。选定单元格后,再使用 Selection 对象的 Cells 属性。下列示例选定第一张文档表格中的第一行。Cells 属性用于访问选定的单元格(第一行中的所有单元格)以删除边框。

Sub RemoveTableBorders()
ActiveDocument.Tables(1).Cell(1, 1).Select
With Selection
.SelectRow
.Cells.Borders.Enable = False
End With
End Sub

热心网友 时间:2023-07-28 13:32

从后面往前删除就可以保持前面的位置。

Private Function MyFunction9()
Dim I As Long, J As Long
For I = 1 To Range("A65536").End(xlUp).Row '最大行数
For J = Range("A65536").End(xlUp).Row To I + 1 Step -1 '这里的最大行数看似和上面一样,但是其实它是不一样的,I 的是固定的,J 的是不固定。
If Range("A" & I).Value = Range("A" & J).Value Then Rows(J).Delete
Next
Next
End Function
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
女生多大后可以不在长身高? 如何不用软件把手机投屏到电脑上手机屏幕怎样投放到电脑上 战时拒绝、故意延误军事订货罪既遂的处罚? 战时故意延误军事订货罪处罚标准 名师1+1导读方案:汤姆·索亚历险记目录 三星sm-g7200打开微信慢,无法正常收看,网速不慢。 笔记本电脑如何调亮屏幕亮度 大伙说说洗衣机要不要带烘干好 热烘干洗衣机怎么样 ef英语哪个好 公司网银上的同城票交和现代支付、网银互联有什么区别 在VBA中怎么合并单元格 网银互联账户是什么意思 vba解决合并居中单元格不能移动 vba如何遍历word合并单元格 什么是网银互联 广发银行网银互联有什么用 网银互联是做什么的? 年代厨卫的热水器质量怎么样,售后行不行啊? OPPOa8什么时候才可以更新系统7? 大成燃气热水器使用方法 percen燃气热水器使用方法 年代热水器怎么样 年代热水器的特点 年代容器式热水器需装电池吗? 请问,年代热水器怎么样 被别人拉黑后删除还能看到微信朋友圈 OPPOA8什么时候更新系统到7.0? 用地下水发面蒸出来的包子为什么发黄而且口感也不好? 发面孝母放多了蒸出的包子发黄还能吃吗 微信公众号举报多少次会封号 vba中怎么合并单元格? 在网吧租号玩吃鸡游戏登录跳出网银互联是什么意思 excel vba 自动合并单元格 网银互联系统状态不正常是什么问题 EXCEL,VBA中如何获取 合并单元格的值 收款人开户行没有参与网银互联系统是什么意思? 如何批量合并单元格? 404 Not Found word中表格有很多行,只合并列,不合并行? 工行个人网上银行中的“网银互联账户”在什么位置? 求一段VBA代码,合并相同单元格 javascript或VBA合并word表格单元格判断条件 Excel 如何在word中用vba删除有合并单元格的行 用VBA EXCEL大量合并单元格,合并单元格内容保留 Word VBA教程:Delete方法 如何用vba判断 word 单元格是否合并 word 单元格 合并 vba 404 Not Found 中外政客如何评价日本的? 如何看待国人评价日本人「有小礼而无大义」这句话?