Excel搜索空单元格，检查条件，编写文本

Question

我一直在Excel 2010中进行一些基本的VBA编程，但是一段时间以来，我一直在努力应对这一挑战。 基本上，我的工作表的格式是这样的（实际上，它有62列和行=给定月份中的天数）：

列A将被隐藏，但在一些公式中使用。 第15行显示该电台是24/7（全部）还是仅星期一至星期五（MF）开放。 显示的值是任意计数。 但是，空白计数表示存在问题，除非...工作站为MF和

我需要获取代码以标识开放MF的站点，然后填写任何特定的Sat。 或Sun（针对该电台），其单词为“ closed”。 然后搜索下一个为MF的电台并重复该过程。

最初，我的代码从一个实际值开始，然后使用几个activecell.offset函数查找空单元格，然后检查条件，但无法解决。 然后，我尝试从站点名称或时间表行中进行检查，但是我也无法使多个if / nested偏移量语句起作用。

我将非常感谢您提供的任何帮助或见解，它们将为我展示最佳方法。 我真的不需要执行此操作的代码，我只需要一个伪代码演练，除非您足够友好地可以写出代码。

谢谢你的帮助！

Answer 1

我之前也遇到过类似的问题。 我已将其修改为您的电子表格：

Dim d As Long, s As Long
d = 1 'weekdays column
s = 40 'status row

Dim r As Long, c As Long
r = ActiveSheet.Cells(Rows.Count, d).End(xlUp).Row
c = ActiveSheet.Cells(s, Columns.Count).End(xlToLeft).Column

Dim i As Long, cell As Range
i = 0

Dim days() As Long
For Each cell In Range(Cells(1, d), Cells(r, d))
    If cell.Value = "Sat" Or cell.Value = "Sun" Then
        ReDim Preserve days(i)
        days(i) = cell.Row
        i = i + 1
    End If
Next cell

For Each cell In Range(Cells(s, 1), Cells(s, c))
    If cell.Value = "M-F" Then
        For i = LBound(days) To UBound(days)
            Cells(days(i), cell.Column).Value = "closed"
        Next i
    End If
Next cell