Я полный новичок в Excel, так что, пожалуйста, извините меня, если это что-то легко сделать. Я просмотрел много вариантов, но не смог найти то, что мне нужно.
В основном, я хочу удалить все строки, которые не содержат значения в столбце C. Как мне это сделать?
Я делаю это вручную прямо сейчас для 5000+ продуктов, и это сводит меня с ума.
Вы можете сделать это очень быстро, если ячейки действительно пустые, используя SpecialCells
Ручной
F5, затем Special Blanks, затем OK (см. этот шаг на рисунке внизу) VBA
Sub QuickCull()
On Error Resume Next
Columns("C").SpecialCells(xlBlanks).EntireRow.Delete
End Sub
Это должно сработать.
Columns("C:C").Select
Set rngRange = Selection.CurrentRegion
lngNumRows = rngRange.Rows.Count
lngFirstRow = rngRange.Row
lngLastRow = lngFirstRow + lngNumRows - 1
lngCompareColumn = ActiveCell.Column
For lngCurrentRow = lngLastRow To lngFirstRow Step -1
If (Cells(lngCurrentRow, lngCompareColumn).Text = "") Then _
Rows(lngCurrentRow).Delete
Next lngCurrentRow