Переместите значения в правильный столбец в VBA

Question

Можно ли переместить значения из ColumnC в ColumnB, ColumnD в ColumnC и т. Д. С помощью VBA? Моя проблема заключается в том, что после импорта текстового файла в Excel и форматирования его в текст в столбец.Некоторые данные не в правильном размещении.Например,

ColA | ColB | ColC | ColD
1    | Sam1 | ABC  | 111
2    | Sam2 | DEF  | 222
3    | Sam3 | 101  | 333
4    | Sam4 | ABC  | 444

В этом примере ColC со значением «ABC» и «DEF» является частью ColB.Но он был помещен в ColC после того, как я отформатировал его в текст в столбец.И значение из ColD, должно быть в ColC.Возможно ли это сделать в VBA?Если да, можете ли вы дать мне представление о том, как это сделать?

Спасибо.

Answer 1

Приведенный ниже код вставит пустую ячейку в столбец col3, когда значение является числом, затем объединит значения из столбцов col2 и col3, а затем удалит столбец col3.

Dim ws As Worksheet, lRow As Long, i As Long

Set ws = ThisWorkbook.ActiveSheet
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

With ws
    For x = 1 To lRow
        If IsNumeric(.Cells(x, 3).Value) Then
            .Cells(x, 3).Insert Shift:=xlToRight
        End If

        .Cells(x, 2).Value = .Cells(x, 2).Value & " " & .Cells(x, 3).Value
    Next x

    .Columns(3).Delete
End With
End Sub