跳到主要内容

如何在Excel中仅复制和粘贴非空白单元格?

我们大多数人都可能会遇到此问题,当我们复制包含一些空白单元格的数据列表,然后将它们粘贴到另一列时,空白单元格也将被粘贴。 当我们不需要空白并且只希望粘贴非空白单元格时,这非常烦人。 在这种情况下,我们如何才能快速便捷地仅复制和粘贴Excel中的非空白单元格? 以下是一些解决您的快速技巧:

使用转到特殊命令仅复制和粘贴非空白单元格

使用过滤器功能仅复制和粘贴非空白单元格

使用阵列公式仅复制和粘贴非空白单元格

仅复制和粘贴带有VBA代码的非空白单元格

使用 Kutools for Excel 仅复制和粘贴非空白单元格 好主意3


箭头蓝色右气泡 使用转到特殊命令仅复制和粘贴非空白单元格

随着 定位条件 命令,您可以先选择所有数据,然后将其复制并粘贴到其他位置。

1。 选择您要使用的数据列表。

仅文档复制非空白1

2。 然后点击 主页 > 查找和选择 > 定位条件,请参见屏幕截图:

仅文档复制非空白1

3。 在 定位条件 对话框,检查 常量 选项,请参见屏幕截图:

仅文档复制非空白1

4。 然后点击 OK,并且仅在列表中选择了值单元格。

仅文档复制非空白1

5。 然后将数据复制并粘贴到所需的位置。 并且仅粘贴了非空白单元格值。 看截图:

仅文档复制非空白1

备注:此方法仅适用于常量,不适用于公式单元格。


箭头蓝色右气泡 使用过滤器功能仅复制和粘贴非空白单元格

筛选器 功能可以帮助您首先过滤非空白单元格,然后可以根据需要将其复制并粘贴到其他单元格中。

2。 点击 时间 > 筛选器,请参见屏幕截图:

doc仅复制nonblanks6

3。 然后点击所选列表中单元格右上角的下拉按钮,然后取消选中 空白 下拉菜单下的选项。 看截图:
仅文档复制非空白1

4。 然后点击 OK,所有非空白的单元格都被过滤掉,如下面的屏幕截图所示:

仅文档复制非空白1

5。 最后,您可以复制过滤的数据并将其粘贴到所需的任何位置。

备注:值和公式都通过这种方式生效。


一次选择非空白单元格

点击即可获得 30 天的免费全功能试用!
doc kutools选择非空白单元格

箭头蓝色右气泡 使用阵列公式仅复制和粘贴非空白单元格

要仅复制和粘贴非空白单元格,您还可以应用以下数组公式。

1。 除了数据外,在空白单元格中输入以下公式:

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

仅文档复制非空白1

备注:在以上公式中, A1:A15 是您要使用的数据列表。您可以根据需要进行更改。

2。 然后按 Shift + Ctrl + 输入 组合在一起,然后选择单元格B1,并将填充手柄拖到您要包含此公式的范围内,并且所有非空白单元格值均已提取。 看截图:

仅文档复制非空白1

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 键以运行此代码,将出现一个提示框,提醒您选择要使用的数据范围。 看截图:

仅文档复制非空白1

4。 然后点击 OK,则会弹出另一个提示框,让您选择一个单元来放置数据。

仅文档复制非空白1

5. 点击 OK 完成此代码,并且只有非空白单元格值已粘贴到您指定的位置。

备注:此代码仅可用于常量。


箭头蓝色右气泡 使用 Kutools for Excel 仅复制和粘贴非空白单元格

有没有比以上更简单的方法? 当然, Kutools for Excel's 选择非空白单元格s实用程序可以帮助您首先选择非空白单元格,然后复制并粘贴它们。

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

免费安装 Kutools for Excel,请执行以下操作:

1.选择单元格范围,然后单击 库工具 > 选择 > 选择非空白单元格。 看截图:
doc选择非空白单元格2

2.然后选择非空白单元格,按 按Ctrl + C 复制它们,然后选择要输出粘贴结果的单元格,按 按Ctrl + V 粘贴选定的非空白单元格。 看截图:
doc选择非空白单元格3

箭头蓝色右气泡 仅复制和粘贴非空白单元格

Kutools for Excel:Excel 中必须具备的 300 多个函数, 从这里免费试用30天

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
=Filter(A:A,A:A<>"")
This comment was minimized by the moderator on the site
Array formula Works fine on text
but don't work on numbers.
This comment was minimized by the moderator on the site
Not working on Numbers !!!
Works fine on text !!!
Please guide
This comment was minimized by the moderator on the site
Thanks for the great tips! I am using the Find & Select feature, but it's taking a long time because my spreadsheet contains 70 columns and 450k rows. Is there a way to fasten the process?
This comment was minimized by the moderator on the site
When i select and copy only non-blank cells, how can i then paste it somewhere else with keeping the same empty ranges between them?
This comment was minimized by the moderator on the site
These tools delete the blank cells and compress the row. I want the format to be retained, including the spaces, but I do not want empty cells to overwrite cells containing existing data. i.e. I want to add the new, copied, cells in a column onto an existing column.
This comment was minimized by the moderator on the site
Hi #abc I have used your formula =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMAL L(IF('List of Overdue items'!A$1:A$15 00"",ROW('List of Overdue items'!A$1:A$15 00)),ROWS('List of Overdue items'!B$1:B2)) ))) I have data in one Worksheet and want to copy that data into another worksheet (same doc). Can you help?
This comment was minimized by the moderator on the site
Is there a way to make the macro work when referencing between different sheets?
This comment was minimized by the moderator on the site
This formula is absolutely amazing, thank you. Unfortunately it breaks when trying to copy from another sheet, is there a workaround?
This comment was minimized by the moderator on the site
correct the references when using the formula between different sheets. It does work. =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMALL(IF('List of Overdue items'!A$1:A$1500"",ROW('List of Overdue items'!A$1:A$1500)),ROWS('List of Overdue items'!B$1:B2)))))
This comment was minimized by the moderator on the site
thanks for the super formula: =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations