Xin các cao thủ giúp đỡ, một đoạn code làm thế nào để tự động copy vào các ô trống. (2 người xem)

[chanquayxoan]

Mình có một file dữ liệu như sau "

Số ID Ngay thang Khoi Lương
0001 01/01/2008 1,000$
02/01/2008 2,000$
0002 03/01/2008 3000$
04/01/2008 4000$
0003 01/01/2008 1,000$
02/01/2008 2,000$


Do nhu cầu lọc dữ liệu tất cả các giao dịch của Số ID 001, tuy nhien giao dich thứ 2 lại không có số ID của 0001, vì vậy mình không thể filter ra được.
Muốn vậy phia làm động tác copy để bảng tính trên trở thành
Số ID Ngay thang Khoi Lương
0001 01/01/2008 1,000$
0001 02/01/2008 2,000$
0002 03/01/2008 3000$
0002 04/01/2008 4000$
0003 01/01/2008 1,000$
0003 02/01/2008 2,000$


XIn nhờ các cao thủ viết hộ một đoạn code hay công thức nào đó để có thể tự động copy xuống.
Mình gửi kèm file để các bạn có thể xem.

 

[Po_Pikachu]

Ở ô A3 bạn nhập công thức bên dưới rồi Fill xuống là xong. [A3]=IF(original!A3="",A2,original!A3) Thân.

 

[ndu96081631]

Nếu dử liệu ít, bạn làm theo Po_Pikachu cũng ổn rồi... Còn nếu không muốn tạo 1 sheet phụ thì dùng VBA nhé

Sub FillAll()
  Dim i As Long
  On Error GoTo Thoat
  With Application.InputBox("Chon vung can Fill", Type:=8).SpecialCells(4)
    For i = 1 To .Areas.Count
      .Areas(i).Value = .Areas(i)(0, 1)
    Next
  End With
Thoat:   Exit Sub
End Sub