|
Rows.Count 顯示所有行的數(shù)目 Column.Count 顯示所有列的數(shù)目 Cells(Rows.Count, 1).End(xlUp).Row 顯示第一列從下面數(shù)第一個有值的單元格的行號 Cells(1, Columns.Count).End(xlToLeft).Column 顯示第一行從右面數(shù)第一個有值的單元格的列號 Cells(1, 1).BorderAround xlContinuous, xlThin 給A1單元格加入外邊框 Range('A1:B4').Borders.LineStyle. = xlContinuous 給這個區(qū)域加入邊框 Cells(1, 1).MergeArea.Count 計算合并單元格的總單元格數(shù) Cells(1, 1).MergeArea.Rows.Count 計算合并單元格的行數(shù) Cells(1, 1).MergeArea.Columns.Count 計算合并單元格的列數(shù) Cells(1, 1).MergeCells 返回Boolean,，True和False Rnd()函數(shù) 返回小于1，大于等于0的一個隨機數(shù) Cells(1, 1).Interior.ColorIndex = Int(56 * Rnd() + 1) 給單元格內(nèi)部賦個隨機的顏色 Cells(1, 1).EntireColumn 包含此單元格的列 Cells(1, 1).EntireRow 包含此單元格的行 Cells.Interior.ColorIndex = xlColorIndexNone 所有單元格五色 Set rng = Application.Union(Target.EntireRow, Target.EntireColumn) 設(shè)置合并區(qū)域，注意Union方法是在Application下面的 Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) 找出具有公式的單元格區(qū)域 Sheet1.Range('A:A').ClearContents 清除第一列的所有內(nèi)容 Sheet1.Range('A:A').Clear 清楚第一列的所有東西,，包括值,、格式等 For Each rng In Sheet2.Range('A1:A40') 遍歷區(qū)域內(nèi)的每個單元格 Range('A:A').Replace '區(qū)', '市' 替換 Range('A:A').Replace What:='區(qū)', Replacement:='市' 替換 Sheet1.Range('A1:G7').Copy Sheet2.Range('A1') 復(fù)制區(qū)域，高寬變化 Sheet1.Range('A1:G7').Copy 復(fù)制區(qū)域 Sheet3.Range('A1').PasteSpecial xlPasteColumnWidth 黏貼相同寬度,，相同高度要自己設(shè)置 Range('B1:B20').Validation.Add Type:=xlValidateList, Formula1:='A,B,C,D,E,F,G' 數(shù)據(jù)有效性 |
|
|
來自： 新用戶49643053 > 《待分類》
