VBA Excel - поиск строк для строки и, если найден, копировать всю ячейку в определенное место.

Question

Я получил 3000 строк данных в Excel. Каждая строка содержит один и тот же тип информации, но не в правильном порядке. Что мне нужно сделать, это собрать тот же тип информации в соответствии с тем же column.I хотел бы создать макрос, который собирается:

• Выберите строку для частичной строки (некоторые значения имеют схожие строки, но подпадают под разные категории)

• Если строка является частью ячейки скопировать всю ячейку в новом месте

• Повторить для следующей строки

Заранее спасибо

Answer 1

Sub MoveColumns() 
Dim LastRow As Long 
Dim rFind As Range 
Dim r As String 
Dim m As Integer 
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row 
MsgBox (LastRow) 
For n = 1 To LastRow 
    r = n & ":" & n 
    Range(r).Select 
    With Range(r) 
     Set rFind = .Find(What:="Spain*", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False) 
     If Not rFind Is Nothing Then 
      If rFind.Column < 6 Then 
       m = 6 - rFind.Column 
       Range(Cells(n, 1), Cells(n, m)).Insert Shift:=xlToRight 
      ElseIf rFind.Column > 6 Then 
       m = rFind.Column - 6 
       Range(Cells(n, 1), Cells(n, m)).Delete Shift:=xlToLeft 
      End If 
     End If 
    End With 
Next 
End Sub 

ОБНОВЛЕНО Если строка не содержит каких-либо значение начинается с «Испания», эта строка просто игнорируется и пропускается. Надеюсь, вы можете изменить и настроить способ, подходящий для ваших данных.