copy dòng trống tương tự dòng trên, bỏ qua điều kiện rỗng

[gaupu89]

Chào mọi người, nhờ các anh chị sửa giúp code của mình để chường trình copy các dòng trống cho cột A, và thỏa điều kiên:
Nếu cột B có giá trị rỗng thì không copy, và tiếp tục dòng tiếp theo
-Code mình nạp cho chương trình đã hoạt động nhưng no chạy luôn dòng rỗng ở cột B và C

 

[befaint]

- Filter cột B, điều kiện Blank
- Chọn vùng dữ liệu cột A, nhấn tổ hợp phím Alt ; (phím Alt và phím chấm phẩy), nhấn phím Delete.
- Hủy lọc cột B, xong.

 

[phulien1902]

Chào mọi người, nhờ các anh chị sửa giúp code của mình để chường trình copy các dòng trống cho cột A, và thỏa điều kiên:
Nếu cột B có giá trị rỗng thì không copy, và tiếp tục dòng tiếp theo
-Code mình nạp cho chương trình đã hoạt động nhưng no chạy luôn dòng rỗng ở cột B và C

Bạn đưa ra kết quả mong muốn tại cột D xem thế nào nhé.

 

[gaupu89]

Bạn đưa ra kết quả mong muốn tại cột D xem thế nào nhé.

kết qua nàm ở cột A, vì khi chạy code cột A nó như file ở bài #1

Bài đã được tự động gộp: 17/7/18

- Filter cột B, điều kiện Blank
- Chọn vùng dữ liệu cột A, nhấn tổ hợp phím Alt ; (phím Alt và phím chấm phẩy), nhấn phím Delete.
- Hủy lọc cột B, xong.

Nếu không dùng code thì mình làm được, còn dùng code thì chỉ được như cột A (trong file đính kèm), mình muốn ở cột A sẽ có giá trị rỗng nếu cột B rỗng

 

[phulien1902]

kết qua nàm ở cột A, vì khi chạy code cột A nó như file ở bài #1

Bài đã được tự động gộp: 17/7/18

Nếu không dùng code thì mình làm được, còn dùng code thì chỉ được như cột A (trong file đính kèm), mình muốn ở cột A sẽ có giá trị rỗng nếu cột B rỗng

Tôi không hiểu, nhưng nếu như cách của bạn Befaint, thì chỉ cần 1 dòng:

  Columns(2).SpecialCells(xlCellTypeConstants, 2).Copy Range("D3")

 

[gaupu89]

Tôi không hiểu, nhưng nếu như cách của bạn Befaint, thì chỉ cần 1 dòng:

  Columns(2).SpecialCells(xlCellTypeConstants, 2).Copy Range("D3")

Sub Test()
  On Error Resume Next
  With Range([A3], Cells([B1500].End(xlUp).Row, "A")).SpecialCells(4)
    For i = 1 To .Areas.Count
      .Areas(i).Value = .Areas(i)(0).Value
    Next
  End With
End Sub

đối với code của mình thì sửa như thế nào
hình minh họa

 

[Ba Tê]

Chào mọi người, nhờ các anh chị sửa giúp code của mình để chường trình copy các dòng trống cho cột A, và thỏa điều kiên:
Nếu cột B có giá trị rỗng thì không copy, và tiếp tục dòng tiếp theo
-Code mình nạp cho chương trình đã hoạt động nhưng no chạy luôn dòng rỗng ở cột B và C

Dữ liệu ban đầu của bạn có phải như thế này?
Bạn đưa cái kết quả không "ưng ý" mà không biết ban đầu nó thế nào thì sao người khác hiểu.
Tôi thì hiểu thế này, hên xui!

 

[gaupu89]

Dữ liệu ban đầu của bạn có phải như thế này?
Bạn đưa cái kết quả không "ưng ý" mà không biết ban đầu nó thế nào thì sao người khác hiểu.
Tôi thì hiểu thế này, hên xui!

cám ơn bạn nhiều lắm, đúng như ý mình

 

[befaint]

đúng như ý mình

Thiệt không đó?!!!

 

[phulien1902]

cám ơn bạn nhiều lắm, đúng như ý mình

Code của bạn sửa lại như sau:

Sub Test2()
    On Error Resume Next
    With Range([A3], Cells([B65500].End(xlUp).Row, "B")).SpecialCells(4)
        For I = 1 To .Areas.Count
            .Areas(I).Value = .Areas(I)(0).Value
        Next
    End With
End Sub

Và em xin phép được mượn File của Bác Ba tê để chạy Code.

 

[gaupu89]

Code của bạn sửa lại như sau:

Sub Test2()
    On Error Resume Next
    With Range([A3], Cells([B65500].End(xlUp).Row, "B")).SpecialCells(4)
        For I = 1 To .Areas.Count
            .Areas(I).Value = .Areas(I)(0).Value
        Next
    End With
End Sub

Và em xin phép được mượn File của Bác Ba tê để chạy Code.

cám ơn bạn nhiều