如何删除有合并单元格的表格的某一整行

batmanbbs

RT

编写一个关于删除表格 1.单元格中的空段落、2.无内容的一整行、3.以及无内容的空表的小程序
发现只能处理没有合并单元格的表格
如何处理可能有合并单元格的表格呢？因为有合并单元格不能采用遍历一行的方式，如：for each myrow in .Rows 或者 For i = 1 To .Rows.Count，从而无法使用 myrow.delete 或者 Rows(i).delete

过客fppt

我的方法是将合并的单元格拆分，希望对你有帮忙

相见是缘8

过客fppt 发表于 2023-8-6 07:21
我的方法是将合并的单元格拆分，希望对你有帮忙

过客fppt 老师好！

在我这运行不了，不知抄错在哪里？请指教！谢谢！

Sub 找出拆分的单元格且合并()
Dim tbl As Table
Dim cell As cell
Dim i,j,errorCount,开始错误的行号,zonghang,zonglie AsInteger
Dim a As Double
Set tbl = ActiveDocument.Tables(1)
zonghang = ActiveDocument.Tables(1).Rows.Count
zonglie = ActiveDocument.Tables(1).Rows.Count
Forj = l To zonglie
On Error Resume Next '启用错误处理
Fori = 1 To zonghang
tbl.cell(i,j) Select
If Err.Number <> 0 Then
If errorCount = 0 Then
开始错误的行号 = i - 1
End If
'错误计数器 +1
errorCount = errorCount + 1
'清除错误
Err.Clear
End If
Nexti
On Error GoTo 0 '禁用错误处理
If开始错误的行号<> 0 Then
MsgBox ("合并的单元格在:第1个表格的第"&开始错误的行号&"行第"&j&"列,而且合并了"& errorCount+ 1&"行")
tbl.cell(开始错误的行号, j).Select
Call拆分单元格(errorCount+1,1)
'MsgBox ("已经合并:第1个表格的第"&开始错误的行号&"行第"&j&"列,合并了"& errorCount+1&"行")
Else
'MsgBox ("在第"&j&"列中未找到合并的单元格")
End If
errorCount = 0
Nextj
End Sub
Function拆分单元格(Rows,Coluns)
Selection.Cells.Split NumRows:=Rows,
NumColumns:=Coluns,MergeBeforeSplit:=False
End Sub


另外，老师能不能不用图片的形式发代码，直接发代码？
用图片形式发的代码，像我这样的外行，很容易抄错，抄错就会再问，也很浪费你的时间！

batmanbbs

谢谢，不过不用拆分合并的单元格也可以删除有合并单元格的一整行

过客fppt

相见是缘8 发表于 2023-8-6 08:40
过客fppt 老师好！

在我这运行不了，不知抄错在哪里？请指教！谢谢！

你好，点击我的头像，在我分享的主题中有代码版本的，复制一下就好

相见是缘8

过客fppt 发表于 2023-8-6 19:52
你好，点击我的头像，在我分享的主题中有代码版本的，复制一下就好

感谢老师！

找到了，代码OK！

Sub 找出拆分的单元格且合并()

    Dim tbl As Table

    Dim cell As cell

    Dim i, j, errorCount, 开始错误的行号, zonghang, zonglie As Integer

    Dim a As Double

   

    Set tbl = ActiveDocument.Tables(1)

   

    zonghang = ActiveDocument.Tables(1).Rows.count

    zonglie = ActiveDocument.Tables(1).Rows.count

    For j = 1 To zonglie

        On Error Resume Next ' 启用错误处理

        For i = 1 To zonghang

            tbl.cell(i, j).Select

            If Err.Number <> 0 Then

                If errorCount = 0 Then

                    开始错误的行号 = i - 1

                End If

                ' 错误计数器 +1

                errorCount = errorCount + 1

                ' 清除错误

                Err.Clear

            End If

        Next i

        On Error GoTo 0 ' 禁用错误处理

        If 开始错误的行号 <> 0 Then

            MsgBox ("合并的单元格在：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,而且合并了" & errorCount + 1 & "行")

            tbl.cell(开始错误的行号, j).Select

            Call 拆分单元格(errorCount + 1, 1)

'            MsgBox ("已经合并：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,合并了" & errorCount + 1 & "行")

        Else

'            MsgBox ("在第" & j & "列中未找到合并的单元格")

        End If

        errorCount = 0

    Next j

End Sub

Function 拆分单元格(Rows, Coluns)

    Selection.Cells.Split NumRows:=Rows, NumColumns:=Coluns, MergeBeforeSplit:=False

End Function

过客fppt

相见是缘8 发表于 2023-8-7 05:31
感谢老师！找到了，代码OK！Sub 找出拆分的单元格且合并()    Dim tbl As Table    Dim cell As cell     ...

不客气，一起探讨一起进步