데이터를 필터링하고 표시된 셀에 수식을 삽입하는 매크로

Question

열 DL을 통해 워크 시트를 필터링하려고합니다. 그런 다음 볼 수있는 셀에 대해서만 수식을 Column DQ에 삽입해야합니다. 이전에 셀 DQ3에 대한 특정 참조를 원하지 않는다는 점을 제외하고는 아래 코드를 사용했습니다. 이 셀은 변경 될 수 있으므로 잘못된 수식이 복사되고 붙여 넣어집니다.

Dim LastRow As Long 
Dim FinalRow As Long 

LastRow = Range("B" & Rows.Count).End(xlUp).Row 
Range("DL2:DL" & LastRow).AutoFilter Field:=116, Criteria1:= _ 
    "ABC" 

Range("DQ3").Copy 

FinalRow = Cells(Rows.Count, "B").End(xlUp).Row 
Range("DQ3:DQ" & FinalRow).Select 
ActiveSheet.Paste 

나는 코드 아래 시도했지만 그것은 "런타임 오류 '1004'반환 : 응용 프로그램 정의 또는 개체 정의 오류 코드의 마지막 줄에 : 나는 또한 시도

Dim LastRow As Long 
Dim FinalRow As Long 

LastRow = Range("B" & Rows.Count).End(xlUp).Row 

Range("DL2:DL" & LastRow).AutoFilter Field:=116, Criteria1:= _ 
    "ABC" 

FinalRow = Range("B" & Rows.Count).End(xlUp).Row 
Range("DQ2:DQ" & FinalRow).FormulaR1C1 = "=(RC[-1]-RC[-2])" 

이 코드 :

Dim LastRow As Long 
Dim FinalRow As Long 


LastRow = Range("B" & Rows.Count).End(xlUp).Row 

Range("DL2:DL" & LastRow).AutoFilter Field:=116, Criteria1:= _ 
    "ABC" 


FinalRow = Range("B" & Rows.Count).End(xlUp).Row 
Set RNG = Range("DQ2:DQ" & FinalRow).SpecialCells(xlCellTypeVisible) 

RNG = "=(RC[-1]-RC[-2])" 

이 오류없이 실행되지만 열 DQ에 데이터를 기입하지 않습니다

을. 오류를 없애거나 원래 목표를 달성하는 방법에 대한 제안? 내가 뭘 하려는지는 잘 모르겠지만, 이것이 내가 갇혀있는 곳이다.

감사합니다.

Answer 1

아래 코드를 사용하여 목표를 달성 할 수있었습니다. 앞으로 다른 사람에게 동일한 문제가있는 경우 게시하십시오.

With ActiveSheet.Range("DQ2:DQ" & Cells(Rows.Count,2).End(xlUp).Row).SpecialCells(xlCellTypeVisible) 
    .Cells.FormulaR1C1 = "=((RC[-1]-RC[-2])"` 
    .Cells.FillDown` 
    Worksheets("WorksheetName").Columns(10).Calculate 

End With 

건배!