다른 크기의 테이블에 테이블 레이아웃 복사

Question

Excel에서 레이아웃을 여러 다른 테이블 (다른 길이)에 복사하려는 테이블이 있습니다. 각 열 제목을 변경할 때마다 (각 테이블에 3 개의 열이 있음). 나는 새로운 테이블 스타일을 정의하려했지만 기능이 너무 제한적이다. (머리글 제목, 총 마지막 줄의 두 번째 셀 등을 바꾼다.)

그래서 나는 이것을하는 가장 좋은 방법은 매크로를 만드는 것이라고 생각하지만 아무도 나를 어떻게 도와 줄 수 없습니까?

Answer 1

새로운 표 스타일을 정의해야한다고 생각합니다.

그런 다음 VBA에서 (VBA에서하고 ListObjects라고도 함) 모든 테이블을 통해 각 루프, 당신에게 루프를 만들고, 각 테이블에 스타일을 적용

Dim tbl as ListObject 

For Each tbl In Sheets("Sheet1").ListObjects 'Change Sheet1 to your worksheet name 
    tbl.TableStyle = "TableStyleMedium2" 'Change name to your table style 
    tbl.HeaderRowRange.Cells(1, 1) = "Value" 'Header 1st column 
    tbl.HeaderRowRange.Cells(1, 2) = "Value" 'Header 2nd column 
    tbl.HeaderRowRange.Cells(1, 3) = "Value" 'Header 3rd column 
    tbl.TotalsRowRange.Cells(1, 2) = "Value" '2nd cell in totals row 
Next