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

e2solo · 发表于 2011-10-19 21:33

游客，如果您要查看本帖隐藏内容请回复

datou4281 · 发表于 2011-10-20 23:16

i see see

fsezllq · 发表于 2011-10-21 17:20

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

wyf22006 · 发表于 2011-10-29 18:24

本帖最后由 wyf22006 于 2011-10-29 18:58 编辑

Sub fk() '非空填“1”
Columns("B:D").SpecialCells(xlCellTypeConstants, 23) = 1
End Sub
Sub sjhb() '数据合并
Dim wk As Workbook, i As Integer
ThisWorkbook.Sheets("第2题").Range("A1").CurrentRegion.Clear
Set wk = Workbooks.Open(ThisWorkbook.Path & "/A.xls")
For i = 1 To wk.Sheets.Count
If i = 1 Then
wk.Sheets(i).UsedRange.Copy ThisWorkbook.Sheets("第2题").Range("A1")
Else
wk.Sheets(i).UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets("第2题").Range("A" & ThisWorkbook.Sheets("第2题").Range("A65536").End(3).Row + 1)
End If
Next
wk.Close False
End Sub

复制代码

不知道什么时候有权限可以使用[hide]

郭孚波 · 发表于 2011-10-29 21:03

好好好好好好好好好好好好好好好

ranzhaohang · 发表于 2011-11-2 21:40

不循环的好方法

brightleaf · 发表于 2011-11-7 12:22

求教求教~学习高人做法

zhaoxianqi132 · 发表于 2011-11-8 00:09

xuexie
xue xi

.
.

qlh1978 · 发表于 2011-11-8 15:04

看看回复方式

qlh1978 · 发表于 2011-11-8 15:06

Sub 第一题_()
Sheets("第1题").UsedRange.Select
Selection.SpecialCells(xlCellTypeConstants).Select
Intersect(Columns("a:a"), Selection.EntireRow) = 1
End Sub

Sub 第二题()
Workbooks("A.xls").Sheets(1).Range("a1").CurrentRegion.Copy Sheets("第2题").Range("a1")
Dim a As Byte

For a = 1 To Workbooks("A.xls").Sheets.Count - 1

Intersect(Workbooks("A.xls").Sheets(a + 1).Range("a2:iv65536"), Workbooks("A.xls").Sheets(a + 1).Range("a1").CurrentRegion).Copy _
Destination:=Workbooks("第12集练习题.xls").Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0)

Next a
End Sub

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