Tự động tìm cột trống đầu tiên để dán dữ liệu vào.

[tuanfkt]

Chào cả nhà GPE!, mong mọi người giúp đỡ.
Tôi đã đọc đâu đó trên diễn đàn, tìm hàng đầu tiên đễ dán dữ liệu, vậy có thể áp dụng cho cột không?
Vì yêu cầu công việc tôi tạo 1 sheet giả sử Data chứa số liệu liên quan đến công tác thống kê, kiểm kê sau này, cột A đầu tiên là tên chủng loại hàng hóa, tiếp theo cứ mỗi lần phát sinh cột B sẽ chứa số lượng của lần phát sinh 1, cứ như vậy cho các lần tiếp theo cột B, C...Tức là cứ cột trống đầu tiên là dán dữ liệu vào. (giả sử dữ liệu là vùng ($D$1:$D$100) của sheet P_sinh.
Mong mọi người giúp đỡ, rất cảm ơn!

 

[SA_DQ]

Bạn tham khảo tại đây:

http://www.giaiphapexcel.com/forum/showthread.php?t=1641#10
(Tại mục Find the last used Column on a Worksheet)


Nếu vẫn chua thực hiện được thì sẽ có bạn giúp tiếp.

Thân ái!

 

[tuanfkt]

Ý mình là đặt con trỏ ở vị trí ô trống trên cùng của cột trống đầu tiên.
Cảm ơn tất cả mọi người giúp đỡ.

 

[SA_DQ]

Ý mình là đặt con trỏ ở vị trí ô trống trên cùng của cột trống đầu tiên.

Lúc đó macro sẽ phải sửa lại vầy, chắc vậy:

Sub SelectLastColumn()
 Dim LastColumn As Integer
 If WorksheetFunction.CountA(Cells) > 0 Then    
     LastColumn = Cells.Find(What:="*", After:=[A1], _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'    MsgBox Cells( 1 , LastColumn + 1).Address '
   Cells( 1 , LastColumn + 1).Select
 End If 
End Sub