如何在 Excel 中只複製並貼上非空白的儲存格？

作者Xiaoyang修改日期2024-08-26

我們大多數人都可能遇過這個問題：當複製一組包含空白儲存格的資料並貼到另一欄時，這些空白儲存格也會一併貼上。若不需要這些空白，只想貼上非空白儲存格，這種情況確實令人困擾。那麼，Excel 中是否有快速又方便的方法，能只複製並貼上非空白儲存格呢？以下提供幾種實用技巧供您參考：

使用「定位條件」指令僅複製並貼上非空白儲存格

使用 Kutools for Excel 僅複製並貼上非空白儲存格

使用篩選功能僅複製並貼上非空白儲存格

使用陣列公式僅複製並貼上非空白儲存格

使用 VBA 程式碼僅複製並貼上非空白儲存格

使用「定位條件」指令僅複製並貼上非空白儲存格

透過定位條件指令，您可先選取所有資料，再輕鬆複製並貼到其他位置！

1. 選取您要使用的資料清單。

選取資料清單

2. 接著點選「首頁」＞「尋找與選取」＞「定位條件」，請參閱截圖：

點擊「首頁」>「尋找與選取」>「定位條件」的螢幕截圖

3. 在「定位條件」對話方塊中，勾選「常數」選項，請參閱截圖：

在「定位條件」對話方塊中勾選「常數」選項

4. 然後點選「確定」，清單中便僅會選取含有數值的儲存格。

所有數值儲存格皆已選取

5. 接著將資料複製並貼到您想要的位置，此時僅會貼上非空白儲存格的內容。請參閱截圖：

複製並貼上資料到其他位置

注意：此方法僅適用於常數，不適用於包含公式的儲存格。

使用 Kutools for Excel 僅複製並貼上非空白儲存格

是否有比上述方法更簡單的方式？當然有！Kutools for Excel 的「選取非空白儲存格」工具，能讓您先快速選取所有非空白儲存格，再輕鬆完成複製與貼上！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝免費版 Kutools for Excel 後，請依照下列步驟操作：

1. 選取儲存格範圍後，點選 「Kutools」 > 「選取」 > 選擇非空儲存格。請參閱截圖：

2. 此時非空白儲存格將自動被選取，按下 Ctrl + C 複製，接著選取您要貼上結果的儲存格，再按下 Ctrl + V 即可貼上所選的非空儲存格。請參閱截圖：
複製並貼上所選的非空白儲存格到其他位置

使用篩選功能僅複製並貼上非空白儲存格

善用篩選功能，先篩選出非空白儲存格，再依需求複製貼上至其他儲存格，輕鬆提升效率！

2. 點選「資料」＞「篩選」，請參閱截圖：

點擊「資料」>「篩選」的螢幕截圖

3. 接著點選所選清單中儲存格右上角的下拉按鈕，在下拉選單中取消勾選「空白」選項，操作畫面請參閱下方截圖：
從篩選功能中取消勾選「空白」選項

4. 接著點選「確定」，所有非空白儲存格將如以下截圖所示被篩選出來：

所有非空白儲存格皆已篩選出來

5. 最後，您即可複製篩選後的資料，並貼上至任何需要的位置。

注意：此方法同時適用於數值與公式。

使用陣列公式僅複製並貼上非空白儲存格

若要僅複製並貼上非空白儲存格，您還可套用下列陣列公式。

1. 在您資料旁的空白儲存格中輸入下列公式：

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

輸入公式以取得第一筆結果

注意：在上述公式中，A1:A15 為您要使用的資料清單，可依需求自行調整。

2. 接著同時按下 Shift + Ctrl + Enter 鍵，選取 B1 儲存格，並向下拖曳填滿控點至所需範圍，即可提取所有非空白儲存格的值。請參閱截圖：

拖曳並填滿公式至其他儲存格，以取得所有非空白儲存格的值

3. 由於這些內容為公式，當您將其複製到其他位置時，請使用「選擇性貼上」→「值」的方式貼上，以確保資料正確無誤！

注意：此公式僅適用於常數，不適用於包含公式的儲存格。

使用 VBA 程式碼僅複製並貼上非空白儲存格

若您熟悉 VBA 程式碼，可執行下列程式碼輕鬆完成此任務。

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選「插入」＞「模組」，並將下列程式碼貼到模組視窗中。

VBA 程式碼：在 Excel 中僅複製並貼上非空白儲存格

Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
    MsgBox "Please select one column."
    Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub

3. 接著按下 F5 鍵執行此程式碼，系統將彈出提示方塊，提醒您選取要使用的數據區域。請參閱截圖：

用於選取資料清單的 VBA 程式碼

4. 點選「確定」後，將會出現另一個提示方塊，讓您選擇要放置資料的儲存格。

用於選取儲存格以放置結果的 VBA 程式碼

5. 點選「確定」完成此程式碼，此時僅非空白儲存格的內容會貼到您指定的位置。

注意：此程式碼僅適用於常數。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多