Question

正如标题所说，我需要在工作表的每第三行找到第一个包含空单元格的列。

看起来像这样：

-----------
  ---------
    ------- 
     ------

我需要将另一张表中的数据写入每（第三）行。那段代码还可以，我查了一下。但是，出于某种原因，这段代码不起作用：

  For t = 5 To 500 Step 3
         u = 0
         For s = 5 To 500
            If IsEmpty(Cells(t, s)) And s > g And u = 0 Then
            g = s
            u = 1
            Exit For
            End If
         Next s
  Next t

Answer 1

不清楚你的问题是什么，但是这会在每第三行找到第一个空白单元格并将其更改为你指定的值。

Sub firstBlankEveryThirdRow()
    For t = 5 To ActiveSheet.UsedRange.Rows.Count Step 3
        Range("1:1").Offset(t - 1).Cells.SpecialCells(xlCellTypeBlanks)(1).Value = "Insert Your Value Here"
    Next t
End Sub

使用VBA在每第三行中查找包含空单元格的第一列

1 个答案: