비어 있거나 비어있는 셀인 경우에도 마지막 셀의 경계선

이 부분에서 각 행의 마지막 셀에 경계선을 만드는 데 문제가 있습니다. 마지막 셀에 값이 있으면 잘 작동합니다. 그러나 마지막 셀이 비어 있으면 경계선이 멈 춥니 다.

여기 내 코드가 있습니다

lastcell = Cells(Rows.Count, 19).End(xlUp).Address
lastrow = Cells(Rows.Count, 19).End(xlUp).Row

Rng = "A11:" & lastcell
Range(Rng).Select
With Selection
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeLeft).Weight = xlThin
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeTop).Weight = xlThin
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).Weight = xlThin
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeRight).Weight = xlThin
    .Borders(xlInsideVertical).LineStyle = xlContinuous
    .Borders(xlInsideVertical).Weight = xlThin
    .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    .Borders(xlInsideHorizontal).Weight = xlThin
    .VerticalAlignment = xlCenter
    .WrapText = True
End With

행의 마지막 셀이 비어 있더라도 마지막 데이터 값까지 연속 경계선을 계속 추가하고 싶습니다.

감사합니다.

microsoft-excel vba macros

— 사람
소스

마지막 행을 결정하기 위해 열 S에서 값을 찾고 있습니다. 비어 있으면 마지막이 아닙니다. 아마도 당신은 그것을 결정하기 위해 다른 열을보고 싶습니까?

— datatoo

내가 어떻게 할거야? 마지막 열이 S이기 때문에 이미 "lastcell"대신 "lastrow"를 사용하려고 시도했지만 오류가 발생합니다. 마지막 셀이 비어 있더라도 경계선을 계속 추가하기 위해 어떤 명령을 사용할지 모르겠습니다. 내가 VBA 매크로에 새로운 해요 미안 해요

— 이런

S가 비어있을 수 있지만 다른 셀에 항상 A와 같은 값이 있으면 A를보고 마지막 행을 결정할 수 있지만 비어있는 경우에도 S를 포맷 할 수 있습니다. 이 상황에서 가능합니까?

— datatoo