Hướng dẫn excel vba delete rows using variables - excel vba xóa các hàng bằng cách sử dụng các biến

Tôi muốn xóa các hàng từ 2 đến z (z> 2). Tôi đã viết 2 phương pháp nhưng không hoạt động. Tôi đã tìm kiếm câu trả lời nhưng không tìm thấy một giải pháp.

'.Rows("2:" & z).Select  
.Range(Cells(2, 1), Cells(z, 10)).Select  
Selection.Delete Shift:=xlUp

Cảm ơn bạn trước.

Đã hỏi ngày 8 tháng 3 năm 2017 lúc 13:55Mar 8, 2017 at 13:55

2

Bạn cần chỉ định bạn muốn chọn các hàng có

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Hoặc cách sạch hơn nếu bạn trực tiếp sử dụng

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

Hoặc

.Rows("2:" & z).Delete Shift:=xlUp

Đã trả lời ngày 8 tháng 3 năm 2017 lúc 14:02Mar 8, 2017 at 14:02

R3uKR3uKR3uK

14.3k7 Huy hiệu vàng41 Huy hiệu bạc76 Huy hiệu đồng7 gold badges41 silver badges76 bronze badges

3

Bạn có thể sử dụng một dòng đơn giản này để xóa bất kỳ số lượng hàng nào bạn cần.

Rows("2:" & Z).Delete

Đã trả lời ngày 8 tháng 3 năm 2017 lúc 14:01Mar 8, 2017 at 14:01

1

        Sheets(i).Select
        Rows("62:180").Delete Shift:=xlUp

Rows(Var1:Var2).Delete Shift:=xlUp

Cú pháp thích hợp là gì?

Sự thật Excel

Bảng tính Mr là ai?

Dim x As Long, y As Long
x = 5
y = 10
Range(Cells(x, 1), Cells(y, 1)).EntireRow.Delete shift:=xlUp

    x = 5
    y = 10
    Rows(x & ":" & y).Delete

Cú pháp thích hợp là gì?

Trong bài viết này

• Xóa toàn bộ hàng hoặc cột
  • Xóa nhiều hàng hoặc cột
• Xóa các hàng trống / trống
  • Xóa hàng nếu ô trống
• Xóa hàng dựa trên giá trị ô
• Thêm các ví dụ về hàng và cột xóa
  • Xóa các hàng trùng lặp
  • Xóa các hàng bảng
  • Xóa các hàng được lọc
  • Xóa hàng trong phạm vi
  • Xóa các hàng đã chọn
  • Xóa hàng cuối cùng
  • Xóa cột theo số

Để xóa một cột theo số của nó, hãy sử dụng mã như thế này:

Xóa toàn bộ hàng hoặc cột

Hướng dẫn này sẽ trình bày các cách khác nhau để xóa các hàng và cột trong Excel bằng VBA.

Rows(1).Delete

Để xóa toàn bộ hàng trong VBA, hãy sử dụng dòng mã này:Delete method to delete a row.

Lưu ý rằng chúng tôi sử dụng phương thức xóa để xóa một hàng.Rows Object, you can reference rows based on their Range Object with EntireRow:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Tương tự như xóa toàn bộ cột, sử dụng các dòng mã sau:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Xóa nhiều hàng hoặc cột

Sử dụng cùng một logic, bạn cũng có thể xóa nhiều hàng cùng một lúc:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

hoặc cột:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Lưu ý ở đây, chúng tôi tham khảo các số / số / chữ cái cụ thể được bao quanh bởi các trích dẫn.

Tất nhiên, bạn cũng có thể tham khảo toàn bộ một phạm vi:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Lưu ý: Các ví dụ dưới đây chỉ thể hiện việc xóa các hàng, tuy nhiên như bạn có thể thấy ở trên, cú pháp gần như giống hệt nhau để xóa các cột.

Xóa các hàng trống / trống

Ví dụ này sẽ xóa một hàng nếu toàn bộ hàng trống:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Nó sử dụng chức năng bảng tính Excel: Counta.

Xóa hàng nếu ô trống

Điều này sẽ xóa một hàng nếu cột cụ thể trong hàng đó trống (trong trường hợp này là cột B):

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Xóa hàng dựa trên giá trị ô

Điều này sẽ lặp qua một phạm vi và xóa các hàng nếu một giá trị ô nhất định trong hàng đó nói rằng xóa xóa.

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Thêm các ví dụ về hàng và cột xóa

Mã hóa VBA được thực hiện dễ dàng

Ngừng tìm kiếm mã VBA trực tuyến. Tìm hiểu thêm về Automacro - Trình tạo mã VBA cho phép người mới bắt đầu mã hóa các quy trình từ đầu với kiến ​​thức mã hóa tối thiểu và với nhiều tính năng tiết kiệm thời gian cho tất cả người dùng!

Tìm hiểu thêm !!

Xóa các hàng trùng lặp

Mã này sẽ xóa tất cả các hàng trùng lặp trong một phạm vi:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Lưu ý Chúng tôi đặt cột: = 2. Điều này bảo VBA kiểm tra cả hai cột dữ liệu đầu tiên khi xem xét liệu các hàng có phải là trùng lặp hay không. Một bản sao chỉ được tìm thấy khi cả hai cột có giá trị trùng lặp.

Nếu chúng tôi đã đặt cái này thành 1, chỉ có hàng đầu tiên sẽ được kiểm tra các giá trị trùng lặp.

Xóa các hàng bảng

Mã này sẽ xóa hàng thứ hai trong bảng bằng cách tham chiếu ListObjects.

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

Xóa các hàng được lọc

Để chỉ xóa các hàng hiển thị sau khi lọc:

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

Lập trình VBA | Bộ tạo mã không hoạt động cho bạn!

Xóa hàng trong phạm vi

Mã này sẽ xóa tất cả các hàng trong phạm vi:

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

Xóa các hàng đã chọn

Mã này sẽ xóa tất cả các hàng đã chọn:

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

Xóa hàng cuối cùng

Điều này sẽ xóa hàng được sử dụng cuối cùng trong cột B:

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

Bằng cách thay đổi 2 thành 1, bạn có thể xóa hàng được sử dụng cuối cùng trong cột A, v.v.:

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

Xóa cột theo số

Để xóa một cột theo số của nó, hãy sử dụng mã như thế này:

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

Làm cách nào để xóa các hàng trong Excel dựa trên giá trị ô trong VBA?

Làm cách nào để xóa hàng trong excel với giá trị nhất định?

Làm thế nào để bạn tự động xóa hàng dựa trên giá trị ô?