프로그램에서 스프레드 시트의 다음 사용 가능한 행을 찾는 방법이 있습니까?

Question

스프레드 시트를 통해 정렬하는 프로그램을 작성하면 데이터의 마지막 줄을 찾은 다음 사용 가능한 다음 행의 새 텍스트를 복사/붙여 넣기 할 수 있습니까?

Answer 1

이 UDF는 첫 번째 매개 변수에서 시트 이름을 수신하고 행을 찾기 위해 열 문자를 사용하면 사용 가능한 다음 행을 반환합니다. 사용하려면

Function GetLin(Sht As String, Col As String) 
'officevb.com 
Dim UltLinPlan As Long 

'Get a last row in sheet 
UltLinPlan = Sheets(Sht).Range("A65536").End(xlDown).Row 

'Return this number 
GetLin = Sheets(Sht).Range(Col & UltLinPlan).End(xlUp).Offset(1, 0).Row 

End Function 

은 매우 간단합니다

dim x as long 

x=GetLin("Sheet1","A") 

이 샘플은 Sheet1의

에서 열 A의 다음 행을 반환

[]의

Answer 2

브루노의 방법은 이후 버전에서 작동하지 않습니다 Row 65536 이후에 데이터가 Column A 인 경우 Excel의 또한 시트 끝에 (버전에 관계없이) 데이터가있는 경우 xlUp을 수행하면 true 끝에서 건너 뜁니다.

이 방법은 가장 마지막 행을 빠르게 확인하는 일반적인 방법에 의존합니다.

Sub getlin2() 

Dim lin As Long 
Dim Sht As String 
Dim Col As String 

Col = "A" 
Sht = "Sheet1" 

lin = Sheets(Sht).Rows.Count 
If Sheets(Sht).Range(Col & lin).Value = vbNullString Then 
    lin = Sheets(Sht).Range(Col & Sheets(Sht).Rows.Count).End(xlUp).Offset(1, 0).Row 
End If 

MsgBox lin 

End Sub