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]) '工作表函數(shù)counta
g = Application.CountIf([a:a], "<>") '工作表函數(shù)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找到最后的單元格
最后編輯于 ：
?著作權歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
- 文/潘曉璐 我一進店門徽龟，熙熙樓的掌柜王于貴愁眉苦臉地迎上來叮姑，“玉大人，你說我怎么就攤上這事据悔〈福” “怎么了？”我有些...
- 文/不壞的土叔 我叫張陵极颓，是天一觀的道長朱盐。 經(jīng)常有香客問我，道長菠隆，這世上最難降的妖魔是什么兵琳？ 我笑而不...
- 正文 為了忘掉前任，我火速辦了婚禮骇径，結(jié)果婚禮上躯肌，老公的妹妹穿的比我還像新娘。我一直安慰自己破衔，他們只是感情好清女，可當我...
- 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著晰筛，像睡著了一般校仑。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上传惠，一...
- 文/蒼蘭香墨 我猛地睜開眼逝她，長吁一口氣：“原來是場噩夢啊……” “哼！你這毒婦竟也來了睬捶？” 一聲冷哼從身側(cè)響起黔宛，我...
- 正文 年R本政府宣布黔帕，位于F島的核電站渺氧，受9級特大地震影響，放射性物質(zhì)發(fā)生泄漏蹬屹。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒙蒙 一白华、第九天 我趴在偏房一處隱蔽的房頂上張望慨默。 院中可真熱鬧，春花似錦弧腥、人聲如沸厦取。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽虾攻。三九已至，卻和暖如春更鲁，著一層夾襖步出監(jiān)牢的瞬間霎箍，已是汗流浹背。 一陣腳步聲響...
推薦閱讀更多精彩內(nèi)容
- 【蝴蝶效應】 蝴蝶效應:上個世紀70年代绊含，美國一個名叫洛倫茲的氣象學家在解釋空氣系統(tǒng)理論時說剩失，亞馬遜雨林一只蝴蝶...
- 下面選了最近十年里涨椒，十位名人所做的畢業(yè)演講。那么多的故事與經(jīng)歷绽媒，其實只想告訴你一件事： 面對迷茫和不確定的未來蚕冬，我...
