Cách xóa 1 dòng trong nhiều sheet?

[kiendaica33]

Chào mọi người!
Mình có 1 bảng excel gồm nhiều sheet có form giống nhau. Ở ví dụ mình đính kèm chỉ có 3 sheet nhưng thực tế làm việc thì có rất nhiều sheet. Mình muốn xóa 1 dòng (ví dụ dòng thứ 4) trong tất cả các sheet. Nếu xóa từng sheet 1 thì rất mất thời gian. Mong mọi người chỉ giùm cách xóa nhanh! xin cảm ơn

 

[befaint]

- Ghi macro thực hiện xóa dòng ở một sheet bất kỳ, được một sub Macro1().
- Rồi cho Macro1 vào khúc này:

Sub XoaDong()
Dim ws as Worksheet
For each ws in thisworkbook.Worksheets
ws.select
Call Macro1 'Gọi tới Macro1 đã ghi được'
Next ws
End Sub

 

[be_09]

Chào mọi người!
Mình có 1 bảng excel gồm nhiều sheet có form giống nhau. Ở ví dụ mình đính kèm chỉ có 3 sheet nhưng thực tế làm việc thì có rất nhiều sheet. Mình muốn xóa 1 dòng (ví dụ dòng thứ 4) trong tất cả các sheet. Nếu xóa từng sheet 1 thì rất mất thời gian. Mong mọi người chỉ giùm cách xóa nhanh! xin cảm ơn

Thử cách này:
Click vào sheet PL01, nhấn nút Shift và click chọn sheet PL03.
Tiếp theo nhấn Ctrl, chọn dòng 4 và click phải chọn Delete xong nhấn OK.

 

[kiendaica33]

- Ghi macro thực hiện xóa dòng ở một sheet bất kỳ, được một sub Macro1().
- Rồi cho Macro1 vào khúc này:

Sub XoaDong()
Dim ws as Worksheet
For each ws in thisworkbook.Worksheets
ws.select
Call Macro1 'Gọi tới Macro1 đã ghi được'
Next ws
End Sub

Thử cách này:
Click vào sheet PL01, nhấn nút Shift và click chọn sheet PL03.
Tiếp theo nhấn Ctrl, chọn dòng 4 và click phải chọn Delete xong nhấn OK.

Đã làm được theo cả 2 cách. cảm ơn 2 bạn nhiều!