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

hycc8787 · 发表于 2019-1-1 21:58

学习学习

laicw · 发表于 2019-1-3 16:49

看看讲解

forlovery · 发表于 2019-1-3 22:40

Sub alie()
Dim rg As Range
Set rg = Range("b:d").SpecialCells(xlCellTypeConstants).EntireRow
Intersect(Range("a:a"), rg).Value = 1
End Sub

yxy7793 · 发表于 2019-1-4 07:44

学习学习

xia0mihu · 发表于 2019-1-6 10:00

回复内容：学习学习

苏萋苒 · 发表于 2019-1-8 16:28

参考下前辈们的作业

coralpeng · 发表于 2019-1-10 15:08

学习

catann58 · 发表于 2019-1-11 22:23

大家都太棒了

tianhui0318 · 发表于 2019-1-12 10:04

学习一下

tianhui0318 · 发表于 2019-1-12 11:11

csmccdh 发表于 2011-7-6 18:25
不好意思，我开始忘用回复可见了！

**** 本内容被作者隐藏 ****

麻烦请教一下，range前面加一个点代表什么意思？copy方法不是不能加点吗？If i = 1 Then wbk.Sheets(i).UsedRange.Copy .Range("A1")
Else
wbk.Sheets(i).UsedRange.Offset(1, 0).Copy .Range("A" & .[A65536].End(xlUp).Row + 1)
End If

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