Điền dữ liệu vào dòng còn trống

[nguyenvanthao2002]

Xin anh chị giúp đỡ em cách điền dữ liệu vào ô còn trống giống dòng trên.Em xin cám ơn nhiều ạ.

 

[leonguyenz]

Xin anh chị giúp đỡ em cách điền dữ liệu vào ô còn trống giống dòng trên.Em xin cám ơn nhiều ạ.

Nếu ít thì bạn quét dòng trên ô trống đến hết dòng có ô trống nhấn Ctrl+D (FillDown).
Nếu nhiều thì dùng code VBA cho sheet này.
Nhấn Atl+F11 để xem code.
[gpecode=vb]
Private Sub Worksheet_Activate()
Dim iR As Integer, eR As Integer
eR = Range("A65535").End(3).Row
For iR = 1 To eR
If Cells(iR, 1) = "" Then
Cells(iR, 1).Resize(, 2).FillDown
End If
Next iR
End Sub
[/gpecode]

 

[Ba Tê]

Nếu ít thì bạn quét dòng trên ô trống đến hết dòng có ô trống nhấn Ctrl+D (FillDown).
Nếu nhiều thì dùng code VBA cho sheet này.
Nhấn Atl+F11 để xem code.
[gpecode=vb]
Private Sub Worksheet_Activate()
Dim iR As Integer, eR As Integer
eR = Range("A65535").End(3).Row
For iR = 1 To eR
If Cells(iR, 1) = "" Then
Cells(iR, 1).Resize(, 2).FillDown
End If
Next iR
End Sub
[/gpecode]

Hi hi!
Lúc này nghiện VBA rồi hả Leo?
Cái này trên GPE đã có hướng dẫn thủ công dễ ẹc mà
Ví dụ với dữ liệu trong file:
1/ Quét chọn A1:B43 - AutoFilter
2/ Chọn cột A hoặc B - lọc với điều kịện (Blanks)
3/ Dòng trống đầu tiên bây giờ là dòng 4.
Ô A4 gõ =A3, kéo xuống, kéo ngang
4/ Thoát AutoFiler.
5/ Híc híc híc 3 cái.
--------------
Nếu bước 3/ mà gõ =A3 nó ra kết quả là =A3 thì tự híc híc vài cái nghe!
Ẹc!