데이터 채우기에 "currentregion"을 사용할 때 수식 기반 열을 무시합니다.

Question

직장 동료가 사용하기 위해 비용 보고서 양식을 작성하려고하는데 문제가 발생했습니다.

양식은 스프레드 시트에서 다음 빈 행을 찾은 다음 해당 행에 데이터를 씁니다. 문제는 내 시트의 처음 세 열이 수식 기반이며 스프레드 시트 전체에 걸쳐 아래로 끌어 당기는 것입니다. "currentregion"속성을 사용하고 있기 때문에 양식이 비어 있고 입력에 의존한다고해도 모든 수식 뒤에 새 세부 정보가 쓰여 있음을 의미합니다. 다음은 데이터 입력 코드입니다 (더 많은 내용이 있지만 관련 부분입니다).

Rowcount = Worksheets("Data Entry").Range("D1").CurrentRegion.Rows.Count 

With Worksheets("Data Entry").Range("D1") 
    .Offset(Rowcount, 0).Value = Me.txtDOY.Value 
    .Offset(Rowcount, 1).Value = Me.cboClient.Value 
    .Offset(Rowcount, 2).Value = Me.cboProject.Value 
    .Offset(Rowcount, 3).Value = Me.cboType.Value 
    .Offset(Rowcount, 4).Value = Me.txtDescription.Value 
    .Offset(Rowcount, 5).Value = Me.txtAmount.Value 
    .Offset(Rowcount, 6).Value = Me.txtMiles.Value 
    .Offset(Rowcount, 7).Value = Me.txtRate.Value 
End With 

I는 (식 계 열에서 현재 영역을 차단) 열 C와 D 사이에 빈 열을 입력하여 이에 대응 할 수 있었던하지만이 그것을하는 로터리 방법이며 난잡 보인다. 전체 테이블을 하나의 연속 된 블록으로 남겨 둘 수있는 깨끗한 방법이 있습니까? 나는 그것을 rowcount 속성을 통해 가정하지만 그것을 다르게 프로그램하는 방법을 알아낼 수 없습니다.

Answer 1

가정 D. 열에서 마지막으로 인구 행을 찾아보십시오 코드 ... 문제의 워크 시트 (즉, "나"아래의 코드에 무엇)의 코드 모듈에

With Worksheets("Data Entry") 
    Rowcount = .Cells(.Rows.Count, 4).End(xlUp).Row 
End With