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

金色之刃

学习一下

wohenan13

看看是不是要的

SUYNKG

向诸位前辈学习，讨教

贝利宝贝

报道了

74Y1085

学习

无痕音速

自己跑了几遍应该是对的

Sub t4()  '第一题解答
  Intersect(Columns("A"), Range("b:d").SpecialCells(xlCellTypeConstants).EntireRow) = 1
End Sub

Sub t15()   '第二题解答
  Dim wb As Workbook, x As Integer
  Workbooks.Open (ThisWorkbook.Path & "\A.xls")
  Set wb = ActiveWorkbook
  For x = 1 To wb.Sheets.Count
   If x = 1 Then
      wb.Sheets(x).UsedRange.Copy ThisWorkbook.Sheets("第2题(2)").Range("a65536").End(xlUp)
   Else
      wb.Sheets(x).UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets("第2题(2)").Range("a65536").End(xlUp).Offset(1, 0)
   End If
  Next x
  wb.Close True
End Sub

无痕音速

自己跑了几遍应该是对的

Sub t4()  '第一题解答
  Intersect(Columns("A"), Range("b:d").SpecialCells(xlCellTypeConstants).EntireRow) = 1
End Sub

Sub t15()   '第二题解答
  Dim wb As Workbook, x As Integer
  Workbooks.Open (ThisWorkbook.Path & "\A.xls")
  Set wb = ActiveWorkbook
  For x = 1 To wb.Sheets.Count
   If x = 1 Then
      wb.Sheets(x).UsedRange.Copy ThisWorkbook.Sheets("第2题(2)").Range("a65536").End(xlUp)
   Else
      wb.Sheets(x).UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets("第2题(2)").Range("a65536").End(xlUp).Offset(1, 0)
   End If
  Next x
  wb.Close True
End Sub

CAIKIMKIM

好难啊

handy08

查看正解答案

meiduer00

学习