VBA : 수식을 최신 행까지 내립니다.

Question

나는 이전 데이터를 제거하면서 매일 일반 데이터로 복사하는 시트가 있습니다. 복사 된 데이터는 수식이 열 F에있는 동안 열 A : E에 있습니다. 열 F의 수식은 열 A의 데이터를 기반으로합니다.

복사되는 데이터의 양은 날마다 달라지기 때문에 , 주어진 날짜에 붙여 넣을 행의 수를 자동으로 조정하는 VBA 수식이 필요합니다.

제안 사항?

감사합니다, 빅토르

Answer 1

여기에 내가 전에 워크 시트에 사용했던 하나입니다. 당신은 A1을 변경 할 경우 : E10 (또는 어떤 범위 당신이 거기 설정을), 그것을 만들려고 노력하는 것보다 쉽게, 수식

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Application.Intersect(Target, Me.Range("A1:E10")) Is Nothing Then 
     Range("F2").AutoFill Destination:=Me.Range("TableName[columnName]") 
    End If 
End Sub 

다음 테이블로 포맷 열 이름을 사용하여 풀다운 것 풀 레인지를 가지고 있는지 확인하십시오.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Set r = Range("F2:F" + CStr(Cells(Rows.Count, 1).End(xlUp).Row())) 

    If Not Application.Intersect(Target, Me.Range("A1:E10")) Is Nothing Then 
     Range("F2").AutoFill Destination:=r 
    End If 
End Sub