戻り値が空白の場合は、別のセルが空白の場合は別のセルの値を返し、3番目のセルの値を返す場合

Question

Cherryが値を保持していれば、その行の他のセルを削除または非表示にします削除された/隠され、黒いものはkeeptする必要があります。現実には色の違いはありませんが、これは単に説明のためのものです。この場合、データセルD2は保持され、C2、B2、およびA2のデータは除去/非表示になります。そしてC2の下にC2のデータが残っていたら、B2とA2は削除/隠れています...もしAppleだけがA23のようないくつかのセルのデータを持っていればそれは残っていて、削除/隠れません。もちろんB23、C23、D23は空の場合この論理をVBAやExcelの式でどうやって実装できますか？ありがとう！]

Answer 1

これは動作するはずです。あなたの宿題ではないことを願ってください）

Sub ThisMacro() 
    Dim LastRow As Long, LastCol As Long 
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row 
    For i = 2 To LastRow 
     LastCol = Cells(i, Columns.Count).End(xlToLeft).Column 
     If LastCol > 1 Then 
      Range(Cells(i, 1), Cells(i, LastCol - 1)).ClearContents 
     End If 
    Next i 
End Sub