VBA Excel: 函数不适用于组合单元格

Question

我在合并单元格时遇到问题。

组合以下范围：G42:Q42、G43:Q43 依此类推，直到 G47:Q47

当单元格未按上述方式组合时，此代码工作正常，但当单元格合并时我无法使其工作

For Each cell In ventas.Range("G42:G47")
   If (cell.Value = "") Then cell.ClearContents
Next

我已经试过了，但是没有用：

For Each cell In ventas.Range("G42:Q47")
   If (cell.Value = "") Then cell.ClearContents
Next

Answer 1

合并的单元格也可以作为单个单元格处理。

说我结合 C3:G7 我可以运行

ActiveWorkbook.Sheets(1).Cells(3, 3).Value = "test"

单元格将显示“test” 您可以在左上角查找单元格名称

Answer 2

试试这个


Sub clearRange()
Dim c As Range

For Each c In ventas.Range("G42:Q47").Cells
    If c.MergeCells = True Then
        If c.MergeArea.Cells(1, 1) = "" Then c.MergeArea.ClearContents
    Else
        If c.Value = "" Then c.ClearContents
    End If
Next

End Sub

该代码检查单元格是否是合并的一部分，然后仅适用于第一个单元格。使用合并的单元格可能非常棘手。

VBA Excel: 函数不适用于组合单元格

VBA Excel: Function not working on combined cells

excel

merge

vba