Chào các ban,
Mình có dữ liệu như ở Data. Mình cần lấy những dữ liệu >0 như bên sheet1. Các bạn giúp mình nhé. Công thức hoặc macro đều được.
Cảm ơn rất nhiều.
Merry Christmas!
Sub tao() Sheets("Sheet1").Range("A4") = "SAP" k = 5 For i = 3 To 6 For j = 5 To 25 If Sheets("Data").Cells(j, i) > 0 Then Sheets("Sheet1").Cells(k, 1) = Sheets("Data").Cells(j, 1) Sheets("Sheet1").Cells(k, 2) = Sheets("Data").Cells(4, i) Sheets("Sheet1").Cells(k, 3) = Sheets("Data").Cells(j, i) k = k + 1 End If Next Next End Sub