excel - Excel VBA检查行范围内的3个单元格包含一个字符串

Question

我有一个 Range("S4:U72") ，我需要确保任一列中只有文本。因此，它不能在同一行的 2 列或更多列中包含文本。

我知道我可以使用“对于选择中的每个单元格”并且我知道我可以使用 WorksheetFunction.CountA("S4:U4") > 2

我只是不知道如何将 2 放在一起，以便将公式应用于表中的每一行。

例子

标签： excelvba

Answer 1

我终于解决了：

Dim rng As Range, row As Range, cell As Range

Set rng = Range("S4:U72")

For Each row In rng.Rows
  For Each cell In row.Cells
    If WorksheetFunction.CountA(Range(row.Cells.Address(0, 0))) > 1 Then
        MsgBox "You can only assign one value to a row"
    End If
  Next cell
Next row