dạ ,cám ơn anh, nhưng không phù hợp yêu cầu của em ạ
Bạn gửi file kèm ví dụ cụ thể chứ biết yêu cầu của bạn nằm ở dòng nào, cột nào mà viết code.
Bạn thử kiểm tra nhé.
Sub giatri_sauloc()
Dim rng As Range, vung As Range
If Sheet1.FilterMode Then
Set rng = ThisWorkbook.Worksheets("Sheet1").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
For Each vung In rng.Areas
vung.Value = vung.Value
Next vung
End If
End Sub
Dạ.em cám ơn anh ạ,
không được ạ, khi paste value nó không cho paste dòng khi đang lọc ạ
dạ ,em thử code của anh bị lỗi, anh xem giúp em và file em có nhiều sheets cấu trúc như vậy, anh có cách nào dùng phím tắt để thực hiện thao tác không ạ.
Sao không nói ngay từ đầu, để mình nghiên cứu tiếp vậy. Cấu trúc các sheets có giống hệt nhau không bạn. Không thì đưa cấu trúc file thật lên xem thế nào. (dữ liệu giả lập thôi).
Chọn vùng cần copy, nhẫn ctrl + D sau đó copy và dán 123 nhé
Mình thử thấy không được bạn ơi. Ctrl + D thì nó cho các dòng giá trị giống nhau hết còn gì.
Dạ. Cấu trúc giống nhau.cột cố định. Hàng các sheets bắt đầu cố định. Hàng kết thúc các sheet khác nhau ạ
Xem file . . . . .
Bạn thử kiểm tra lại.
dạ, đúng ý em rồi, em cám ơn, dùng phím tắt tiện quá anh.
dạ ,em cám ơn anh rất nhiều
Món này tiện quá bạn, có điều chọn vùng mà quên chưa filter thì thì nó làm ráo nhỉ.
Đúng rồi bác, khi đã chọn vùng chọn, đã có thông báo rồi là phải xác định mình cần làm gì rồi.
anh ơi ,cho em hỏi, file của anh, em tải về Ctrl Q bình thường, nhưng khi em copy code của anh sang 1 file mới ,thì Ctrl Q không được, nếu mở file của anh thì dùng bình thường, Sao lại bị như vậy, anh giải đáp giúp em với ạ, Em cám ơn
