VBA80集第12集作业上交贴：非空行

Tracy胖哈哈

过来学习了

Tracy胖哈哈

继续学习

dongsx

学习

a345302313

Nutcracker233

1111

wang002368

学习大佬一下

cd1997

学习

Cosco123

学习，学习~~

Cosco123

学习，学习~~

leoxxx

1. Sub t1()
   
2.     Columns(1).ClearContents '清除区域中的公式和值
   
3.     Intersect(Columns(1), Columns("B:D").SpecialCells(2).EntireRow) = 1 'A列与B:D列中非空单元格所在的行的交集
   
4. End Sub
   
5. Sub t2()
   
6.     Dim i As Integer, wb As Workbook, rg As Range
   
7.     ThisWorkbook.Sheets(2).UsedRange.ClearContents '清除区域中的公式和值
   
8.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\\A.xls")   
   
9.     For i = 1 To wb.Sheets.Count
   
10.         If i = 1 Then
    
11.             wb.Sheets(i).UsedRange.Copy
    
12.             ThisWorkbook.Sheets(2).[a1].PasteSpecial Paste:=xlPasteValues '复制值到目标表格
    
13.         Else
    
14.             Set rg = wb.Sheets(i).UsedRange.End(xlDown).End(xlToRight) '选中区域的最后一个单元格
    
15.             wb.Sheets(i).UsedRange.Range("a2", rg).Copy '复制除第一行以外的区域
    
16.             ThisWorkbook.Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    
17.            '粘贴值到目标表格非空单元格的下面一格
    
18.         End If
    
19.     Next i
    
20.     wb.Close False
    
21. End Sub
    

复制代码