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

ypbnyn · 发表于 2011-7-22 20:27

回复可见？

quasimodo · 发表于 2011-7-27 20:45

第二题做不来～～～

开心萝卜惠州 · 发表于 2011-7-29 12:28

学习参考最佳答案

时光翩翩 · 发表于 2011-7-29 13:19

请老师批改.

VBA80第12集习题(完成).rar (17.46 KB, 下载次数: 99)

serenaWu · 发表于 2011-8-2 13:25

Sub t1()
Range("B:D").SpecialCells(xlCellTypeConstants).Select
Range("B:D").SpecialCells(xlCellTypeConstants).Value = "1"
End Sub

Sub t2()
Dim wb1 As Workbook, wb2 As Workbook, i As Integer, x As Integer, y As Integer

Set wb = ThisWorkbook

For x = 1 To Windows.Count
If Windows(x).Caption = "A.xls" Then
   Exit For
End If
If x = Windows.Count Then
   Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
End If
Next x

For i = 1 To Workbooks("A.xls").Sheets.Count
  If i = 1 Then
Workbooks("A.xls").Sheets(i).UsedRange.Copy wb.Sheets("sheet1").Range("A1")
  Else
y = Range("a65536").End(xlUp).Row + 1
Workbooks("A.xls").Sheets(i).UsedRange.Copy wb.Sheets("sheet1").Range("A" & y)
wb.Sheets("sheet1").Rows(y).Delete
  End If
Next i
End Sub

shazilo · 发表于 2011-8-2 19:00

坚持学习,不过先要挣金币

huweifvba · 发表于 2011-8-5 21:29

来学习学习

zhuosheng1986 · 发表于 2011-8-17 14:50

dddddddddddddddd

zhuosheng · 发表于 2011-8-18 10:15

dddddddddddddd

twandou · 发表于 2011-8-21 14:54

搞不好，学习下

		自动登录	找回密码
密码			注册

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

评分