Wybierz pierwszą pustą komórkę w kolumnie F, począwszy od wiersza 1. (bez użycia przesunięcia)

Question

To jest jedno pytanie, z którym jestem bardzo zdezorientowany. Coz Szukałem tego tyle razy, ale zawsze znajduję kody związane ze znalezieniem ostatnio używanej lub pierwszej niepustej komórki. Próbowano pod poniższymi kodami. Kody diff zostały rozdzielone przez słowo "jeszcze"

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

nawet

Sub LastCellBeforeBlankInColumn() 

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

End Sub 

nawet

znaleźć bardzo ostatnio używany komórkę w kolumnie:

Sub LastCellInColumn() 

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

End Sub 

nawet

Znajdź ostatnia komórka, przed pustym rzędu:

Sub LastCellBeforeBlankInRow() 

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

End Sub 

nawet

znaleźć bardzo ostatnio używany komórkę rzędu:

Sub LastCellInRow() 

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

End Sub 

nawet

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

nawet

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

nawet

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

Jeśli wszystko próbują zrobić to wybrać pierwszą pustą komórkę w danej kolumnie, można dać to spróbować:

Kod:

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 

Przed wyborem - pierwsza pusta komórka do wyboru:

Po wybór:

Answer 2

Kodeks Sam jest dobry, ale myślę, że trzeba trochę korekty,

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 

Dzięki

Answer 3

W przypadku jakiegokolwiek jedno potknięcie s po tym jak mam tylko ...

Znajdź pierwszą pustą komórkę w kolumnie (używam kolumna D, ale nie chcą zawierać D1)

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

NextFree jest tylko nazwa, jeśli chcesz, możesz użyć kiełbasek.

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 

Jeśli jakakolwiek kolumna zawiera więcej niż jedna pusta komórka ciągle następnie ten kod nie będzie działać poprawnie

Answer 5

Jeśli wszystko próbują zrobić to wybrać pierwszą pustą komórkę w danej kolumnie, można dać to spróbować:

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

Answer 6

i dostosowany nieco kod każdego, zrobiliśmy to w funkcji, wykonane szybciej (array) i dodano parametry:

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

Jeśli szukasz jednej liniowej (bez nazw i komentarzy) Spróbuj

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