Note: The other languages of the website are Google-translated. Back to English

如何在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 for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

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

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (11)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
感谢超级公式: =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1: $A$15)),ROWS($B$1:B1)))))
该评论由网站上的主持人最小化
这个公式真是太棒了,谢谢。 不幸的是,尝试从另一张纸复制时它会中断,有解决方法吗?
该评论由网站上的主持人最小化
在不同工作表之间使用公式时更正引用。 它确实有效。 =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('过期物品列表'!A:A,SMALL(IF('过期物品列表'!A$1:A$1500"", ROW('过期物品清单'!A$1:A$1500)),ROWS('过期物品清单'!B$1:B2)))))
该评论由网站上的主持人最小化
在不同工作表之间引用时,有没有办法使宏工作?
该评论由网站上的主持人最小化
嗨#abc 我使用了你的公式 =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('过期项目列表'!A:A,SMAL L(IF('过期项目列表' !A$1:A$15 00"",ROW('逾期物品清单'!A$1:A$15 00)),ROWS('逾期物品清单'!B$1:B2)) ))) 我有数据一个工作表并希望将该数据复制到另一个工作表(相同的文档)。 你能帮我吗?
该评论由网站上的主持人最小化
这些工具删除空白单元格并压缩行。 我希望保留格式,包括空格,但我不希望空单元格覆盖包含现有数据的单元格。 即,我想将列中的新复制单元格添加到现有列中。
该评论由网站上的主持人最小化
当我只选择并复制非空白单元格时,如何将其粘贴到其他地方并在它们之间保持相同的空白范围?
该评论由网站上的主持人最小化
感谢您宝贵的提示! 我正在使用查找和选择功能,但由于我的电子表格包含 70 列和 450k 行,因此需要很长时间。 有没有办法加快这个过程?
该评论由网站上的主持人最小化
不在数字上工作!
在文本上工作正常!
请指导
该评论由网站上的主持人最小化
数组公式适用于文本
但不要在数字上工作。
该评论由网站上的主持人最小化
=过滤器(A:A,A:A<>“”)
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护