DÙng VBA cũng được anh àĐọc thấy tất cả các sheet thì.........cthức thì ăn không nổi rồi!
Sub dotim()
Dim arr, kq(1 To 1000, 1 To 5) As Variant, i, j, k As Long, ws As Worksheet
For Each ws In Worksheets
With ws
If .Name <> "do tim" Then
arr = Range(.[B5], .[b60000].End(3)).Resize(, 6).Value
For i = 1 To UBound(arr)
If arr(i, 3) <> "" Then
If arr(i, 3) Mod 2 > 0 And arr(i, 3) Mod 5 > 0 Then
k = k + 1
For j = 1 To 5
If j = 1 Then
kq(k, j) = arr(i, j)
Else
kq(k, j) = arr(i, j + 1)
End If
Next j
End If
End If
Next i
End If
End With
Next
With Sheets("do tim")
.[c6:g1000].Clear
.[c6].Resize(k, 5) = kq
.[c6].Resize(k, 5).Borders.Weight = xlThin
End With
End SubLỌc toàn bộ những cây có chiều dài lẻ bạn à (nghĩa là những cây <>000)
Vậy là coi G2 sheet "do tim" không tham gia tính toán
Public Sub TongHopTK()
Dim DL, Ws As Worksheet, kq(1 To 1000000, 1 To 5), r As Long, i
For Each Ws In Worksheets
If Ws.Name <> "do tim" Then
DL = Ws.UsedRange
For r = 4 To UBound(DL)
If DL(r, 3) <> "" And DL(r, 3) Mod 1000 <> 0 Then 'Sửa thành mod 1000 cho sát với yêu cầu (3 số 0 )
i = i + 1
kq(i, 1) = DL(r, 1): kq(i, 2) = DL(r, 3): kq(i, 3) = DL(r, 4)
kq(i, 4) = DL(r, 5): kq(i, 5) = DL(r, 6)
End If
Next r
End If
Next Ws
Sheets("do tim").Range("C6", Sheets("do tim").Range("G1000000").End(xlUp)).ClearContents
Sheets("do tim").Range("C6").Resize(i, 5) = kq
End SubGiờ em muốn áp dụng vào file thật có tất cả 27 cutting list thì phải sửa chổ nào hả anh?
