비활성 시트의 마지막 행을 식별 할 수있는 방법을 알고 싶습니다. 행 번호에 데이터 : 활성 시트에서 'LastRow + 1'. 그리고 활성 시트를 계속 제어하십시오.비활성 시트의 마지막 행 식별 및 활성 시트에서 마지막 + 1 행의 데이터 복사
저는 소규모 회사의 소유자이며 인벤토리를 모니터링하기위한 엑셀 시트를 만들고 싶습니다. 저는 VB에서 5 년 동안 코딩 작업을했습니다.하지만 지금은 매우 소량으로 기억하고 있습니다. 언급 된 작업에 대한 코드를 작성했는데 내 코드는 쓸모가 없다. :). 따라서 여기에 붙여 넣지 마십시오. 당신의 도움을 주셔서 감사합니다.
비활성 시트에 다음 행을 찾으려면 다음 VBA를 사용
Dim lastrow as long
lastrow = sheets("sheetname").cells.find("*", range("A1"), , , xlbyrows, xlprevious).row + 1
당신이 마지막에 빈 셀이있는 경우 루프 광고가에 findnext이를 사용하여 추가
Dim c as range, lastcell as long
Set c = sheets("sheetname").cells.find("*", range("A1"), , , xlbyrows, xlprevious)
If trim(c) = "" and not c is nothing then
Do
Set c = .FindNext(c)
Loop While trim(c) <> "" and not c is nothing
End If
Lastrow = c.row + 1
안녕하세요 .......... 코드 주셔서 감사드립니다 ....... .. 그것은 부분적으로 작동하고 있습니다. 마지막 행을 찾고있는 비활성 시트에는 마지막 몇 행에 공백이 있습니다. 따라서이 코드는 마지막 빈 행을 데이터가있는 행으로 계산하고 계산하는 동안 고려합니다. 이 코드를 조정하여 빈 항목 행을 행 유효 행으로 계산해서는 안됩니다. –
이 추가 코드를 사용해보십시오 – glh
Google에 추천 할 수 있습니다. 귀하의 질문에 사용할 수있는 많은 미리 준비된 샘플 코드가 있습니다. – Santosh
http://stackoverflow.com/questions/11169445/error-finding-last-used-cell-in-vba –