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

ting1001

继续学习呀，感觉vba不好学呢

fuxuanbo

忙了两天终于搞定第12集的作业了，代码还不够简练，需要继续努力！！！坚持住...{:011:}

1. Option Explicit
   
2. 
   
3. Sub 第1题()
   
4. 
   
5. Range("B:B").Copy
   
6. Range("A:A").PasteSpecial skipBlanks:=True
   
7. Range("C:C").Copy
   
8. Range("A:A").PasteSpecial skipBlanks:=True
   
9. Range("D:D").Copy
   
10. Range("A:A").PasteSpecial skipBlanks:=True
    
11. Selection.SpecialCells(xlCellTypeConstants).Select
    
12. Selection.Value = 1
    
13. 
    
14. 
    
15. End Sub
    
16. 
    
17. Sub 第2题()
    
18. 
    
19. Dim x As Integer
    
20. Dim y As Integer
    
21. Dim wb As Workbook
    
22. Dim rg As Range
    
23. 
    
24. Application.EnableEvents = False
    
25. 
    
26. Set wb = Workbooks.Open("E:\资料库\VBA\VBA基础入门（第二版）\赠送视频\VBA80第12集\A.xls")
    
27. With ThisWorkbook.Sheets("第2题")
    
28. For x = 1 To wb.Sheets.Count
    
29. If x = 1 Then
    
30. Set rg = .Range("a65536").End(xlUp).Offset(0, 0)
    
31. wb.Sheets(x).UsedRange.Copy rg
    
32. 
    
33. Else
    
34. Set rg = .Range("a65536").End(xlUp).Offset(1, 0)
    
35. wb.Sheets(x).UsedRange.Copy rg
    
36. 
    
37. End If
    
38. Next x
    
39. wb.Close
    
40. y = 2
    
41. For y = 2 To 1000
    
42. If .Range("A" & y).Value = "销售顾问" Then
    
43. .Range("A" & y).EntireRow.Delete
    
44. End If
    
45. Next y
    
46. End With
    
47. Application.EnableEvents = True
    
48. 
    
49. End Sub
    
50. 
    

复制代码

xxjjdd0000

只有慢慢学习研究，才能一知半解。

kamei

看看答案                                 

xfxxwangys

继续学习继续学习继续学习

228869831

好难！！！！！！！！！！！！！！！

ifcu

不会做，看下答案

ifcu

如果非空单元格为含有公式的单元格如何处理

jylx

有难度,学习他人,为我所用

zjcat35

学习答案来了！ 第二题做不出来