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找到最后的單元格
最后編輯于 ：
?著作權歸作者所有,轉載或內(nèi)容合作請聯(lián)系作者
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務。
- 文/潘曉璐 我一進店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來，“玉大人，你說我怎么就攤上這事。” “怎么了？”我有些...
- 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著，像睡著了一般。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上，一...
- 文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼！你這毒婦竟也來了？” 一聲冷哼從身側響起，我...
- 正文 年R本政府宣布，位于F島的核電站，受9級特大地震影響，放射性物質發(fā)生泄漏。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背。 一陣腳步聲響...
推薦閱讀更多精彩內(nèi)容
- 【蝴蝶效應】 蝴蝶效應:上個世紀70年代，美國一個名叫洛倫茲的氣象學家在解釋空氣系統(tǒng)理論時說，亞馬遜雨林一只蝴蝶...
- 下面選了最近十年里，十位名人所做的畢業(yè)演講。那么多的故事與經(jīng)歷，其實只想告訴你一件事： 面對迷茫和不確定的未來，我...
