>source

나는 매크로와 VBA를 처음 사용합니다.

FR 피벗 시트에 피벗 테이블이 있고 최종 시트에 테이블이 있습니다. 피벗 테이블 데이터를 선택하고 vlookup을 사용하여 최종 시트의 테이블에 값을 채우고 싶습니다. 문제는 피벗 테이블이 동적 일 수 있다는 것입니다. 그래서 다음을 시도하고 있습니다.

Dim Range1 As Range
    
     With Sheets("FR Pivot")
            
        'Select cell - You can change as per your requirement
        .Range("E4").Select
        
        'Selects the current region
        Selection.CurrentRegion.Select
                
        
        Set Range1 = Selection
        
    End With
    Sheets("Final").Select
    Range("J7").Select
    ActiveCell.FormulaR1C1 = _
        "=IFNA(VLOOKUP([@[Row Labels]],Range1,2,0),""NA"")"

명명 된 범위 부분이 잘못되었다고 생각하지만 해결 방법을 알 수 없습니다. 매크로의 경우 작업을 기록한 다음 코드를 수정하여 동적으로 만드는 중이므로 선택 항목이 너무 많습니다.


  • 답변 # 1

    선택 사항 없음 :

    Dim addr 
    addr = Sheets("FR Pivot").Range("E4").Currentregion.Address()
    Sheets("Final").Range("J7").Formula = _
            "=IFNA(VLOOKUP([@[Row Labels]], 'FR Pivot'!" & addr & ",2,0),""NA"")"
    
    

관련 자료

  • 이전 python - QTableView에서 둥근 사각형으로 칠해진 이미지가 고정 된 것 같습니다
  • 다음 조건에 따른 C # Linq OrderBy