Ví dụ như hình dưới , bạn có 2 Sheet : 2011 và 2012 , cần vào dữ liệu , mỗi lần hoàn thành một bản ghi bạn chỉ cần bấm nút Thêm bên cạnh , rồi tiếp tục đưa thêm danh sách khác . Cách thức tiến hành như sau .

Bạn cần tạo Macro với cách thức như sau  . Bấm Alt_F11 , chọn menu Insert > Module , sau đó copy nội dung như sau

Sub AddValues()

Dim i As Single

i = Worksheets("" & Range("D2")).Range("A" & Rows.Count).End(xlUp).Row + 1

Worksheets("" & Range("D2")).Range("A" & i & ":C" & i) = _

Worksheets("Data").Range("A2:C2").Value

Worksheets("Data").Range("A2:C2") = ""

End Sub

Data : là tên Sheet đầu tiên để vào dữ liệu vì thế phía trên chỉ là ví dụ và bạn có thể đổi tên nếu như bạn muốn . Có 2 Sheet : 2011 , 2012 vào Sheet cần đưa dữ liệu vào

Tiếp theo bạn cần tạo nút bấm bằng cách , bấm tab Developer > Insert > Button

Bạn chọn khu vực muốn tạo nút bấm và gán tên Macro là AddValue có sẵn

Bạn thay đổi tên nút tùy ý , trong ví dụ này có tên là Thêm

Trong ô D2 là nơi bạn tạo Data Validation để lựa chọn 2011 hoặc 2012 bằng cách chọn menu Data > Data Validation .

Trong phần Allows , bạn chọn List , trong phần Source bạn gõ 2011,2012 , là tên các Sheet rồi bấm OK

Như vậy bạn đã hoàn tất công việc và bây giờ chỉ cần gõ vào các ô tương ứng sau đó bấm nút Thêm để hoàn tất bản ghi này để tiếp tục đưa thêm nội dung khác .