如何根據第一個單元格是否為空來有條件地格式化 Excel VBA 中的一行？

Question

我想做的很簡單，我只是沒有太多的 VBA / Excel 經驗知道怎么做。 我正在研究一個宏來做一些不同的事情，我只是停留在這一部分。

我想要做的是 go 通過我的所有行，如果行中的第一個單元格是空的，我想 select 整行並取消合並它。 我知道如果第一個單元格為空，則該行包含我想要取消合並的合並單元格。

我知道下面的這兩行將 select 第 2 行並取消合並，但我需要一種方法來循環遍歷我的數據並自動查找和取消合並行，因為行號每次都不會相同。

Rows("2:2").Select

Selection.UnMerge

我想做這樣的事情：

For (each row) {
   if (the first cell is empty) {
       UnMerge all cells in that row;
   }
}

我只是不知道如何在 VBA 語法中做到這一點。

任何幫助表示贊賞！

Answer 1

這應該可以完成這項工作。

Sub UnmergeRows()

    Dim R       As Long                 ' loop counter: rows
    
    With Worksheets("Sheet1")           ' change tab name as required
        ' "B" should be the longest column in the worksheet
        For R = 2 To .Cells(.Rows.Count, "B").End(xlUp).Row
            If IsEmpty(.Cells(R, 1)) Then .Rows(R).MergeCells = False
        Next R
    End With
End Sub