国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

Sub 合并表()
'把各工作表合并到"匯總"工作表中
Rows("2:65536").Clear '刪除原有記錄
Dim sht As Worksheet, xrow As Integer, rng As Range
For Each sht In Worksheets '遍歷工作簿中所有工作表
If sht.Name <> ActiveSheet.Name Then
Set rng = Range("a65536").End(xlUp).Offset(1, 0) '獲得A列第一空單元格
xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1 '獲得分表中的記錄條數(shù)
sht.Range("a2").Resize(xrow, 7).Copy rng '粘貼記錄到匯總表
End If
Next
End Sub

Sub 刪空白行()
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count ‘獲取已有行數(shù)
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

如果單獨運行“刪除空白行”的過程沒問題！如果運行完“合并表”的過程，在運行“刪除空白行”的過程時，就出現(xiàn)死循環(huán)！

這要怎么解決