VBA代码摘录.docxVIP

VBA精粹摘录lLastRow = Sheets(Database).UsedRange.Rows.Count获取Database工作表中已使用区域的行数并赋值给变量lLastRowRange(B5:G65536).Clear清除B5:G65536范围数据Sheets(Database).Range(A1:F lLastRow)使用变量lLastRow扩展数据列表lLastRow = Range(A Cells.Rows.Count).End(xlUp).Row获取A列最后一行行数Range(E3:E lLastRow).FormulaR1C1 = =RC2*RC3*RC4在E列计算范围内，按R1C1规则计算引用工作表的方法：Worksheets(“sheet1”).ActivateSheets(“sheet1”).ActivateWorkSheets集合包含所有工作表。而Sheets集体不仅包含工作表集合WorkSheets,还包含图表集合Chats、宏表集合等。任何时刻工作簿中只有一个工作表是活动工作表。--------------------------------------------------------------------------------------------------设置加班费列的格式并突出显示最大值Sub SetFormat(rngF As Range) With rngF .NumberFormat = 0.00 .HorizontalAlignment = xlCenter .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:==RC5=max(C5) .FormatConditions(1).Interior.ColorIndex = 4 End WithEnd Sub把二个比较数据置换位置方法：For i = 1 To n - 1 比较排序 For j = i + 1 To n If nSht(i) nSht(j) Then t = nSht(i) nSht(i) = nSht(j) nSht(j) = t End If Next所谓单元格区域，指的是工作表中单个的单元格、由多个单元格组成的区域，或者整行、整列等。VBA有五种方法引用：1、使用A1样式引用A1样式记号使用Range属性返回单元格区域。A1样式字母顺序标记列，数字顺序标记行。例：Range(“a1”)2、使用行列编号使用Cells属性通过行列编号引用单个单元格，Cells属性的语法如下Cells(R,C),不带参数的Cells属性返回引用对象的所有单元格，带参数返回单个单元格的Range对象。Cells属性的参数可以使用变量。3、使用快捷记号将A1引用样式或命名区域名称使用方括号括起来，不必键入单词“RANGE”或使用引号，可实现快捷输入。Range(“a1”).value等同于[A1]4、使用Offset属性5、使用Resize属性代码解读：Set Rng=Range(“A1”).CurrengRegion使用CurrengRegion属性取得包含A1单元格的当前区域，并将其赋值给Rng对象变量。Resize(rng.rows.count,rng.columns.cont)返回rng对象变量所代表的单元格所代表区域的总行数和总列数。获得指定行（或列）中最后一个非空单元格1、指定行Set cell = ActiveSheet.Range(A65536).End(xlUp)2、指定列Set cell = ActiveSheet.Range(IV2).End(xlToleft)快速选择任意工作表中的区域Application.Goto Workbooks(book2.xls).Worksheets(1).Range(d3:k5), True随心所欲复制单元格区域Sheet1.Range(A1).CurrentRegion.Copy Sheet2.Range(A1)仅复制数值到另一区域1、直接赋值Sheet1.Range(A1).CurrentRegion.Copy Destination:=Sheet2.Range(A1:C3)2.如果源区域为动态的单元格区域，可以使用Resize方法确定目标区域。Sub CopyRangeValue() Dim x As