a = Cells(Rows.Count, 1).End(xlUp).Row 'end属性
b = Columns(1).Find("*", , , , , xlPrevious).Row 'find方法
c = Cells.SpecialCells(xlCellTypeLastCell).Row 'specialcells方法
d = Sheet1.UsedRange.Rows.Count 'usedrange属性
e = [a1].CurrentRegion.Rows.Count 'currentregion属性
f = WorksheetFunction.CountA([a:a]) '工作表函数counta
g = Application.CountIf([a:a], "<>") '工作表函数countif
Sub 连接符单元格连接()
Dim rng As Range
For Each rngs In [b2:b10]
adss = rngs.Address
ads = ads & rngs.Address & ","
Next
ad = Left(ads, Len(ads) - 1)
End Sub
Sub union单元格连接()
Dim rng As Range, rngs As Range
Set rng = [b2]
For Each rngs In [b2:b10]
adss = rngs.Address
Set rng = Union(rng, rngs)
ads = rng.Address
Next
End Sub
Sub 隔行插入()
For i = 0 To Application.CountA(Columns(1)) * 2 Step 2
Intersect([a1:d2].Offset(i), [a2:d3].Offset(i)).EntireRow.Insert
Next
End Sub
···VBA找到最后的单元格
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 【蝴蝶效应】 蝴蝶效应:上个世纪70年代，美国一个名叫洛伦兹的气象学家在解释空气系统理论时说，亚马逊雨林一只蝴蝶...
- 下面选了最近十年里，十位名人所做的毕业演讲。那么多的故事与经历，其实只想告诉你一件事： 面对迷茫和不确定的未来，我...
