Không lấy dữ liệu đã ẩn ? (1 người xem)

[Hoàng Nhật Phương]

Xin chào tất cả các bạn,
Tôi đang vướng mắc một vấn đề, đã nêu cụ thể trong file đính kèm.
Phiền các bạn xem dành chút thời gian xem và giúp đỡ cho tối với ạ.
Tôi xin cảm ơn.

 

[kbw1]

Có thể dữ liệu thật có để 1 dòng tiêu đề, dữ liệu nháp thì không có.

Không phải vậy bạn ạ.
cứ dữ liệu kiểu này thì bị.

 

[huuthang_bd]

Không phải vậy bạn ạ.
cứ dữ liệu kiểu này thì bị.

Tôi thấy có bị gì đâu. Bạn unhide các dòng 6, 7, 8, 9 sẽ thấy các số 8, 9, 10, 11

 

[kbw1]

Tôi thấy có bị gì đâu. Bạn unhide các dòng 6, 7, 8, 9 sẽ thấy các số 8, 9, 10, 11

Cảm ơn bạn!
Đúng là khoai môn thật. Lớ nga lớ ngớ.
Chuối king.

 

[genius111]

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
cái này hay quá, rất nhiều lần em phải copy dữ liệu kiểu này mà không biết làm cách nào, toàn phải copy thủ công. cảm ơn anh nhiều nhé!