Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 兰色幻想

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

  [复制链接]
发表于 2011-9-9 11:07 | 显示全部楼层
他们的金币都好多呀,我的怎么积累不下来呢
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2011-9-11 20:14 | 显示全部楼层
回复

使用道具 举报

发表于 2011-9-11 21:04 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

发表于 2011-9-13 14:37 | 显示全部楼层
越来越难了啊啊
回复

使用道具 举报

发表于 2011-9-15 22:02 | 显示全部楼层
多学习点,呵
回复

使用道具 举报

发表于 2011-9-17 17:22 | 显示全部楼层
来学习的。
回复

使用道具 举报

发表于 2011-9-17 17:28 | 显示全部楼层
本帖最后由 scsys1 于 2011-9-17 17:29 编辑
  1. Sub 第1题()
  2.     Intersect(Columns(1), Range("B:D").SpecialCells(xlCellTypeConstants).EntireRow) = 1
  3. End Sub
  4. Sub 第2题()
  5. Dim AK As Workbook
  6. Dim arow As Integer
  7. Dim acolumn As Integer
  8. Dim trow As Integer
  9. Dim i As Integer
  10.     Application.ScreenUpdating = False
  11.         Set AK = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
  12.             For i = 1 To AK.Sheets.Count
  13.                 arow = AK.Sheets(i).Range("a65536").End(xlUp).Row
  14.                 acolumn = AK.Sheets(i).Range("iv1").End(xlToLeft).Column
  15.                 If i = 1 Then
  16.                     AK.Sheets(i).Range("A1").Resize(arow, acolumn).Copy ThisWorkbook.Sheets(2).Range("A1")
  17.                 Else
  18.                     trow = ThisWorkbook.Sheets(2).Range("a65536").End(xlUp).Row + 1
  19.                     AK.Sheets(i).Range("a2").Resize(arow - 1, acolumn).Copy ThisWorkbook.Sheets(2).Range("a" & trow)
  20.                 End If
  21.             Next
  22.         AK.Close False
  23.     Application.ScreenUpdating = True
  24. MsgBox "合并完成,请查看!", 64, "提示"
  25. End Sub
复制代码
回复

使用道具 举报

发表于 2011-9-19 21:53 | 显示全部楼层
看看 。。。。。。。。。。。。。。。。
回复

使用道具 举报

发表于 2011-9-20 10:22 | 显示全部楼层
看一下嘻嘻嘻嘻
回复

使用道具 举报

发表于 2011-9-25 21:37 | 显示全部楼层
来学学,呵呵
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:55 , Processed in 0.345377 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表