Упорядочить ячейки содержащие значения 1 и 0 в восьми столбцах - VBA
Формулировка задачи:
Помогите пожалуйста с макросом.нужно упорядочить ячейки содержащие значения 1 и 0 в восьми столбцах .значения записаны по столбцу начиная от 28 строки в последовательности (которая должна быть сохранена),но с большим количеством пробелов между собой.а нужно все значения в столбцах соблюдая ту же последовательность начиная с 28 строки раставить без пробелов.нужен макрос при запуске которого будет во всех восьми столбцах одновременно пропишет значения без пробелов,по сохраняя их последовательность записанную начиная с 28 строки в каждом из столбцов.файл с примером есть.
Решение задачи: «Упорядочить ячейки содержащие значения 1 и 0 в восьми столбцах»
textual
Листинг программы
Sub Уплотнение_данных() Dim i&, j%, k&, LastRow%, A, B With ActiveSheet.UsedRange LastRow = .Rows.Count - .Row + 1 End With With Range("A28:O" & LastRow) A = .Value B = .Formula For j = 1 To 15 Step 2 k = 0 For i = 1 To UBound(A) If Trim(A(i, j)) <> "" Then k = k + 1 B(k, j) = B(i, j) End If Next i For k = k + 1 To UBound(A) B(k, j) = Empty Next k Next j .Formula = B End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д