code fill blank cell in range này sai ở đâu? (1 người xem)

[Tường_Vi]

Em cần điền những cell trống bằng giá trị liền kề trước nó
Em thử viết code này nhưng ko chạy

Em không biết nó sai ở đâu? Anh chị giúp em nhé

Em cám ơn

Sub fill_blank_Cell()
With Selection
Dim cell As Range
    For Each cell In Range(Selection)
        If cell.Value = "" And cell.Row > 1 Then
            cell.Value = cell(-1, 0).Value
        End If
    Next
    
End With
End Sub

 

[nghiaphuc]

Em cần điền những cell trống bằng giá trị liền kề trước nó
Em thử viết code này nhưng ko chạy

Em không biết nó sai ở đâu? Anh chị giúp em nhé

Em cám ơn

Sub fill_blank_Cell()
With Selection
Dim cell As Range
    For Each cell In Range(Selection)
        If cell.Value = "" And cell.Row > 1 Then
            cell.Value = cell(-1, 0).Value
        End If
    Next
    
End With
End Sub

Thứ nhất: Câu lệnh With không có ý nghĩa.
Thứ hai: Range(Selection) là không đúng.
Bạn sửa lại như vầy là được:

Sub fill_blank_Cell()
    Dim cell As Range
    For Each cell In Selection
        If cell.Value = "" And cell.Row > 1 Then cell.Value = cell.Offset(-1).Value
    Next
End Sub

 

[hoangvuluan]

Bạn thử lại với cái này xem:

Sub fill_blank_Cell()
Dim cell As Range
    For Each cell In Selection 
       If cell.Value = "" And cell.Row > 1 Then
            cell.Value = cell.Offset(-1, 0).Value
        End If 
  Next
End Sub

 

[ndu96081631]

Em cần điền những cell trống bằng giá trị liền kề trước nó
Em thử viết code này nhưng ko chạy

Em không biết nó sai ở đâu? Anh chị giúp em nhé

Em cám ơn

Sub fill_blank_Cell()
With Selection
Dim cell As Range
    For Each cell In Range(Selection)
        If cell.Value = "" And cell.Row > 1 Then
            cell.Value = cell(-1, 0).Value
        End If
    Next
    
End With
End Sub

Vầy mới đúng:

Sub fill_blank_Cell()
  Dim cell As Range
  For Each cell In [B]Selection[/B]
    If cell.Value = "" And cell.Row > 1 Then
      cell.Value = [B]cell(0, 1).Value[/B]
    End If
  Next
End Sub

Hoặc:

Sub fill_blank_Cell()
  Dim cell As Range
  For Each cell In [B]Selection[/B]
    If cell.Value = "" And cell.Row > 1 Then
      cell.Value = [B]cell.Offset(-1).Value[/B]
    End If
  Next
End Sub

 

[Tường_Vi]

Code chạy tốt rồi ạh?
Em cám ơn nhé