Xóa 1ô khi ô khác không có giá trị

[lamho27]

Chào các bạn trong diển đàn
Em muốn hỏi dùng hàm nào hay phương pháp nào để xóa 1 ô khi ô khác không có giá trị ; Ex nếu ở ô B10 trống thì ở ô C10 cũng trống

 

[hoangminhtien]

bạn xem file có đún ý bạn không?

 

[SA_DQ]

Đây là một cách

Option Explicit
Sub DeleteFor()
 Dim lRow As Long, Ww As Long
 lRow = [c65432].End(xlUp).Row
 For Ww = 6 To lRow
   With Cells(Ww, 2)
      If .Value = "" Then .Offset(, 1) = ""
   End With
 Next Ww
End Sub

 

[salam]

Chào các bạn trong diển đàn
Em muốn hỏi dùng hàm nào hay phương pháp nào để xóa 1 ô khi ô khác không có giá trị ; Ex nếu ở ô B10 trống thì ở ô C10 cũng trống

bạn dùng thử đoạn code dưới xem.

Sub xoa()
    Range("B65536").Select
    Selection.End(xlUp).Select
    For i = 6 To ActiveCell.Row
    If Cells(i, 2) = "" Then
    Cells(i, 3) = ""
    End If
    Next
End Sub

 

[DOREAMON]

Nếu mình xóa ô B11 thì toàn bộ các ô dưới đó đều báo lỗi. Trong khi nếu mình xóa B12 thì giá trị bị thay đổi. Có cách nào không ảnh hưởng đến hai lỗi này không?

 

[salam]

Nếu mình xóa ô B11 thì toàn bộ các ô dưới đó đều báo lỗi. Trong khi nếu mình xóa B12 thì giá trị bị thay đổi. Có cách nào không ảnh hưởng đến hai lỗi này không?

Bạn xem file đính kèm nhé.

 

[lamho27]

còn 1 câu hỏi nữa nhờ các bạn hướng dẩn giùm ; dùng code gì để xóa các hàng từ 6 đến 43 khi trong hàng trống ( Ex: tháng 3 thì hàng 6 đến hàng 9 là trống )

 

[anhtuan1066]

còn 1 câu hỏi nữa nhờ các bạn hướng dẩn giùm ; dùng code gì để xóa các hàng từ 6 đến 43 khi trong hàng trống ( Ex: tháng 3 thì hàng 6 đến hàng 9 là trống )

Cột A bạn merge lại như vậy thì sẽ rất khó cho việc thiết lập công thức và cả VBA (cách thì có nhưng cực khổ lắm)
Gợi ý bạn 1 cách khác xem thế nào nhé