D
Deleted member 322
Guest
Mình có 2 bảng gống nhau 1 bảng nhập liệu 1 bảng lưu trữ như hình 2 bảng đều có cột 1 bị ẩn đi (hide).
Bạn cần đăng nhập để thấy hình ảnh
lít cứ tiếp dài thêm ra, di chuyển qua thì xoá luôn bên bảng nhập liệu ý bạn
Sub test()
Dim ws As Worksheet, dC&, dC1&
Set ws = Sheets("Sheet1")
Application.ScreenUpdating = False
dC = ws.Range("C" & Rows.Count).End(xlUp).Row ' xác định dòng cuối bảng 1
dC1 = ws.Range("F" & Rows.Count).End(xlUp).Row + 1 ' dòng cuối bảng 2
with ws
.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"Nh" & ChrW(7841) & "c tr" & ChrW(7867) ' lọc với từ bảng 1 với điều kiện nhạc trẻ
.Range("C7:C" & dC).Copy
.Range("F" & dC1).PasteSpecial ' dán vào ô cuối cùng của bảng 2
.ListObjects("Table1").Range.AutoFilter
.Range("B7:C" & dC).ClearContents ' xóa dữ liệu bảng 1
end with
Application.ScreenUpdating = True
End Sub
Nói chung bài này Yêu cầu ban đầu đã không rõ ràng rồi nếu vậy bạn hãy chờ thành viên khác giúp đỡ mình xin dừng ở đây.mình muốn delete ListRows selection không phải .ClearContents
Selection.ListObject.ListRows.Delete
tên nhạc sĩ ở cột bị ẩn phải chuyền qua cùng rows với tên bài hát nhạc trẻ chứ
Selection.ListObject.ListRows.Delete nếu ListRows liền nhau thì được
Range("B7:C" & dC)
excel 2016 không cho delete ListRows không liền nhau
Bạn thử thao tác tay lọc nhạc trẻ sau đó Ctrl+a chọn tất cả nhạc trẻ delete không được.
phiên bản excel 2019 thì được.
mình muốn dùng 2016 mà vẫn delete Table1.ListRows.nhạc trẻ hehe.
Bạn cần đăng nhập để thấy hình ảnh
Không rõ ràng thì phải xác nhận, đó là nguyên tắc làm việc.Nói chung bài này Yêu cầu ban đầu đã không rõ ràng rồi nếu vậy bạn hãy chờ thành viên khác giúp đỡ mình xin dừng ở đây.
Cảm ơn anh đã nhắc nhở.Không rõ ràng thì phải xác nhận, đó là nguyên tắc làm việc.
Tự ý hiểu rồi code, vừa mất thời gian, vừa cảm thấy công sức làm ra không có ý nghĩa.
Thành viên pipi này chưa bao giờ trình bày dễ hiểu cả. Tôi thường bỏ qua bài viết của thành viên này.