Nhập dữ liệu bảng - Cách luôn có một hàng trống ở cuối bảng Excel


2

Tôi đang tạo một bảng tính Excel đơn giản để nhập dữ liệu bảng (bảng được tạo bằng tùy chọn "Định dạng dưới dạng bảng" - vài cột, có thể có hàng trăm hàng). Tôi muốn luôn có hàng cuối cùng của bảng trống và sẵn sàng để nhập dữ liệu (nếu không tôi không thấy danh sách thả xuống). Tôi khá chắc chắn rằng tôi đã thấy điều đó trong quá khứ, nhưng tôi không thể sao chép. Bất cứ ý tưởng làm thế nào tôi có thể làm điều đó? Lý tưởng nhất là không có VBA.

Câu trả lời:


2

Đây thường là phương pháp đơn giản nhất để mở rộng kích thước bảng của bạn trước cho nhiều hàng như bạn nghĩ bạn sẽ cần. Sắp xếp và công thức sẽ tiếp tục hoạt động như mong đợi.

  • Chọn bảng của bạn
  • Trong menu Công cụ Bảng / Thiết kế, bấm Thay đổi kích thước Bảng và chỉ định phạm vi dài hơn.

Ngoài ra, cách thủ công là chọn hàng cuối cùng trong bảng của bạn và thực hiện "Chèn hàng bên dưới" (hoặc sử dụng mũi tên nhỏ ở ô dưới cùng bên phải). Điều này có thể được tự động hóa bằng VBA nếu bạn quá thiên về mặc dù tôi thường thấy việc mở rộng bảng cũng thực hiện công việc tốt và giúp người dùng cuối dễ dàng xử lý hơn.


1

Chà, bỏ qua ô cuối cùng trong hàng cuối cùng mà bạn đang nhập dữ liệu sẽ tự động thêm một hàng mới, trống vào bảng. Điều này chỉ hoạt động nếu bạn không có một hàng tổng.

Có thể hiểu được, bạn muốn hàng mới, trống sẽ được tạo khi bạn bắt đầu chỉnh sửa ở hàng cuối cùng, thay vì khi bạn hoàn thành chỉnh sửa của mình, nhưng tôi không thể tìm ra cách để thực hiện điều đó.


0

Tôi không biết cách nào để làm điều đó mà không cần VBA, nhưng những điều sau đây được lấy từ blog The Scripting Guy trên TechNet. Bạn nên tham khảo bài viết trên blog về cách sử dụng nó, nhưng đó là cách tốt nhất mà tôi hiện đang biết.

Const xlCellTypeLastCell = 11

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Test.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.UsedRange
objRange.SpecialCells(xlCellTypeLastCell).Activate

intNewRow = objExcel.ActiveCell.Row + 1
strNewCell = "A" &  intNewRow

objExcel.Range(strNewCell).Activate

Xin lỗi Paul, đây không thực sự là thứ tôi cần. Giả sử tôi có một bảng có 5 mục (6 hàng - 1 tiêu đề + 5 dữ liệu). Tôi muốn xem hàng thứ 7 trống để khi người dùng nhập một mục mới, danh sách thả xuống và xác thực xảy ra dưới dạng loại người dùng.
Martin

OK, không vấn đề gì, tôi hy vọng người khác có thể giúp bạn!
Paul
Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookieChính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.