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

頔頔酱 · 发表于 2017-8-12 21:12

交流下

QQ123138106 · 发表于 2017-8-14 15:52

瞧瞧！！

cybean · 发表于 2017-8-14 20:39

goooooooooooood

u9508 · 发表于 2017-8-15 14:13

哈哈哈

syacc001 · 发表于 2017-8-17 11:13

求答案

ANDY0393 · 发表于 2017-8-17 21:31

Sub lx121()
Application.Intersect(Columns(1), Range("b:d").SpecialCells(xlCellTypeConstants, 23).EntireRow).Value = 1
End Sub
Sub lx122()
Dim wb As Workbook, i As Integer, irow As Integer, rng As Range, sht As Worksheet
Set sht = ThisWorkbook.Worksheets("第2题")
sht.Cells.ClearContents
Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
wb.Worksheets(1).UsedRange.Copy sht.Range("a1")
For i = 2 To wb.Worksheets.Count
irow = sht.Range("a65536").End(3).Row + 1
Set rng = wb.Worksheets(i).Range("a1").CurrentRegion.Offset(1, 0)
rng.Copy sht.Cells(irow, 1)
Next
wb.Close False
End Sub

复制代码

henryeternal · 发表于 2017-8-19 06:20

现在开始学习~

cc5233 · 发表于 2017-8-19 16:15

答案

红鲤鱼与绿鲤鱼 · 发表于 2017-8-19 22:13

temusen · 发表于 2017-8-21 13:50

不能用循环呀。。。。

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