Excel VBA - Range對象


Rows.Count    顯示所有行的數目

Columns.Count    顯示所有列的數目

Cells(Rows.Count, 1).End(xlUp).Row    顯示第一列從下面數第一個有值的單元格的行號

Cells(1, Columns.Count).End(xlToLeft).Column    顯示第一行從右面數第一個有值的單元格的列號

Cells(1, 1).BorderAround xlContinuous, xlThin    給A1單元格加入外邊框

Range("A1:B4").Borders.LineStyle. = xlContinuous    給這個區域加入邊框

Rows(1).AutoFit    為第一行分配合適的行距

Columns(1).AutoFit    為第一列分配合適的列寬

Rows(1).Delete    刪除第一行

Columns(1).Delete    刪除第一列
Cells(1, 1).MergeArea.Count    計算合並單元格的總單元格數

Cells(1, 1).MergeArea.Rows.Count    計算合並單元格的行數

Cells(1, 1).MergeArea.Columns.Count    計算合並單元格的列數

Cells(1, 1).MergeCells    返回Boolean,True和False Rnd()函數    返回小於1,大於等於0的一個隨機數

Cells(1, 1).Interior.ColorIndex = Int(56 * Rnd() + 1)    給單元格內部賦個隨機的顏色

Cells(1, 1).EntireColumn    包含此單元格的列

Cells(1, 1).EntireRow    包含此單元格的行

Cells.Interior.ColorIndex = xlColorIndexNone    所有單元格五色

Set rng = Application.Union(Target.EntireRow, Target.EntireColumn)    設置合並區域,注意Union方法是在Application下面的

Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)    找出具有公式的單元格區域

Sheet1.Range("A:A").ClearContents    清除第一列的所有內容

Sheet1.Range("A:A").Clear    清楚第一列的所有東西,包括值、格式等

For Each rng In Sheet2.Range("A1:A40")    遍歷區域內的每個單元格
Range("A:A").Replace "區", "市"    替換

Range("A:A").Replace What:="區", Replacement:="市"    替換
Sheet1.Range("A1:G7").Copy Sheet2.Range("A1")    復制區域,高寬變化

Sheet1.Range("A1:G7").Copy    復制區域

Sheet3.Range("A1").PasteSpecial xlPasteColumnWidth    黏貼相同寬度,相同高度要自己設置

Range("B1:B20").Validation.Add Type:=xlValidateList, Formula1:="A,B,C,D,E,F,G"    數據有效性

Range("A1").TextToColumns Space:=True    通過不定數量的空格來分列字符串

Cells(3, 4).Top    單元格頂部距離頂部的距離 Cells(3, 4).Left    單元格左邊距離左邊的距離 Cells(3)    表示第一行的第三列的單元格

ActiveWindow.VisibleRange.Cells(3)    表示當前頁面第一行的第三列的單元格

Cells(1, 1).Previous.Select    向前移一個位置 Cells(1, 1).Next.Select    向后移動一個位置

 公式計算 

Range("C2").Formula = "= A2*B2"    簡單相乘
Range("C2").Copy Range("C3:C" & r)    復制單元格公式
Cells(r + 1, 3).Formula = "=SUM(C2:C" & r & ")"    相加公式,也可以用Range
Range("C2").FormulaR1C1 = "=RC[-2]*RC[-1]"    按照相對位置來算
Range("C" & r + 1).FormulaR1C1 = "=SUM(R[-" & r - 1 & "]C:R[-1]C)"    同上,按相對位置來算,注意,向上是“-”


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM