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”）
把表1的A1：G7复制到表2的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)" 同上，按相对位置来算，注意，向上是“-”
