Question

我正在开发一些VBScript，它将来自某个目录中的一堆excel文件的数据组合在一起。所有这些excel文件都包含10-20个包含无用信息的合并单元格。

如何告诉它在开头只删除合并的单元格？

谢谢，

安德鲁

解决方案：

Sub RemoveMergedCells()
    For Each Cell In Range("A1:Z10")
        If Cell.MergeCells = True Then
            Set objRange = Cell.EntireRow
            Cell.Delete
        End If
    Next
End Sub

Answer 1

试试这个。（在此示例中，它仅检查第1行到第10行以及列到Z的列）

Sub RemoveMergedCells()
    For Each Cell In Range("A1:Z10")
        If Cell.MergeCells = True Then
            Cell.UnMerge
            Cell.ClearContents
        End If
    Next
End Sub

Answer 2

可能会这样做：

cell.EntireRow.Delete shift:=xlDown

我把它放在错误的地方;你应该将上面的代码用hstay发布的代码包装起来。

删除包含合并单元格的前几行

2 个答案: