Excel: переместите содержимое строки в определенный столбец на основе условия

У меня есть большой файл excel с согласованными столбцами, но они не помещены слишком точно; Пример на фотографии является иллюстрацией моей проблемы; Меня интересует информация после столбца «страна». Поэтому в каждой строке я хотел бы 1. проверить каждую строку, чтобы найти определенную строку символов – в данном случае «Испания». 2. Переместите строку так, чтобы ячейки со найденными строками находились в одном столбце.

В приведенном ниже примере все строки должны быть перемещены так, чтобы «Испания» находилась под столбцом F – упорядочивая остальную информацию с ней.

перемещение строк в определенный идентификатор столбца

Если слово Испания не изменено, используйте этот код VBA:

Sub MoveCoun() Dim LastRow As Long Dim rFind As Range Dim r As String Dim m As Integer LastRow = 1000 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 
  • Excel: суммировать строки, если два столбца имеют одинаковые строковые значения
  • как проверить, является ли FirstName пустым, а затем заполнить его из полного имени в файле excel?
  • В EXCEL есть какая-либо функция, которая является отдельным текстом из числа?
  • Задержки Excel, вызванные индексом
  • Сравнение и репликация / объединение данных для аналогичных строк в Excel
  • Excel VBA Macro Code Вставка неограниченных строк без остановки
  • Скрытие несмежных строк в excel с использованием флажков
  • Вставить новую строку и скопировать формулу
  • Как получить RowCount, когда все строки листа скрыты?
  • Программно вычислять сумму строк в Excel
  • сложный VBA для удаления дубликатов с нескольких страниц, а затем удалять пустые строки, зацикливая все листы
  • Interesting Posts

    VBA Найти значение в «столбце» двумерного массива

    условная медиана на листе excel

    Формула: подсчет экземпляра текста в пределах диапазона таблицы

    Объединение двух данных таблицы Excel (бок о бок)

    MS Access VBA Как мне подавить диалог «Вы хотите сохранить изменения» для удаления строк excel?

    Получение ошибки при попытке экспортировать таблицу в Excel из Angular 2, ERROR TypeError: __WEBPACK_IMPORTED_MODULE_4_file_saver__ не является функцией

    Excel – количество возвратов уникальных значений на основе двух столбцов

    Что мне нужно сделать, чтобы настроить Visual Studio на возможность управлять файлом Excel?

    VBA: возвращает поле типа из ячейки excel

    Проверка данных Excel зависит от другого значения ячейки

    Messagebox на открытом файле не получает фокус

    Как продолжить макрос после возникновения ошибки

    Удаление фильтров из всех таблиц Excel VBA

    Доступ к VBA Передача многомерного массива в функцию

    Рассчитать процентный вклад динамического диапазона изменения

    Давайте будем гением компьютера.