使用VBA在第三行中找到第一列空单元格

正如标题所示，我需要在表格的每第三行中找到第一列空行的单元格。使用VBA在第三行中找到第一列空单元格

它看起来像这样：

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

我需要从另一片到每个（第三）行写入数据。代码的那部分是好的，我检查了它。但是，出于某种原因，这个代码不工作：

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

来源

2015-05-04 Jano Jursa

我认为在工作表中只有一个第三行。你确定你不是故意要找到每张纸的第三行中的第一个空列吗？或者 - 每隔三行（即第3行，第6行，第9行等）填写第一个空列。 –

是的，你是对的。我的意思是第一列，其中第三行的单元格为空 –

它不清楚你的问题是什么，但这会发现每三排在第一个空白单元格，并更改为你分配一个值。

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

来源

2015-05-04 15:05:22 cherdarchuk

谢谢，但它不是我想要做的。在整数g中，我需要在每第三行有第一列的空白单元格的数量。（5，g）（8，g）（11，g）...它们全部是空的 –

g =范围（“1：1”）偏移量（t-1）.Cells.SpecialCells（xlCellTypeBlanks）。柱 – cherdarchuk

使用VBA在第三行中找到第一列空单元格

回答

相关问题