VBA для копирования и вставки нескольких ячеек Если встречаются критерии

Question

как перемещать ячейки, если критерии удовлетворяются, следуя также ячейкам, расположенным рядом с ним, используя цикл? сказать критерий является (Len = 43) < - Acct #

Column# |Date  | Country | Acct# | Fruit  | Price | Qty 
1  |11/02/16 | India  | 5002xxx | apple  | $9  | 5 
2  |12/02/16 | 5001xxx | Orange | $8  | 10  | 

Мне нужно, чтобы переместить столбец 2 учетного # для его правой колонки следующих столбцов рядом с ним. как использовать его с петлей и len? какой лучший подход? Спасибо и ура!

Update

Sub Findandcut2() 
    Dim row As Long 

    For row = 2 To 1000 

     If Range("M" & row).Value Like "*5027.1227000.0000.0000.000.0000.0000.0000*" Then 

      Range("N" & row).Value = Range("M" & row).Value 
      Range("M" & row).Value = "" 
     End If 
    Next 

End Sub 

так в колонке М, где Acct # сохраняется и следующие клетки прямо рядом с ним я должен компенсировать, но с кодом выше у меня просто вычеркивания значение - столбец N, а ячейки рядом с ним не перемещаются.

Answer 1

вы можете изменить свой код вроде (с комментариями) следующий:

Sub Findandcut2() 
    Dim cell As Range 

    For Each cell In Range("M2", Cells(Rows.Count, "M").End(xlUp)) '<--| loop through all column "M" cell from row 2 down to last not empty row 
     If cell.Value Like "*5027.1227000.0000.0000.000.0000.0000.0000*" Then 
      With Range(cell, cell.End(xlToRight)) '<--| reference the range from current column M cell rightwards till the one preceeding first not empty one 
       .Offset(, 1).Value = .Value '<--| copy values 
      End With 
      cell.ClearContents '<--| need to clear the cell you started offset values from? 
     End If 

    Next cell 
End Sub