使用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在第三行中找到第一列空單元格

回答

相關問題