java导入excel时去除空行,使用VBA将空行复制到新工作表后删除Excel中的空行

您可以使用 AutoFilter 方法，它将节省您在所有行中使用 For 循环的需要，并且只需将整个过滤范围复制到"Tab 2"工作表 .

Code (评论内部评论)

Option Explicit

Sub CopyRow()

Application.ScreenUpdating = False

Dim x As Long

Dim MaxRowList As Long

Dim MaxCol As Long

Dim S As String

Dim aCol As Long

Dim wsSource As Worksheet

Dim wsTarget As Worksheet

Dim SourceRng As Range

Dim VisRng As Range

Set wsSource = ThisWorkbook.Worksheets("Tab 1")

Set wsTarget = ThisWorkbook.Worksheets("Tab 2")

aCol = 1

With wsSource

MaxRowList = .Cells(.Rows.Count, aCol).End(xlUp).Row ' find last row

MaxCol = .Cells(1, .Columns.Count).End(xlToLeft).Column ' find last column

Set SourceRng = .Range(.Cells(1, 1), .Cells(MaxRowList, MaxCol)) ' set source range to actually occupied range

.Range("A1").AutoFilter ' use AutoFilter method

SourceRng.AutoFilter Field:=1, Criteria1:="2016"

Set VisRng = SourceRng.SpecialCells(xlCellTypeVisible) ' set range to filterred range

VisRng.Copy ' copy entire visible range

wsTarget.Range("A2").PasteSpecial xlPasteValues ' past with 1 line

End With

Application.ScreenUpdating = True

End Sub

java导入excel时去除空行,使用VBA将空行复制到新工作表后删除Excel中的空行相关推荐

python excel sheet 复制_使用Python win32com将整个excel工作表复制到新工作表
我试图打开名为"N11 Result.xlsx"的现有工作簿.复制整个工作表"Sheet1"(将其重命名为"build with Python&quo ...
怎样快速删除Word中的空行
怎样快速删除Word中的空行平时我们经常会在网站上下载一些文章,用 "复制"."粘贴"到word中进行编辑.经常会出现粘贴到word格式乱七八糟,有很多我们不 ...
excel按条件选择工作表_在Excel工作表中选择“实际使用范围”
excel按条件选择工作表 It's easy to select the current range in Excel – just press Ctrl + A. That shortcut se ...
如何用VBA快速批量提取多个工作表名称？
工作中,我们有时会需要将多个工作表Sheet的名称提取出来,制作成一个目录如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢? 我们可以用VB ...
【原创】怎样关联多个 Excel 档工作表（Sheet）中的数据
怎样关联多个 Excel 档工作表(Sheet)中的数据作者:寒羽枫前不久,有位同事问我有没有办法将两个 Excel 档的数据通过工号整合起来.查阅资料后,得到以下经验,现拿出来与大家一起分享.有 ...
VBA实战技巧精粹004：在工作簿中添加新工作表
使用Worksheets集合或Sheets集合的Add方法可以实现在指定位置添加新工作表,并且添加后的新工作表自动为活动工作表. Sub 插入新工作表并改名() With Worksheets ...
linux中删除文件的空行,Linux 删除文件中的空行
Linux 删除文件中的空行相信很多朋友在日常的开发过程中经常要处理一些文本, 其中很重要的一部分就是要删除文本中的空行, 例如下面的文本 (我现在的开发环境是 HP-UX , 在 Linux 环境 ...
vba批量合并指定的sheet_Excel通用VBA代码一键合并多个工作表至总表！
原标题:Excel通用VBA代码一键合并多个工作表至总表! 一个工作簿中会有很多个相同格式,标题行内容和顺序都一样的工作表,我们想把这个工作表中的数据全部放至一个总表数据中. 图片上示例是3个工作表, ...
计算机删除文档中所有的空行,win7系统如何删除word中的空行 word空行删除方法...
在win7纯净版系统中,我们经常会使用word工具来编辑文档,但是在编辑文档的过程中,有时候会发现编辑完成后文章底部总是会有多余的一行空行无法删除,那么要怎么删除word中的空行呢?本文就给大家分享一 ...

java导入excel时去除空行,使用VBA将空行复制到新工作表后删除Excel中的空行

java导入excel时去除空行,使用VBA将空行复制到新工作表后删除Excel中的空行相关推荐

最新文章

热门文章