A barra de rolagem do Excel 2010 vai longe demais

Question

Meu problema é ilustrado na PrintScreen abaixo:

PesquiseimuitonaInternetequasetodasasfontesdizemparaexcluiraslinhasvaziasnofinaldaplanilhaesalvarodocumento.Porexemplo,éissoqueésugerido aqui (consulte a Seção 2f).

Às vezes isso funciona, mas na maioria das vezes isso não acontece!

Não sei se essa é uma informação relevante ou não, mas meu documento do Excel contém três macros definidas pelo usuário, incluindo duas que têm a ver com formatação de comentários. Há muitos comentários na folha "Notas A", a maioria deles com imagens como fundos. Além disso, meu documento não está protegido, portanto, não acho que o problema seja que as linhas extras estejam bloqueadas.

Existe uma solução definitiva para isso?

Adicionado: aqui estão os códigos das minhas três macros.

Módulo 1: Esta é uma macro que classifica alfabeticamente a cadeia de letras de uma palavra. Por exemplo, aplicá-lo a uma célula contendo HELLO fornecerá EHLLO como a saída.

Option Compare Text
Function SortString(ByVal iRange, Optional Croissant As Boolean = True)
'Trevor Shuttleworth, mpep, modifié fs, mpfe
Dim i%, j%, sTemp$
For j = 1 To Len(iRange) - 1
 For i = 1 To Len(iRange) - 1
  If Mid(iRange, i, 1) > Mid(iRange, i + 1, 1) Then
   sTemp = Mid(iRange, i, 1)
   Mid(iRange, i, 1) = Mid(iRange, i + 1, 1)
   Mid(iRange, i + 1, 1) = sTemp
  End If
 Next
Next

If Croissant = False Then
 For i = Len(iRange) To 1 Step -1
  SortString = SortString & Mid(iRange, i, 1)
 Next
 Exit Function
End If

SortString = iRange

End Function

Módulo 2: é uma macro que redimensiona automaticamente os comentários que contêm palavras.

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

Módulo 3: Esta é uma macro que pede ao usuário para escolher uma imagem de fundo para um comentário a ser criado e que redimensione automaticamente o comentário para corresponder às dimensões da imagem.

Sub InsertComment()

    Dim strImagePath As Variant
    Dim objImage As Object

    strImagePath = Application.GetOpenFilename("Picture, *.jpg; *.png; *.bmp")
    If strImagePath = False Then Exit Sub

    Set objImage = CreateObject("WIA.ImageFile")
    objImage.LoadFile strImagePath

    With ActiveCell
        If .Comment Is Nothing Then .AddComment ("")
        .Comment.Shape.Fill.UserPicture strImagePath
        .Comment.Shape.Height = objImage.Height * 0.75
        .Comment.Shape.Width = objImage.Width * 0.75
    End With

End Sub

    

Answer 1

Qual faixa você está chamando essa função SortString? Se estiver passando por toda a planilha, isso pode explicar seu problema. Considere usar um intervalo nomeado ou incorpore uma função 'Contagem' para que ela seja executada apenas em linhas que foram preenchidas.

Não vou perguntar sobre o Croissant ...