I have a excel table and I want to delete if three column have same data delete second and third. I can write 4. column which datas same or different but I cannot set first 1. 2. or 3. column data
a b c a b b a a a
a b c a b b a
You can put this into a new module, but the macro will run on the Active Sheet:
Sub DeleteCells() Dim intResponse, i As Integer i = 1 intResponse = MsgBox("Are you sure you want " & _ "to delete the cells?", vbYesNo) If intResponse = vbYes Then Do While Cells(i, 1).Value <> "" 'does it one by one going down in the first column while the cell is not empty If (Cells(i, 1) = Cells(i, 2)) And (Cells(i, 1) = Cells(i, 3)) Then Cells(i, 2).Value = "" Cells(i, 3).Value = "" End If i = i + 1 Loop End If End Sub
With a formula is possible but a little more tedious than VBA. For example in E1 copied across to G1 and then E1:G1 copied down to suit:
Then Copy, Paste Special, Values over the top and delete Columns A:D.
Alternatively flag the rows where the three values are the same (say with
=COUNTIF(A1:C1,A1) copied down to suit) then filter that column to select
3 and blank out the values in ColumnsB:C (other than the header row).