Không copy các dòng đã ẩn?

Liên hệ QC

lqhung1107

Thành viên mới
Tham gia
24/7/07
Bài viết
6
Được thích
1
Chào các bạn!!!!
Mình coppy các dòng trong excel, khi past các dòng này thì các dòng bị ẩn (chúng nằm ẩn xen kẻ trong các dòng không ẩn) cũng được past theo!!!!.
Bạn nào biết cách copy và past mà không bị hiển thị các dòng đã bị ẩn không???? xin các bạn giúp mình với!!!!!
+-+-+-+
 
Cũng giống cách của ThuNghi.. nhưng recode nó thành 1 macro thì dễ sử dụng hơn...
Bạn Insert 1 module và dán code này vào:

Sub CopyVisible()
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
End Sub

Giờ thì bạn quét chọn nhóm cell cần copy, chạy code trên... sang nới cần paste và paste như bình thường...
Mến
ANH TUẤN
 
Còn 1 cách này nữa, cũng khá đơn giản thôi:
- Chọn vùng bạn định Copy (bao gồm cả những dòng ẩn)
- Nhấn Alt+;
- Nhấn Ctrl+C , Ctrl+V
.....
(Thực chất cũng là cách của bác ThuNghi thôi)
 
Một bác dùng Chính quy, một bác dùng VBA, một bác dùng phím tắt cho cùng một cách làm.
Giống như một bài toán có 3 cách giải khác nhau.

Vấn đề nào cũng được khám phá ra theo nhiều cách thì hay biết nhường nào.
(Tình yêu cũng vậy mà . . be be be)

Thân!
 
Xin các bác giúp đỡ!!!!!!!

Giải pháp Excel thật tuyệt vời!!!!
Cảm ơn các bạn đã chỉ giáo, xin đa tạ, đa tạ!!!!!!!!!!!!!!!!!
Mình xin chúc cho ngôi nhà "Giải pháp excel" của chúng ta ngày một xôm tụ
--=0 --=0 --=0
 
Chào các Pác,

Nhân tiện đây cho em hỏi thế mấy cái còn lại thì tác dụng thế nào nhỉ? (row difference, column difference, precedent....) Vì nhiều thứ em trông lạ quá.
Ah, với trường hợp tính tổng thì sao ạ? Làm thế nào để tính tổng các dòng visable.

Mong các Pác giúp đỡ. Em cám ơn các Pác nhiều.
 
Lần chỉnh sửa cuối:
duyhoa83 đã viết:
Chào các Pác,

Ah, với trường hợp tính tổng thì sao ạ? Làm thế nào để tính tổng các dòng visable.

Mong các Pác giúp đỡ. Em cám ơn các Pác nhiều.

Bạn hãy nghiên cứu hàm Subtotal nhé
  1. Trên GPE
  2. Trong help của excel
Thân!
 
Nhân tiện các bác cho em hỏi làm thế nào khi paste thì ko paste vào các dòng đã ẩn. Vì nhiều khi em paste, sau đó unhide thì em thấy là paste vào cả những dòng đã ẩn????
 
Nhân tiện các bác cho em hỏi làm thế nào khi paste thì ko paste vào các dòng đã ẩn. Vì nhiều khi em paste, sau đó unhide thì em thấy là paste vào cả những dòng đã ẩn????
Mình thấy bài này mới cần câu trả lời nhất nè, mình đã tìm trên mạng nhiều rồi nhưng chưa có ai trả lời được cả ,các cao thủ trả lời giúp nhé
 
Bạn đọc bài số hai của anh ThuNghi ở trên.
Chắc bạn hiểu sai rồi đó! & không đơn giản chút nào!
Bạn thử chép dữ liệu từ 3 cột & 7 hàng đến [G1] nhưng cột 'H' đang bị ẩn là thấy vấn đề này hoàn toàn khó chịu!
Nhưng không phải không làm được; Đây là vài bước khởi đầu
PHP:
Option Explicit
Sub CopyToHideRegion()
 Dim SoO As Long, SoCot As Byte, SoHang As Long
 Dim DesCot As Byte, DesHg As Long
 Dim DesRng As Range, Clls As Range
 Dim StrC As String
 
 Sheet1.[a1].CurrentRegion.Select
 SoCot = Selection.Columns.Count:      SoHang = Selection.Rows.Count
 Set DesRng = Sheet1.[g1].Resize(SoHang, SoCot)
 DesCot = DesRng.SpecialCells(xlCellTypeVisible).Columns.Count
 DesHg = DesRng.SpecialCells(xlCellTypeVisible).Rows.Count
 If DesCot = SoCot And DesHg = SoHang Then
   StrC = "Bang Nhau"
 ElseIf DesCot < SoCot And DesHg < SoHang Then
   StrC = "Cung be hon"
 ElseIf DesCot < SoCot Then
   For Each Clls In [g1].Resize(, SoCot)
   ' . . . . '
   Next Clls
 Else
   StrC = "It Hang Hon"
 End If
End Sub
 
Mình làm theo cách của ThuNghi nhưng mà sau khi copy và paste nó mất hết công thức. (giống như nó paste value). Có cách nào copy paste xong mà vẫn còn các đặc tính như trước không?
Thân!
 
Vẫn chưa có bác nào cao thủ làm ơn giúp hộ em vụ này với ạ? Thanks các bác
 
  1. Bôi vùng cần copy nhấn Ctrl + G chọn special, chọn visible cells only
  2. Chạy marco: Ấn Alt +F8 rồi run code cuchuoi sau:
    Code:
    Mã:
    Sub cuchuoi()
    Set from = Selection
    Set too = Application.InputBox("Select range to copy selected cells to", Type:=8)
    For Each cell In from
    cell.Copy
    For Each thing In too
    If thing.EntireRow.RowHeight > 0 Then
    thing.PasteSpecial Paste:=xlPasteValues
    Set too = thing.Offset(1).Resize(too.Rows.Count)
    Exit For
    End If
    Next
    Next
    End Sub
  3. Chọn vùng cần paste rồi nhấn ok.
Vẫn chưa có bác nào cao thủ làm ơn giúp hộ em vụ này với ạ? Thanks các bác
 
Cảm ơn bác nhưng tôi vẫn chưa thấy được bác ạ. Ko biết có chỗ nào sai sót ko. Bác có thể cho xin file excel kết quả dc ko ạ. Cảm ơn bác nhiều.
 
Cảm ơn bác nhưng tôi vẫn chưa thấy được bác ạ. Ko biết có chỗ nào sai sót ko. Bác có thể cho xin file excel kết quả dc ko ạ. Cảm ơn bác nhiều.
Sorry bạn mình đã check lại nếu cột copy không ẩn thì chỉ cần Ctrl+C luôn không cần chọn SPECIAL, chọn visible cells only và cũng chỉ copy được từng cột 1. Mình sẽ cố gắng cải tiến copy nhiều hơn.
 
Web KT
Back
Top Bottom