KHTMFile 💾

Option Explicit

Sub DeleteBlankRows()

    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long

    Set ws = ActiveSheet

    LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Application.ScreenUpdating = False

    For i = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            ws.Rows(i).Delete
        End If
    Next i

    Application.ScreenUpdating = True

'    MsgBox "Done!"

End Sub

'កូដប្ដូរម៉ែត្រស្កេល

Sub WorldScale_1_inch_equals_10_feet()

    If Not ActiveDocument Is Nothing Then
        ActiveDocument.WorldScale = 120
    End If
End Sub

Sub WorldScale_1_inch_equals_20_feet()

    If Not ActiveDocument Is Nothing Then
        ActiveDocument.WorldScale = 240
    End If
End Sub

Sub WorldScale_1_inch_equals_100_feet()

    If Not ActiveDocument Is Nothing Then
        ActiveDocument.WorldScale = 1200
    End If
End Sub