Смещение непустых значений ячеек в ближайшие пустые ячейки влево

у меня много строк в таком формате:

COLS : A | B | C | D | E
  01 : 1 |   | 8 | 3 |
  02 :   | 3 | 2 | 4 | 7
  03 : 9 |   | 5 |   | 6

Как я могу сдвинуть значения влево, чтобы у меня не было пустых ячеек? Цель игры:

COLS : A | B | C | D | E
  01 : 1 | 8 | 3 |   |
  02 : 3 | 2 | 4 | 7 |
  03 : 9 | 5 | 6 |   | 
29
задан Onilol
15.01.2023 22:32 Количество просмотров материала 2536
Распечатать страницу

2 ответа

убедитесь, что выбрана только одна ячейка.

  1. Нажмите F5
  2. нажать кнопку "специальная..."button
  3. выберите "пробелы" и нажмите OK
  4. щелкните правой кнопкой мыши и выберите "Удалить..."
  5. выберите опцию "сдвиг ячеек влево" и нажмите OK

Я использую 2010, так что это может быть немного по-другому для 2013, но я надеюсь, что это более или менее то же самое.

1
отвечен blakeoft 2023-01-17 06:20

что-то типа:

Sub DataCompactor()
    Dim iRows As Long, iCol As Long
    Dim i As Long, j As Long, r As Range

    iRows = 3
    iCols = 5

    For i = 1 To iRows
        For j = iCols To 1 Step -1
            Set r = Cells(i, j)
            If r.Value = "" Then r.Delete Shift:=xlToLeft
        Next j
    Next i
End Sub

если клетки действительно пусты, вы можете использовать SpecialCells и избегать циклов.

EDIT#1:

макросы очень просты в установке и использовании:

  1. ALT-F11 вызывает окно VBE
  2. ALT-I ALT-M открывает новый модуль
  3. вставьте материал и закройте окно VBE

при сохранении книги макрос будет сохранен с она. Если вы используете версию Excel позднее 2003 года, необходимо сохранить файл как .файл xlsm, а не .XLSX-файл

вы должны изменить 3 и 5 соответствовать вашей фактической структуре данных.

удалить макрос:

  1. вызовите окно VBE, как показано выше
  2. снимите код
  3. закройте окно VBE

для использования макроса из Excel:

  1. ALT-F8
  2. выберите макрос
  3. нажмите RUN

чтобы узнать больше о макросах в общем, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

и

http://msdn.microsoft.com/en-us/library/ee814735(в=офис.14).аспн

макросы должны быть включены для этой работы!

0
отвечен Gary's Student 2023-01-17 08:37

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх