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

qianqinglong · 发表于 2017-5-20 16:42

第一题不用for循环不会

第二题
Sub h2()
  Dim wb As Workbook
  Dim x As Integer
  Dim lastRow As Integer
  Dim startRow As Integer

  Set wb = Workbooks.Open("E:\vba\VBA80_第12集.特殊单元格定位\A.xls")

  For x = 1 To wb.Worksheets.Count
lastRow = wb.Sheets(x).Range("a65535").End(xlUp).Row
startRow = Range("a65535").End(xlUp).Offset(1, 0).Row
If Range("a1") = "" Then
   wb.Sheets(x).Range("a1:d" & lastRow).Copy Destination:=Cells(startRow - 1, 1)
Else
   wb.Sheets(x).Range("a2:d" & lastRow).Copy Destination:=Cells(startRow, 1)
End If

  Next

  wb.Close

End Sub

xiaokang919 · 发表于 2017-5-21 11:36

学习

wuyaxue20 · 发表于 2017-5-21 18:13

学习

wuyaxue20 · 发表于 2017-5-21 18:14

学习

bufuyilu · 发表于 2017-5-22 21:01

林枫多多 · 发表于 2017-5-22 23:19

做不出来

bellatong · 发表于 2017-5-24 17:49

xiexie !

kwdg · 发表于 2017-5-25 10:40

学习

c2003921 · 发表于 2017-5-25 18:12

VBA80第12集_特殊单元格定位.rar (17.76 KB, 下载次数: 4)

没耳朵的兔子 · 发表于 2017-5-25 18:17

想看答案

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