Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để tự động chèn một hàng trống mới bằng Nút lệnh trong Excel?

Trong nhiều trường hợp, bạn có thể cần phải chèn một hàng mới trống vào vị trí được chỉ định trong trang tính của mình. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách tự động chèn một hàng trống mới bằng cách nhấp vào Nút lệnh trong Excel.

Chèn một hàng trống mới tự động bằng Nút lệnh


Chèn một hàng trống mới tự động bằng Nút lệnh

Bạn có thể chạy mã VBA sau để chèn một hàng mới trống bằng cách nhấp vào Nút lệnh. Hãy làm như sau.

1. Đầu tiên, bạn cần chèn một nút lệnh. Vui lòng bấm vào Nhà phát triển > Chèn > Nút lệnh (Điều khiển ActiveX). Xem ảnh chụp màn hình:

2. Sau đó, vẽ Nút lệnh vào trang tính mà bạn cần thêm hàng mới, nhấp chuột phải vào Nút lệnh và nhấp Bất động sản từ menu chuột phải.

3. bên trong Bất động sản hộp thoại, nhập văn bản được hiển thị của Nút lệnh vào Chú thích hộp dưới Phân loại rồi đóng hộp thoại.

Bạn có thể thấy văn bản hiển thị của Nút lệnh được thay đổi như ảnh chụp màn hình bên dưới.

4. Bấm chuột phải vào Nút lệnh một lần nữa, rồi bấm Mã Chế độ xem từ menu chuột phải.

5. Sau đó Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng thay thế mã gốc bằng mã VBA bên dưới vào cửa sổ.

Mã VBA: Tự động chèn hàng mới trống bằng Nút lệnh

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Chú thích: Trong mã, CommanButton1 là tên của Nút lệnh bạn đã tạo.

6. nhấn Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ. Và tắt Chế độ thiết kế theo Nhà phát triển tab.

7. Nhấp vào Nút lệnh đã chèn, và Kutools cho Excel hộp thoại bật lên. Vui lòng nhập một số hàng nhất định mà bạn muốn thêm một hàng mới trống, sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Sau đó, hàng mới trống được chèn vào một vị trí cụ thể của trang tính của bạn như hình ảnh chụp màn hình bên dưới. Và nó giữ nguyên định dạng ô của ô trên.


Các bài liên quan:


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (22)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bất cứ ai có thể tư vấn về cách tôi có thể sửa đổi điều này để tự động thêm hàng mới vào cuối bảng excel?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
bạn đã tìm thấy câu trả lời?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đang sử dụng mã này nhưng nó không hiển thị các công thức từ hàng trước đó, bạn có thể giúp tôi không.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kim thân mến,

Vui lòng chèn một Bảng với phạm vi mà bạn sẽ chèn các hàng trống bên trong. Sau đó, khi chèn hàng mới, công thức sẽ tự động đưa xuống.

Trân trọng, Crystal
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
bạn có thể cung cấp một ví dụ? Không theo những gì bạn đang nói ở đây. Thanks
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Vui lòng chuyển đổi phạm vi của bạn thành một phạm vi bảng để tự động đưa công thức xuống khi chèn các hàng mới. Xem ảnh chụp màn hình:
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang gặp vấn đề tương tự như Kim - Khi trang tính không được bảo vệ, nó sẽ thêm hàng có định dạng chính xác và công thức chính xác. Sau khi trang tính được bảo vệ, nó sẽ không sao chép các công thức. Có suy nghĩ gì không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Michelle thân mến,
Theo mặc định, một trang tính được bảo vệ không cho phép chèn hàng trống.
Do đó, mã VBA không thể hoạt động trong trường hợp đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để thêm nút Chèn hàng và để các hàng mới giữ các ô được hợp nhất / định dạng như chúng nằm trong phần còn lại của bảng không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Simon,
Xin lỗi có thể giúp giải quyết vấn đề này được nêu ra. Cám ơn bạn đã góp ý.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để hàng mới giữ nguyên định dạng của hàng bên dưới thay vì hàng bên trên không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Tarl,
Xin lỗi có thể giúp giải quyết vấn đề này được nêu ra. Cám ơn bạn đã góp ý.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vâng, tôi đã chơi với kịch bản và nó phù hợp với tôi. Bạn chỉ cần thêm số hàng bạn muốn (tôi đã chọn hàng 6), nhưng tôi sẽ bị sốc nếu nó được phép xuất bản.

Private Sub CommandButton1_Click ()
Dim rowNum dưới dạng số nguyên
On Error Resume Next
Hàng (rowNum & "6"). Chèn Shift: = xlDown
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
có thể chèn nhiều hàng trang cùng một lúc bằng cách nhấp vào này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Đoạn mã dưới đây có thể giúp bạn giải quyết vấn đề. Xin vui lòng có một thử.

