Hỏi tạo vòng lặp để copy

[ST-Lu!]

chào các anh

Em có một vùng dữ liệu và được đặt tên là DATA

Trong vùng DATA này sẽ có những cell rỗng ở trong
Em muốn tạo một vòng lặp sao cho Excell sẽ soát một lượt
--> gặp cell nào trong name DATA bị rỗng thì sẽ copy value cell ở bên trên xuống

Các anh giúp em học tập nhé

ST

 

[laulemroi]

ban xem thế này có được không!

 

[hoangdanh282vn]

chào các anh

Em có một vùng dữ liệu và được đặt tên là DATA

Trong vùng DATA này sẽ có những cell rỗng ở trong
Em muốn tạo một vòng lặp sao cho Excell sẽ soát một lượt
--> gặp cell nào trong name DATA bị rỗng thì sẽ copy value cell ở bên trên xuống

Các anh giúp em học tập nhé

ST

Mình gửi bạn code VD

Sub Diendulieu()
Dim Cell As Range
For Each Cell In Range("DATA")
    If Cell.Value = "" And Cell.Row > 1 Then
        Cell = Cell.Offset(-1)
    End If
Next
End Sub

 

[anhtuan1066]

chào các anh

Em có một vùng dữ liệu và được đặt tên là DATA

Trong vùng DATA này sẽ có những cell rỗng ở trong
Em muốn tạo một vòng lặp sao cho Excell sẽ soát một lượt
--> gặp cell nào trong name DATA bị rỗng thì sẽ copy value cell ở bên trên xuống

Các anh giúp em học tập nhé

ST

Cái này dể mà!
Ví dụ dử liệu của bạn nằm ở A110, vậy dùng code:

Sub AddVal()
 Dim TempRng As Range, Clls As Range
 Set TempRng = [A2:D10].SpecialCells(4)
 For Each Clls In TempRng
   Clls = Clls.Offset(-1)
 Next
End Sub

Chú ý: Dùng SpecialCells(4) sẽ nhanh hơn rất nhiều so với quét cả vùng dử liệu

 

[ST-Lu!]

Quả thực là rât hay. Em suốt ngày toàn phải copy tay
cám ơn các bác