Excel VBA /删除单元格，如果它们的值与参考单元格的值不一致

Question

我需要Excel/VBA宏的帮助。我在列A（1,2,3，A，B，C等）中有单个字符值，并且需要删除列B，C，D中同一行的值（Shift：= xlToLeft） “T开始与特定的字符从A列

所以这个位置：

| 1 | 12345 | 23456 
| 3 | 42280 | 42280 
| 2 | 20613 | 20614 | 33221 
| 5 | 51953 | 
| 2 | 21895 | 22222 | 28932 
| 7 | 70119 | 61002 
| A | A1111 | 70142 

应该在这里变成了这样：

| 1 | 12345 | 
| 3 | 
| 2 | 20613 | 20614 | 
| 5 | 51953 | 
| 2 | 21895 | 22222 | 28932 
| 7 | 70119 | 
| A | A1111 | 

谢谢您的帮助

Answer 1

灿现在不要考虑这个，因为我在莫胆汁，但这应该工作，假设你开始在单元格A1

Dim rCheck As Range, i As Integer, iCol As Integer 

Set rCheck = Range("A1") 'top left cell of your table 
iCol = 5 'width of your table 

Do While rCheck <> "" 
    For i = 2 To iCol 
     If Cells(rCheck.Row, i) <> "" And Left(Cells(rCheck.Row, i), 1) <> Left(rCheck.Value2, 1) Then 
       Cells(rCheck.Row, i).Delete (xlToLeft) 
       i = i - 1 
       End If 
    Next i 
Set rCheck = rCheck.Offset(1, 0) 
Loop