您可以使用 AutoFilter 方法，它將節(jié)省您在所有行中使用 For 循環(huán)的需要，并且只需將整個過濾范圍復(fù)制到"Tab 2"工作表 .

Code (評論內(nèi)部評論)

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

總結(jié)

以上是生活随笔為你收集整理的java导入excel时去除空行,使用VBA将空行复制到新工作表后删除Excel中的空行的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。