VBA僅對文本進行排序，忽略具有公式的單元格

Question

我有一個非常大的工作表，大約有150列，其中大部分都包含公式。當我想將我輸入的數據排序到不使用公式的單元格時，會混淆整個表單。 - 輸入單元不在一起

目前，我在VBA中的解決方案是將單元複製到另一個（隱藏）表單中，並將其全部歸併。我只是覺得這對於一個看起來很簡單的任務來說太麻煩了。有沒有更聰明的方法來解決這個問題？

編輯

QUA @varocarbas我曾嘗試下面的代碼：

Private Sub sortInputButton_Click() 
    ' This sub sorts the inpur, without messing up the references [hopefully] 
    Dim rowCount As Integer 
    Dim colCount As Integer 

    rowCount = countItems 
    colCount = 180 

    Dim inputRange As Range 
    Set inputRange = Sheets("Input").Range("A3") 
    Set inputRange = inputRange.Resize(rowCount, colCount) 

    Dim targetRange As Range 

    On Error Resume Next ' If range is nothing, throws an error - we don't want that 
    Set targetRange = inputRange.SpecialCells(xlCellTypeConstants) 
    On Error GoTo 0 

    If targetRange.Cells.count > 0 Then 
     Sheets("Input").Select 
     targetRange.Select 
     Call targetRange.Sort(Sheets("Input").Range("A3"), xlAscending) 
    End If 

End Sub 

但是，這給我的錯誤the command you chose cannot be performed with multiple selections. Select a single range and click the command again.

Answer 1

您可以使用SpecialCells：

Dim targetRange As Range 
On Error Resume Next 'In case of not finding any cell under the requested conditions. 
Set targetRange = inputRange.SpecialCells(xlCellTypeConstants) 

inputRange包括所有單元格和targetRange只是不包含公式的單元格。

UPDATE：

Dim targetRange As Range 
On Error Resume Next ' If range is nothing, throws an error - we don't want that 
Set targetRange = inputRange.SpecialCells(xlCellTypeConstants) 
Call targetRange.Sort(targetRange.Cells(1, 1), xlAscending) 
'targetRange.Sort targetRange.Cells(1, 1), xlAscending -> alternative not requiring "Call" 

你不需要On Error GoTo 0，既不targetRange.Cells.count（如果targetRange沒有細胞，On Error Resume Next會抓住它 - >這就是爲什麼我包括這條線; SpecialCells有這種小的限制）。您不需要任何您包括的.Select電話。大概是在.Sort中引發錯誤的是Sheets("Input").Range("A3")，我用targetRange的第一個單元替換（不管它是什麼）。