[Kế toán] - Gộp GL của một tháng lại

[n0thing1988]

Chạy code

Sub ABC()
  Dim sh As Worksheet, shName$, Dic As Object
  Dim eRow&, n&, iR&

  Const Thang As String = "03" 'Thang tong hop

  Application.ScreenUpdating = False
  Set sh = Sheet5'Sheet Tong Hop
  iR = sh.Range("A" & Rows.Count).End(xlUp).Row
  If iR > 9 Then sh.Range("A10:AK" & iR).Clear
  Set Dic = CreateObject("scripting.dictionary")
  For n = 1 To Sheets.Count
    Dic.Add Sheets(n).Name, ""
  Next n
  For n = 1 To 31
    shName = Thang & "." & Format(n, "00")
    If Dic.exists(shName) Then
      With Sheets(shName)
        eRow = .Range("A" & Rows.Count).End(xlUp).Row
        If eRow > 9 Then
          iR = sh.Range("A" & Rows.Count).End(xlUp).Row
          If iR < 10 Then iR = 10 Else iR = iR + 1
            sh.Range("B" & iR).Resize(eRow - 9, 36) = .Range("A10:AJ" & eRow).Value
            sh.Range("A" & iR).Resize(eRow - 9) = shName
        End If
      End With
    End If
  Next n
  Application.ScreenUpdating = True
End Sub

Cảm ơn anh nhé. Code chạy rất tốt ạ.