은 VBA를

Question

Set rngFound = Rows(5).Find("*", Cells(Columns.Count, 5), xlFormulas, , xlByColumns, xlNext) 

에 동적 행의 첫 번째 비 빈 셀 값을 검색하는 방법 위의 코드는 형식 불일치 오류 친절 (13)

내가 잘못 뭐하는 거지 조언, 또는 다른 방법을 제안을 제공합니다 같은 일을합니다. 코드의 주석 내부

Answer 1

아래의 코드를 시도 설명 :

Dim rngFound As Range 
Dim LastCol As Long 
Dim nonBlankCell As Variant 

With Worksheets("Sheet1") ' <-- modify to your sheet's name 
    ' -- get last column in a specific row by using the Find function -- 
    Set rngFound = .Rows(5).Find(What:="*", Lookat:=xlPart, LookIn:=xlFormulas, _ 
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) 

    If Not rngFound Is Nothing Then ' Find was successful 
     LastCol = rngFound.Column ' get last Column with data 
     nonBlankCell = rngFound.Value 
    End If 

End With 

Answer 2

Cells(5, Columns.Count).End(xlToLeft)와 Cells(Columns.Count, 5) 당신은 또한 찾으려면이

Sub Find_Cell() 
    Dim rngFound As Range 
    Set rngFound = ThisWorkbook.Sheets("Sheet1").Rows(5).Find(What:="*", LookIn:=xlValues) 

    If rngFound Is Nothing Then 
     MsgBox "All cells are blank." 
    Else 
     MsgBox "First Cell Address: " & rngFound.Address 
     MsgBox "First Cell Value: " & rngFound.Value 
    End If 
End Sub 

을 시도

Set rngFound = Rows(5).Find("*", Cells(5, Columns.Count).End(xlToLeft), xlFormulas, , xlByColumns, xlNext) 

를 얻기 위해 교체 공백이 아닌 수식을 갖는 비어 있지 않은 셀, 0 대신사용 LookIn:=xlFormulas