從列1開始選擇第一個空單元格。（不使用偏移量）

Question

這是一個我很困惑的查詢。因爲我已經找了這麼多次，但是我總是找到與查找最後使用或第一個非空單元有關的代碼。 嘗試在下面的代碼。

Sub LastCellInColumn() 

Range("A65536").End(xlup).Select 

End Sub 

即使

：DIFF代碼已經由單詞 「甚至」

iRow = Worksheets("Sheet1").Cells(Rows.Count,1).End(XlUp).Row 

即使

Sub LastCellBeforeBlankInColumn() 

Range("A1").End(xldown).Select 

End Sub 

即使

查找列中的最後使用的細胞分離

查找最後一個單元格，前一個空白的行：

Sub LastCellBeforeBlankInRow() 

Range("A1").End(xlToRight).Select 

End Sub 

即使

查找一排的最後使用的細胞：

Sub LastCellInRow() 

Range("IV1").End(xlToLeft).Select 

End Sub 

即使

Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1 

即使

LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1 
Sheets("SheetName").Range("A" & LastRow).Paste 

即使

Dim FirstBlankCell as Range 
Set FirstBlankCell=Range("A" & rows.Count).end(xlup).offset(1,0) 
FirstBlankCell.Activate 

'Find the last used row in a Column: column A in this example 
Dim LastRow As Long 
Dim NextRow As Long 
With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row 
End With 
NextRow = LastRow + 1 

Answer 1

如果你正在試圖做的是選擇一個給定列第一空白單元格全部，你可以試試這個：

代碼：

Public Sub SelectFirstBlankCell() 
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer 
    Dim currentRowValue As String 

    sourceCol = 6 'column F has a value of 6 
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row 

    'for every row, find the first blank cell and select it 
    For currentRow = 1 To rowCount 
     currentRowValue = Cells(currentRow, sourceCol).Value 
     If IsEmpty(currentRowValue) Or currentRowValue = "" Then 
      Cells(currentRow, sourceCol).Select 
     End If 
    Next 
End Sub 

選擇之前 - 第一個空白單元格選擇：

選擇後：

Answer 2

山姆的代碼是好的，但我認爲這需要一些修正，

Public Sub SelectFirstBlankCell() 
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer 
    Dim currentRowValue As String 

    sourceCol = 6 'column F has a value of 6 
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row 

    'for every row, find the first blank cell and select it 
    For currentRow = 1 To rowCount 
     currentRowValue = Cells(currentRow, sourceCol).Value 
     If IsEmpty(currentRowValue) Or currentRowValue = "" Then 
      Cells(currentRow, sourceCol).Select 
      Exit For 'This is missing... 
     End If 
    Next 
End Sub 

感謝

Answer 3

如果任何一個絆倒小號在此，我只是...

查找一列中第一個空白單元格（我使用的列d，但不想包括D1）

NextFree = Range("D2:D" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row 
Range("D" & NextFree).Select 

NextFree只是一個名字，如果你願意，你可以使用香腸。

Answer 4

Public Sub SelectFirstBlankCell() 
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer 
    Dim currentRowValue As String 

    sourceCol = 6 'column F has a value of 6 
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row 

    'for every row, find the first blank cell and select it 
    For currentRow = 1 To rowCount 
     currentRowValue = Cells(currentRow, sourceCol).Value 
     If IsEmpty(currentRowValue) Or currentRowValue = "" Then 
      Cells(currentRow, sourceCol).Select 
     End If 
    Next 
End Sub 

如果任何列包含多個空單元格持續那麼這個代碼將不能正常工作

Answer 5

如果你正在試圖做的是選擇一個給定列的第一個空白單元格的所有，你可以給這是一個嘗試：

Range("A1").End(xlDown).Offset(1, 0).Select 

Answer 6

我適於一點大家的代碼，在功能使得它，使它更快（陣列）中，加入參數：

Public Function FirstBlankCell(Optional Sh As Worksheet, Optional SourceCol As Long = 1, Optional ByVal StartRow& = 1, Optional ByVal SelectCell As Boolean = False) As Long 
Dim RowCount As Long, CurrentRow As Long 
Dim CurrentRowValue As String 
Dim Data() 
If Sh Is Nothing Then Set Sh = ActiveSheet 

With Sh 

    rowCount = .Cells(.Rows.Count, SourceCol).End(xlUp).Row 
    Data = .Range(.Cells(1, SourceCol), .Cells(rowCount, SourceCol)).Value2 

    For currentRow = StartRow To RowCount 
     If Data(currentRow, SourceCol) = vbNullString Then 
      If SelectCell Then .Cells(currentRow, SourceCol).Select 
      'if selection is out of screen, intead of .select , use : application.goto reference:=.cells(...), scroll:= true 
      FirstBlankCell = currentRow 
      Exit For 
     End If 
    Next 

End With ' Sh 

Erase Data 
Set Sh = Nothing 
End Function 

Answer 7

如果你正在尋找一個襯墊（不包括名稱和註釋）試試這個

Dim iRow As Long 
Dim ws As Worksheet 
Set ws = Worksheets("Name") 

    'find first empty cell in column F (coming up from the bottom) and return row number 
iRow = ws.Range("F:F").Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1