Private Sub CommandButton1_Click ()
Dim xIntRrow dưới dạng số nguyên
Dim rowNum dưới dạng số nguyên
On Error Resume Next
rowNum = Application.InputBox (Nhắc: = "Nhập Số hàng mà bạn muốn thêm hàng:", _
Title: = "Kutools cho excel", Loại: = 1)
xIntRrow = Application.InputBox (Nhắc: = "Nhập số hàng bạn muốn chèn", _
Title: = "Kutools cho excel", Loại: = 1)
Hàng (rowNum + 1 & ":" & rowNum + 1) .EntireRow.Resize (xIntRrow) .Insert Shift: = xlShiftDown

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
có thể tạo trong một trang tính khác không? Tôi thực sự cần điều đó
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub AddNewRow ()



Private Sub CommandButton1_Click ()

ActiveSheet.Unprotect Password: = "1234"



Làm mờ mySheets

Dim i As Long



mySheets = Array ("Sheet2")



Đối với i = LBound (mySheets) Đến UBound (mySheets)

Với Trang tính (mySheets (i))

.Range ("B10"). EntireRow.Insert Shift: = xlDown

.Range ("B10: H10"). Borders.Weight = xlThin

Kết thúc với

Tiếp theo



Mật khẩu ActiveSheet.Protect: = "1234"



End Sub

Tôi không biết nếu điều này sẽ làm việc cho bạn. Nó hoạt động khá tốt cho tôi. Tôi thậm chí còn để lại các ô không được bảo vệ mà bạn có thể nhập dữ liệu và các công thức vẫn hoạt động. Tôi đã mất cả ngày để tìm ra nó. thay thế "1234" bằng bất kỳ mật khẩu nào bạn cảm thấy thích, "Sheet2" bằng Trang tính bạn đang làm việc và nhập phạm vi bạn muốn.
Đầu tiên, mã bỏ bảo vệ trang tính, thêm hàng và bảo vệ trang tính.
kiongakamau@gmail.com
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi

Tôi đã sử dụng mã nhưng muốn thêm các hàng có công thức, do đó tôi đã thêm dòng cuối cùng để có thể thêm các hàng có công thức.
Tuy nhiên, trong tệp excel của tôi và trong cột "F", tôi có một văn bản có thể được nhập theo cách thủ công và sẽ khác trong các trường hợp khác nhau. Do đó, tôi muốn thêm các hàng bên dưới hàng tham chiếu với việc giữ các công thức và giá trị trong tất cả các ô ngoại trừ ô từ cột "F" mà tôi muốn được sao chép làm trống!
Bạn có thể vui lòng giúp tôi với những gì tôi nên thêm vào mã bên dưới để có thể để trống các ô của cột "F" bất cứ khi nào tôi thêm một hàng với mã này?
cảm ơn trước!

Private Sub CommandButton1_Click ()
Dim xIntRrow dưới dạng số nguyên
Dim rowNum dưới dạng số nguyên
On Error Resume Next
rowNum = Application.InputBox (Nhắc: = "Nhập Số hàng mà bạn muốn thêm hàng:", _
Title: = "Kutools cho excel", Loại: = 1)
xIntRrow = Application.InputBox (Nhắc: = "Nhập số hàng bạn muốn chèn", _
Title: = "Kutools cho excel", Loại: = 1)
Hàng (rowNum + 1 & ":" & rowNum + 1) .EntireRow.Resize (xIntRrow) .Insert Shift: = xlShiftDown
Hàng (rowNum) .Resize (xIntRrow + 1) .FillDown

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào mẹ!
Mã VBA sau đây có thể giúp ích cho bạn. Hãy thử một lần. Cảm ơn bạn.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220707
    Dim rowNum As Integer
    Dim xRg1, xRg2 As Range
    
    On Error Resume Next
    
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
    Rows((rowNum - 1) & ":" & (rowNum - 1)).Copy
    Rows(rowNum & ":" & rowNum).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("F" & rowNum).Value = ""
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Caros colegas, após pesquisar (khốn nạn) na net não bộ não điều khiển ô atalho, comando, código, nada, nada, que eu rida usar para inserir em uma macro APENAS uma forma de inserir uma linha ABAIXO da célula ativa. Isto porquê se eu gravar o endereço da célula, ele não muda, fica semper na mesma célula e as seguintes não vão ficar corretamente abaixo, e se eu usar um endereço de célula fixo, linha tem que ser inserida acima, mas não formata da forma desejada, que seria o formato das linhas de cima.

Acho que o código tồn tại, só não encontro, já lều várias formas, selecionando um fixo, subindo uma linha e pedindo para inserir após, mas as seguintes não funcionam de acordo.

Alguém poderia me ajudar?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
... Testei os códigos acima, mas, como se trata de pessoas que vão usar, não é viável os box que pedem a linha ea quantidade, não dá ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Criei uma linha e nomeei como spotB,
Mudei a altura da linha para 0,01 para ocultá-la (apenas por estética).
Criei um botão:
Application.Goto Reference: = "spotB"
Lựa chọn.EntireRow.Insert

Sự cố giải quyết vấn đề.

Obrigado pelos códigos a Mah e crystal, mas eu tinha 8 títulos para phân tách, cada um inserindo linhas quando needário ao usuário, e não queria nenhuma pergunta sobre quantidade de linhas, os usuários não leem perguntas biểu tượng sáo ngữ em OK, depois reclamam .. .
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL