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

hwl189 · 发表于 2018-12-7 14:54

看答案

zxcasq · 发表于 2018-12-8 14:34

学习

yisuel · 发表于 2018-12-9 21:41

观摩

huazhigege · 发表于 2018-12-10 12:22

知识都快忘记了，重新温习一下

jxzmxia · 发表于 2018-12-11 20:24

好好学习，天天向上

terry_lzx · 发表于 2018-12-19 14:53

支持兰版。

pandahu68 · 发表于 2018-12-20 17:40

看看答案

hyz00001 · 发表于 2018-12-23 08:16

看看。

hyz00001 · 发表于 2018-12-23 08:22

这是一个好东西，以前要rows.count ,columns.count的来判断，现在用这个就行。

xlCellTypeLastCell：已用区域中的最后一个单元格

hyz00001 · 发表于 2018-12-23 08:31

Sub 第二题()
ar = Sheets("1月").UsedRange
x = Sheets("2月").Cells.SpecialCells(xlCellTypeLastCell).Row
y = Sheets("2月").Cells.SpecialCells(xlCellTypeLastCell).Column
br = Sheets("2月").Range(Cells(2, 1), Cells(x, y))
Sheets.Add
[a1].Resize(UBound(ar), UBound(ar, 2)) = ar
[a1].Offset(Cells.SpecialCells(xlCellTypeLastCell).Row).Resize(UBound(br), UBound(br, 2)) = br
End Sub

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