2017-08-17 16 views
2

我的問題是Excel電子表格(從Access導出爲.xls)的單元格看起來是空的,但沒有。這是扼殺我的計算&導航快捷鍵。來自Access導出的Excel單元格看起來是空的,但不是(= isblank = FALSE)

單元格中沒有公式或內容(已發佈在本主題上的答案不能解決我的問題)。我已附加我的問題的圖像(參見下圖)

故障排除示出:

  • 如果我例如,測試這些細胞=isblank(a1),它是FALSE

  • 細胞lengnth爲0,根據=LEN(a1)

  • 如果我嘗試「去(特殊)突出‘空白’(或任何其他去一個像公式/文字,數字等特殊組合)它不會突出顯示這些空單元格

  • 是如果我篩選列,我可以從篩選器列表中選擇這些非空「空白」(這是唯一的方法來識別這些棘手的細胞我已經迄今爲止發現) -

所以我的列在一些單元格中有「空白」非空單元格的條目。我只想要帶有條目的單元格,剩下的我需要清除。這也令人討厭,這意味着跳到下一個空或非空單元格的快捷方式將無法正常工作(它全部讀取爲非空白) - 導致瀏覽大型數據集時非常痛苦。一旦我點擊一個單獨的「非空」空白單元格&按回車,這似乎清除單元格內容('=isblank'公式的說'FALSE'現在切換到'真') - 這不是儘管可以將個體細胞固定在如此大的數據集中。


任何人都可以幫忙嗎?!

我發現了2個基本的解決方法可以解決這個問題,但是我真的很想知道&爲什麼會發生這種情況&如何在將來避免它。

解決方法1 在excel中,過濾列,只顯示「空白」,然後突出顯示已過濾的列&按刪除。 Unfilter列表&解決的問題。 解決方法2 將保存爲'.csv'的'file.xlsx'&保存爲Excel電子表格。 全部關閉,打開csv &看來非空的空白單元格被修復,顯示=isblank= TRUE &現在可以用[CNTL箭頭鍵]快捷鍵跳過。

這太令人沮喪了&我還沒有看到類似的問題,也沒有回答這是爲什麼?

爲什麼會發生這種情況&有沒有其他修補程序? 感謝hive-mind! excel sheet shows non-blank empty cells - working

+0

使用= A1 =「」或= IF(A1 =「」,「空白」,「數據存在於單元格中」) – Sixthsense

+0

Ooo,工作!謝謝sixsense!這會影響到不同的列。任何方式直接清除列中的細胞(我知道我可以根據是否列B'空白'或'存在數據'過濾col A) - 從訪問導出之前或在Excel中? –

+0

在ms-access中,您可以通過選擇Isnull作爲將顯示空白單元格的條件來使用Filter(特別是列)。在Excel中,您可以使用幫助欄中的建議公式來了解實際的空白,或者您也可以在Excel中使用自動過濾器,並從下拉列表中選擇空白以識別實際的空白(不像isblank()函數)。 – Sixthsense

回答

0

有時很好地讓ctrl +向上/向下停止在數據集的邊緣,其他時間不是這樣;這裏是我用來清除選定範圍的「空白」細胞宏時,它不是:

'clears cells with error or empty string values 
Public Sub clearJunk() 
    Dim scrn As Boolean: scrn = Application.ScreenUpdating: Application.ScreenUpdating = False 

    Dim i As Long, rowCount As Long, FirstRow As Long 
    Dim col As Range 

    rowCount = Selection.Columns(1).Cells.count 
    FirstRow = Selection.Cells(1).Row - 1 
    For Each col In Selection.Columns 
     For i = 1 To rowCount 
      If IsEmpty(col.Cells(i)) Then i = col.Cells(i).End(xlDown).Row - FirstRow 
      If i > rowCount Then Exit For 
      If IsError(col.Cells(i).Value) Then 
       col.Cells(i).ClearContents 
      ElseIf col.Cells(i).Value = "" Then 
       col.Cells(i).ClearContents 
      ElseIf Trim(col.Cells(i).Value) = "" Then 
       col.Cells(i).ClearContents 
      End If 
     Next i 
    Next col 

    Application.ScreenUpdating = scrn 
End Sub 

此外,如果你是從MS-訪問複製和粘貼,你可能會發現這一個太有用:

Public Sub UnWrapText(): Selection.WrapText = False: End Sub 

我已經在我的色帶/ QAT勢必既按鈕和它讓我的生活更自由的麻煩。

相關問題