PASTE dữ liệu không vào ô bị ẩn

[lưu tuấn dũng]

Nhờ các bạn giúp đỡ . Mình muốn paste dữ liệu không vào ô bị ẩn ( lọc dữ liệu ) . Mình đã thử cách Special => Visible cells only mà không được .
Mong các bạn hướng dẫn cách giải quyết !

 

[befaint]

Option Explicit

Sub l()
    Const sRange = "M14:M17"
    Const sColTarget = "D"
    Const iRowStart = 4
    Const lngMaxRow = 1048500

    Dim data As Variant, iRow As Long, oCell As Range, lCount As Long, numData As Long, r As Long
    data = Sheet5.Range(sRange).Value2
    numData = UBound(data, 1)
    With Sheet5
        For r = iRowStart To lngMaxRow
            Set oCell = .Range(sColTarget & r)
            If oCell.Height > 0 Then
                lCount = lCount + 1
                oCell.Value = data(lCount, 1)
            End If
            If lCount = numData Then Exit For
        Next
    End With
End Sub

 

[lưu tuấn dũng]

Option Explicit

Sub l()
    Const sRange = "M14:M17"
    Const sColTarget = "D"
    Const iRowStart = 4
    Const lngMaxRow = 1048500

    Dim data As Variant, iRow As Long, oCell As Range, lCount As Long, numData As Long, r As Long
    data = Sheet5.Range(sRange).Value2
    numData = UBound(data, 1)
    With Sheet5
        For r = iRowStart To lngMaxRow
            Set oCell = .Range(sColTarget & r)
            If oCell.Height > 0 Then
                lCount = lCount + 1
                oCell.Value = data(lCount, 1)
            End If
            If lCount = numData Then Exit For
        Next
    End With
End Sub

Có cách nào không cần dùng VBA không bác

 

[befaint]

Có cách nào không cần dùng VBA không bác

Có:

Nhiều cách.

Ví dụ:

Cách thứ không: Dùng các phần mềm tự động hóa RPA, hoặc lập trình ngôn ngữ khác VBA để thực hiện (ví dụ Python chẳng hạn).

Cách thứ một: Mắt nhìn, tay gõ từng giá trị vào vị trí mong muốn.

Cách thứ hai: Mắt nhìn, tay cầm chuột chọn và copy giá trị cần. Đưa mắt tới vị trí cần, tay cầm chuột dán giá trị vào vị trí đó.

Cách thứ ba: Giao nhân viên làm.

Cách thứ bốn: Bỏ tiền thuê người làm.

Cách thứ năm: Đi làm việc khác.

Cách thứ tiếp: Chưa nghĩ ra.

 

[VetMini]

Có:
Copy Visble Cells ra, ví dụ Table2
Paste vào Table2
Consolidate với bảng ban đầu.
Xoá Table2