Gộp sheet, file excel theo danh sách (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Tôi tuân thủ nội quy khi đăng bài

Hoantk223

Thành viên mới
Tham gia
13/5/23
Bài viết
21
Được thích
1
Em đang có code để gộp nhiều sheet thành 1 Sheet. Nhưng hiện tại e có rất nhiều file giống như vậy, Để ko phải mở từng file 1 chạy code. Em muốn chạy theo danh sách trong file tổng, nhưng em vẫn chưa biết cách để sửa. Mọi người xem giúp em với ạ.
Sub Gop()
Dim J As Integer
Dim Lr As Long
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Data"
Sheets(2).Activate
Range("A4").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
Sheets(1).Range("H1") = "SoKH"
Application.ScreenUpdating = False
For J = 2 To Sheets.Count
Lr = Sheets(J).Range("A" & Rows.Count).End(xlUp).Row
Sheets(J).Range("H5:H" & Lr) = Right(Sheets(J).Range("A2"), 4)
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(4, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Sheets(1).Range("H").Formula = Right(Sheets(J).Range("A2"), 4)
Next J
Application.ScreenUpdating = True
End Sub
 

File đính kèm

  • Test1.rar
    Test1.rar
    172.8 KB · Đọc: 89
  • 1687407688262.png
    1687407688262.png
    174.7 KB · Đọc: 82
Web KT

Bài viết mới nhất

Back
Top Bottom