Tạo mục lục và tổng hợp tự động (1 người xem)

[dinhkien85]

Nhờ các bác giúp đỡ.
E có 1 file excel với nhiều Sheet. Em muốn tạo sheet mục lục tự động và trong sheet mục lục đó lại lấy dữ liệu tương ứng ở các sheet.
Em cảm ơn!

 

[saobekhonglac]

Nhờ các bác giúp đỡ.
E có 1 file excel với nhiều Sheet. Em muốn tạo sheet mục lục tự động và trong sheet mục lục đó lại lấy dữ liệu tương ứng ở các sheet.
Em cảm ơn!

Xem đúng ý bạn chưa. Khi thêm sheet thì cứ bấm refresh rồi kéo công thức xuống.

 

[dinhkien85]

Xem đúng ý bạn chưa. Khi thêm sheet thì cứ bấm refresh rồi kéo công thức xuống.

Đúng ý em ạ. Cảm ơn bác nhé

 

[nguyenthuy13388]

Nhờ các bác giúp đỡ.
E có 1 file excel với nhiều Sheet. Em muốn tạo sheet mục lục tự động và trong sheet mục lục đó lại lấy dữ liệu tương ứng ở các sheet.
Em cảm ơn!

Xem code bạn nhé:

Sub mucluc()
Dim Sh As Worksheet, a As Long

Sheets("Mucluc").Range("A5:C5000").Clear
For Each Sh In Worksheets
    If Sh.Name <> "Mucluc" Then
        a = a + 1
        With Sheet4 'Sheets("Mucluc")
            Lr = .Range("B5000").End(xlUp).Row + 1
            .Range("B" & Lr).Value = Sh.Name
            .Range("A" & Lr).Value = a
            .Range("C" & Lr).Value = Sh.Range("C2")
            .Hyperlinks.Add Anchor:=.Range("B" & Lr), Address:="", SubAddress:="'" & Sh.Name & "'!A1", TextToDisplay:=.Range("B" & Lr).Value
        End With
        With Sh
            .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="'Mucluc'!A1", TextToDisplay:="Quay ve"
        End With
    End If
Next
End Sub

 

[dinhkien85]

Xem code bạn nhé:

Sub mucluc()
Dim Sh As Worksheet, a As Long

Sheets("Mucluc").Range("A5:C5000").Clear
For Each Sh In Worksheets
    If Sh.Name <> "Mucluc" Then
        a = a + 1
        With Sheet4 'Sheets("Mucluc")
            Lr = .Range("B5000").End(xlUp).Row + 1
            .Range("B" & Lr).Value = Sh.Name
            .Range("A" & Lr).Value = a
            .Range("C" & Lr).Value = Sh.Range("C2")
            .Hyperlinks.Add Anchor:=.Range("B" & Lr), Address:="", SubAddress:="'" & Sh.Name & "'!A1", TextToDisplay:=.Range("B" & Lr).Value
        End With
        With Sh
            .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="'Mucluc'!A1", TextToDisplay:="Quay ve"
        End With
    End If
Next
End Sub

Quá hay bác ạ. Cảm ơn bác nhé!