2010-01-21 68 views
5

Nhấn Ctrl + Kết thúc trong Excel sẽ đưa bạn đến ô dưới cùng bên phải của trang tính.Làm mới lại ô "Cuối cùng" của Trang tính

Nếu bạn xóa các hàng hoặc cột cuối cùng và lưu sổ làm việc, ô cuối cùng này sẽ được cập nhật, cũng như thanh cuộn.

Tôi nhớ có một lệnh VBA một dòng mà bạn có thể chạy để cập nhật mà không phải lưu sổ làm việc, nhưng tôi không thể nhớ lệnh đó là gì - bạn có ý tưởng gì không?

+1

thử: 'ActiveSheet.UsedRange' nhưng nó thường không hoạt động – Qbik

Trả lời

13

Dưới đây là câu trả lời:

Sub x() 
    ActiveSheet.UsedRange 
End Sub 

Run này và ô cuối cùng sẽ được đặt lại.

+0

Không làm việc trong Excel 2013 - Cấp I được tạo một bảng tính với các chức năng ẩn và cruft khác , vì vậy một cái gì đó có thể xung đột. –

8

Tôi đã tìm thấy thứ gì đó luôn hoạt động để xóa các hàng trống đó. Bạn có thể biết khi nào “excel được sử dụng” excel đang sử dụng quá lớn và sẽ bổ sung thêm hàng trống khi bạn sử dụng thanh cuộn bên phải và nó vượt ra ngoài hàng cuối cùng của dữ liệu thực tế khi bạn cuộn xuống dưới cùng. Điều này sẽ gây ra thêm các bản ghi trống để được thêm vào bảng khi nó được nhập vào SQL.

Để loại bỏ chúng:

  1. Chọn toàn bộ hàng đầu tiên dưới dòng cuối cùng của dữ liệu. Nhấn Ctrl + Shift + Mũi tên xuống để chọn tất cả các hàng trống.
  2. Từ tab Trang chủ Chọn Xóa và sau đó Xóa tất cả từ menu Chỉnh sửa (hình ảnh của công cụ tẩy trắng xám).
  3. Nhấp chuột phải và chọn Xóa.
  4. Goto ô A1 trước rồi Lưu.
  5. Nhấn Ctrl + Home và sau đó Ctrl + End (Điều này sẽ đưa bạn đến ô cuối cùng chính xác trong phạm vi sử dụng (trên hàng trống).
  6. Nhấp vào Lưu nữa.
+1

nó không hoạt động với tôi – Qbik

+0

Laurent đã hỏi làm thế nào để làm điều đó trong VBA, không phải bằng tay. – TylerH

+0

Đó là chính xác những gì KHÔNG được thực hiện. Cách giải quyết để lưu tệp đã được nêu trong bài đăng gốc và câu hỏi là cách thực hiện mà không lưu. –

0

Giải pháp này hoạt động cho Excel 2013, nhưng cũng có thể hoạt động đối với hầu hết các phiên bản Excel gần đây:

  • Chọn trang tính nơi bạn muốn thay đổi ô cuối cùng và xóa bất kỳ hàng và cột nào chưa sử dụng
  • Nhấp vào Tệp - Tùy chọn - Tùy chỉnh Ribbon
  • Dưới tab chính, chọn hộp bên cạnh "Nhà phát triển", sau đó nhấp vào OK
  • trên băng cho nhà phát triển mà bây giờ xuất hiện, nhấp vào Visual Basic
  • ở góc trên bên trái, dưới Microsoft Excel Objects, nhấp chuột vào tấm Name nơi bạn muốn để buộc một refresh của ô cuối cùng của bảng
  • trong trình đơn, nhấp vào Chạy - Làm mới, sau đó đóng Visual Basic Window

Khi bạn nhấn Ctrl + End, ô cuối cùng của bạn bây giờ sẽ được làm mới.

0

Kiểm tra http://dmcritchie.mvps.org/excel/lastcell.htm#MakeLastCell, tìm thấy liên kết từ một câu hỏi tương tự.

Cách xa lớp lót đã quên, nhưng đã giải quyết được vấn đề cho tôi.

Cách khác;

  1. Bật tính toán thủ công (để giữ nguyên tham chiếu).

  2. tạo trang tính mới.

  3. Sao chép ô và Tên của trang tính cũ.

0

Đây là những gì tôi đã làm ... từ none những điều trên làm việc (thời gian này có nghĩa là, đó là nguyên nhân gây ra buồn mã này được chạy đẹp thì tất cả các đột ngột xlCellTypeLastCell hoàn toàn thất bại tôi.) Điều này sẽ chỉ làm việc nếu bạn mã hóa ô đầu tiên của vùng bạn muốn lấy ô cuối cùng ... ví dụ tôi đã dán các bảng dữ liệu vào một bảng gồm 12 - 40 cột và 60-90 hàng ... nhưng vì nó là một dán, nó luôn luôn bắt đầu trong tế bào A79 ...

Worksheets("Data_Import").Activate 
Range("A79").CurrentRegion.Select 
A = Selection.Rows.Count - 1 
B = Selection.Columns.Count - 1 
Selection.Offset(A, B).Resize(1, 1).Select 
Set DataEnd = Selection 

tôi cảm thấy buồn khi không sử dụng mát các tế bào đặc biệt chuyện, nhưng than ôi, nếu nó không hoạt động! thì tôi không thể sử dụng nó. : C

p.s. - Bạn cũng có thể ném vào một macro

ActiveSheet.Cells(Rows.Count, 1).End(xlUp).CurrentRegion.Select 
Các vấn đề liên quan