如何将此Excel VBA代码修复为保留空单元格

我用它按单元格按字母顺序排列Excel工作表。有人能帮我修复这个代码来忽略空单元格或将它们排序到底吗

这是我用来做这件事的代码，但我不知道如何添加一个字符串来填充空单元格或将它们放在末尾

Sub SortWksByCell()
    Dim i As Integer
    Dim j As Integer

    For i = 1 To Worksheets.Count
        For j = i To Worksheets.Count
            If UCase(Worksheets(j).Range("A260")) < _
              UCase(Worksheets(i).Range("A260")) Then
                Worksheets(j).Move before:=Worksheets(i)
            End If
        Next
    Next
End Sub

Sub-SortWksByCell（）
作为整数的Dim i
作为整数的Dim j
对于i=1的工作表。计数
对于工作表中的j=i。计数
如果使用UCase（工作表（j）.范围（“A260”））_
UCase（工作表（i）.范围（“A260”））然后
工作表（j）.在之前移动：=工作表（i）
如果结束
下一个
下一个
端接头

---

它将所有带有空

A260

范围的工作表放在排序的第一个位置，我希望它放在最后一个位置，添加一个

Else If

以测试范围是否为空字符串。如果是，请将其移到末尾。此外，您还需要使用反向循环，否则将丢失工作表

Sub SortWksByCell()
    Dim i As Long, j As Long

    For i = Sheets.Count To 1 Step -1
        For j = Sheets.Count To i Step -1
            If UCase(Sheets(j).Range("A260")) < UCase(Sheets(i).Range("A260")) Then
                Sheets(j).Move before:=Sheets(i)
            ElseIf Sheets(j).Range("A260") = "" Then
                Sheets(j).Move after:=Sheets(Sheets.Count)
            End If
        Next
    Next
End Sub

Sub-SortWksByCell（）
我和我一样长，我和我一样长
对于i=工作表。计数到1步-1
对于j=板材。计数到i步骤-1
如果UCase（第（j）页范围（“A260”）

添加一个

Else If

以测试范围是否为空字符串。如果是，请将其移到末尾。此外，您还需要使用反向循环，否则将丢失工作表

Sub SortWksByCell()
    Dim i As Long, j As Long

    For i = Sheets.Count To 1 Step -1
        For j = Sheets.Count To i Step -1
            If UCase(Sheets(j).Range("A260")) < UCase(Sheets(i).Range("A260")) Then
                Sheets(j).Move before:=Sheets(i)
            ElseIf Sheets(j).Range("A260") = "" Then
                Sheets(j).Move after:=Sheets(Sheets.Count)
            End If
        Next
    Next
End Sub

Sub-SortWksByCell（）
我和我一样长，我和我一样长
对于i=工作表。计数到1步-1
对于j=板材。计数到i步骤-1
如果UCase（第（j）页范围（“A260”）

如果我没有错，您需要反向循环吗<代码>对于i=工作表。计数到1步骤-1：对于j=工作表。计数到i步骤-1Plz do-或者发布您自己的，我将删除我的lo；您也可以使用

Range.SpecialCells

方法忽略空单元格如果我没有错，您将需要一个反向循环<代码>对于i=工作表。计数到1步骤-1：对于j=工作表。计数到i步骤-1Plz do-或者发布您自己的，我将删除我的lo；您还可以使用

Range.SpecialCells

方法忽略空单元格