у меня много строк в таком формате:
KompCOLS : 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 | |
2536
убедитесь, что выбрана только одна ячейка.
Я использую 2010, так что это может быть немного по-другому для 2013, но я надеюсь, что это более или менее то же самое.
что-то типа:
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:
макросы очень просты в установке и использовании:
при сохранении книги макрос будет сохранен с она. Если вы используете версию Excel позднее 2003 года, необходимо сохранить файл как .файл xlsm, а не .XLSX-файл
вы должны изменить 3 и 5 соответствовать вашей фактической структуре данных.
удалить макрос:
для использования макроса из Excel:
чтобы узнать больше о макросах в общем, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
и
http://msdn.microsoft.com/en-us/library/ee814735(в=офис.14).аспн
макросы должны быть включены для этой работы!
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
