با سلام
اگر منظور شما اینه که بین اطلاعات ردیف خالی دارید و میخواهید حذف کنید به این روش میشه:
ابتدا تمام ردیف ها رو انتخاب میکنید بعد کلید CTRL+G رو میزنید و بعد Special رو انتخاب میکنید. در برگه Go To Special گزینه Blanks رو انتخاب میکنید و از تب Home قسمت Delet گزینه Delet Sheet Rows رو انتخاب میکنید .
با این کار تمام ردیف های خالی پاک میشود.
اگر هم شیت های شما زیاد هست میتونید از این ماژول استفاده کنید.
کد:
Public Sub DeleteBlankRows()
Dim WS As Worksheet
Dim R As Long
On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each WS In Worksheets
With WS.UsedRange
For R = .Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(.Rows(R).EntireRow) = 0 Then
.Rows(R).EntireRow.Delete
End If
Next R
End With
Next WS
EndMacro:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
نوشته اصلی توسط amir_ts
علاقه مندی ها (Bookmarks)