a列の次の空のセルを見つける

Question

ワークシートごとに数百のエントリを持つワークブックがあります。&次の空きセルを列で見つけるコードがあります。コードは1つのシートでは動作しますが、他のシートでは動作しません。私はそれが何かシンプルであることを知っていますが、間違っているとわかりません。

Private Sub CommandButton_Click() 
Dim ws As Worksheet 

Set ws = ActiveSheet 

For Each cell In ws.Columns(1).Cells 
    If Len(cell) = 0 Then cell.Select: Exit For 
Next cell 
End Sub 

Answer 1

を用いることであろう私が作成しましたモジュールは、行内の次のブランクセルを見つける。ここにコードはSub Macro_FIND_NEXT_BLANK_SPACE() If IsEmpty(ActiveCell.Offset(1)) Then ActiveCell.Offset(1).Select Else ActiveCell.End(xlDown).Offset(1).Select End If End Sub 私はサブコマンドを実行するコードを書いた。 Private Sub CommandButton14_Click() Call Macro_FIND_NEXT_BLANK_SPACE End Sub 私は彼らの支援のためにグループに感謝したいと思います。

Answer 2

あなたが以前のクリックで見つかった最後の空のセルを「記憶」する方法が必要です：

Public iROW As Long 

Sub CommandButton_Click() 
Dim ws As Worksheet 

Set ws = ActiveSheet 

For Each cell In ws.Columns(1).Cells 
    If cell.Row > iROW Then 
     If Len(cell) = 0 Then 
      cell.Select 
      iROW = cell.Row 
      Exit For 
     End If 
    End If 
Next cell 
End Sub 

代替はFind()とFindNext()