[VBA] 마지막 열 수 알아내는 법

Sub Main()


Dim ColLen As Long
ColLen = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
MsgBox ColLen

End Sub

이렇게 A열의 마지막 행이나 B열의 마지막 행을 알고 싶을땐 위 내용을 쓰면 된다.

위 코드는 B열 행의 개수이고 A열은 2를 1로 바꿔주기만 하면 된다. 끄읏

 

Set deleted = sht.Rows("1:10").Find(What:=Trim("삭제"))
deleted.CurrentRegion.Rows.Count

일케하면 더 쉽넹 삭제 셀에 있는 row수 세는 것