Tự động chèn dữ liệu xuống từng hàng

[phanhongphuc]

Hi all,
Tôi có vướng mắc sau nhờ mọi người giúp đở
Giả sử tôi có 2 sheet: s1:nhập liệu, s2:data
Ở s1 tôi nhập liệu xong chạy marco thì nó tự động copy dữ liệu sang s2, mỗi lần copy data phải tự động xuống hàng. Ai giúp tôi câu lệnh tự động xuống hàng.
Cảm ơn nhiều.

 

[SA_DQ]

Bạn xem thêm trong file đính kèm

Option Explicit
Sub CopySpecial()
' Macro recorded 4/29/2008 by SaDQ
Dim lRow As Long

lRow = Sheets("HoSo").Range("B65432").End(xlUp).Row + 1
Range("C2:C11").Select
Selection.Copy
Sheets("HoSo").Select
Range("B" & lRow).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Sheets("Nhap").Select
End Sub

 

[lexthien]

Hi ! lão tiên sinh.

File bị nhiễm virut rùi.


Thân