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:
Макросы очень просты в установке и использовании:
ALT-F11 открывает окно VBE
ALT-I ALT-M открывает новый модуль
вставьте материал и закройте окно VBE
Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Вы должны изменить 3 и 5, чтобы соответствовать вашей фактической структуре данных.
Как мне это использовать? Извините .. Я новичок в этом .. Также это пример .. У меня есть около 4k строк
Onilol
@Onilol Смотрите мой РЕДАКТИРОВАТЬ # 1
Студент Гари
@Onilol Не забудьте исправить iRowsиiCols
Студент Гари
0
Если запрос состоит в том, чтобы переместить ячейки влево вместо удаления ячеек (поскольку необходимо сохранить остальные столбцы вне диапазона), что можно сделать?
В основном в исходном примере это означает, что любой контент, начиная с колонки, я хочу, чтобы они были такими, какие они есть, не перемещаясь влево, что делать?
Добро пожаловать в SuperUser! Ваш пост кажется вопросом, а не ответом. Ваш вопрос получит соответствующее внимание, если вы разместите его как новый вопрос. Вы обнаружите, что у вас будет больше опыта, если вы потратите время на ознакомление с туром Stack Overflow и ознакомитесь с правилами сайта, как спрашивать и как отвечать . Если вы следуете нормам сообщества Stack Overflow и подходите к нему с точки зрения помощи другим, это будет вам полезно.
iRows
иiCols
Если запрос состоит в том, чтобы переместить ячейки влево вместо удаления ячеек (поскольку необходимо сохранить остальные столбцы вне диапазона), что можно сделать?
В основном в исходном примере это означает, что любой контент, начиная с колонки, я хочу, чтобы они были такими, какие они есть, не перемещаясь влево, что делать?
источник