Nguyễn Ánh Lâm
Nguyễn Ánh Lâm
Thảo luận 3 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 110 lượt xem

Em viết gộp nhiều sheet vào 1 sheet nhưng mà vòng lặp không chạy ạ Chỉ chạy

Dạ chào thầy, Em viết gộp nhiều sheet vào 1 sheet nhưng mà vòng lặp không chạy ạ. Chỉ chạy 1 sheet duy nhất, thầy giúp em với ạ

Sub Ivy()


Dim Shdau As Integer

Dim Shcuoi As Integer

Dim Dongcuoi As Long

Dim MaxRow  As Long

Dim i As Integer

Dim KC As Long

Dim Dongdau As Long




With Application

    .ScreenUpdating = False

    .Calculation = xlCalculationManual

    .DisplayAlerts = False

End With


With Sheet3

  Shdau = .Range("F1").Value

  Shcuoi = .Range("G1").Value

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

End With

    

For i = Shdau To Shcuoi

   Shdau = Sheet3.Range("F1").Value

   Shcuoi = Sheet3.Range("G1").Value

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

   MaxRow = ThisWorkbook.Sheets(i).Range("B" & Rows.Count).End(xlUp).Row

    Dongdau = 2

    KC = MaxRow - Dongdau + 1

  Sheet3.Range("A" & Dongcuoi + 1 & ":I" & Dongcuoi + KC).Value = Sheets(i).Range("A" & 2 & ":I" & MaxRow).Value


Next i



With Application

    .DisplayAlerts = True

    .ScreenUpdating = True

    .Calculation = xlCalculationAutomatic

End With


End Sub


Thảo luận 3 câu trả lời
Lượt xem 110 lượt xem
Vỗ tay vỗ tay
Nguyễn Ánh Lâm 09:09 - Sep 26, 2020

Chào bạn bạn có thể đẩy file lên được không?

Vỗ tay vỗ tay
Nguyễn Ánh Lâm 13:09 - Sep 26, 2020

https://drive.google.com/file/d/1sTv2...    dạ Thầy xem giúp em với ạ. 

Vỗ tay vỗ tay
Nguyễn Ánh Lâm 10:09 - Sep 28, 2020

Chào bạn bạn để các sheets theo thứ tự sau: sheet3, data,sheet2, sheet4, tại ô F1 để 1 và G1 để 4 rồi thử lại nhé. Lưu ý xóa hết các dữ liệu cũ

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông