Làm đầy các ô trống trên bảng tính

[thuan2210]

Xin chào các anh chị. Em xin nhờ các a/c giúp em ạ.
Em có một sheet Input là lấy từ hệ thống về và 1 sheet là DATALOT là sheet đã điền dữ liệu vào các dòng trống vào.
Mong các anh chị chuyển đổi giúp em làm bang VBA với ạ.

 

[be_09]

Xin chào các anh chị. Em xin nhờ các a/c giúp em ạ.
Em có một sheet Input là lấy từ hệ thống về và 1 sheet là DATALOT là sheet đã điền dữ liệu vào các dòng trống vào.
Mong các anh chị chuyển đổi giúp em làm bang VBA với ạ.
View attachment 203389

Bạn kiểm tra thử, phải gán ở những chỗ tô màu hay không?

 

[Phuocam]

chuyển đổi giúp em làm bang VBA với ạ.

Thử:

Public Sub Test()
Dim lastRow As Long
Dim i As Long
Dim Arr()
With Sheets("INPUT")
lastRow = .Range("F" & Rows.Count).End(xlUp).Row
If lastRow < 3 Then Exit Sub
Arr = .Range("A3:E" & lastRow).Value
For i = 2 To UBound(Arr)
    If Arr(i, 1) = "" And Arr(i, 2) = "" And Arr(i, 3) = "" _
    And Arr(i, 4) = "" And Arr(i, 5) = "" Then
        Arr(i, 1) = Arr(i - 1, 1)
        Arr(i, 2) = Arr(i - 1, 2)
        Arr(i, 3) = Arr(i - 1, 3)
        Arr(i, 4) = Arr(i - 1, 4)
        Arr(i, 5) = Arr(i - 1, 5)
    End If
Next
.Range("A3").Resize(i - 1, 5) = Arr
End With
End Sub

 

[SA_DQ]

Chủ bài đăng giải thích giúp, sao file đưa lên khác với hình ở #1?
Trong file là cần chuyển đến các trường
[CODE MODEL], [MODEL], [LOT CODE], [LOT NO], [PCS], [m2]
Nhưng bên trang dữ liệu nguồn chỉ có 1 trường, đó là [Lot No]C C
CVậy các trường khác sẽ lấy từ đâu để đưa sang?

 

[thuan2210]

xin cảm ơn phuocam, be09 vàsa_dq ạ.

 

[khangkkn]

Bạn kiểm tra thử, phải gán ở những chỗ tô màu hay không?

mình củng có file cần làm tương tự như bạn trên. bạn có thể chỉ mình cách làm thế nào ko, ko cần VBA như cách bạn làm ấy. xin lổi file mình ko thể up lên được vì lý do bảo mật

 

[befaint]

file mình ko thể up lên được vì lý do bảo mật

Mật gì mật. Sao mình không biết có cái gọi là "giả định, giả dụ, thí dụ, ví dụ..." ấy.
Thật là abc, mình đổi thành xyz.
Thật là cơm, mình đổi thành mì tôm.
Thật là 100, mình đổi thành 200.

Vậy thôi.

 

[be_09]

mình củng có file cần làm tương tự như bạn trên. bạn có thể chỉ mình cách làm thế nào ko, ko cần VBA như cách bạn làm ấy. xin lổi file mình ko thể up lên được vì lý do bảo mật

Thì đưa cái File giả định như bài 7 befaint đã nêu.