VBA代码摘录

《VBA代码摘录》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、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

2、).FormulaR1C1="=RC2*RC3*RC4"在E列计算范围内，按R1C1规则计算引用工作表的方法：Worksheets(“sheet1”).ActivateSheets(“sheet1”).ActivateWorkSheets集合包含所有工作表。而Sheets集体不仅包含工作表集合WorkSheets,还包含图表集合Chats、宏表集合等。任何时刻工作簿中只有一个工作表是活动工作表。-----------------------------------------------------------------------

3、---------------------------'设置加班费列的格式并突出显示最大值SubSetFormat(rngFAsRange)WithrngF.NumberFormat="0.00".HorizontalAlignment=xlCenter.FormatConditions.Delete.FormatConditions.AddType:=xlExpression,Formula1:="=RC5=max(C5)".FormatConditions(1).Interior.ColorIndex=4EndWithEndSub

4、把二个比较数据置换位置方法：Fori=1Ton-1'比较排序Forj=i+1TonIfnSht(i)

5、ells(R,C),不带参数的Cells属性返回引用对象的所有单元格，带参数返回单个单元格的Range对象。Cells属性的参数可以使用变量。3、使用快捷记号将A1引用样式或命名区域名称使用方括号括起来，不必键入单词“RANGE”或使用引号，可实现快捷输入。Range(“a1”).value等同于[A1]4、使用Offset属性5、使用Resize属性代码解读：SetRng=Range(“A1”).CurrengRegion使用CurrengRegion属性取得包含A1单元格的当前区域，并将其赋值给Rng对象变量。Resize(rng

6、.rows.count,rng.columns.cont)返回rng对象变量所代表的单元格所代表区域的总行数和总列数。获得指定行（或列）中最后一个非空单元格1、指定行Setcell=ActiveSheet.Range("A65536").End(xlUp)2、指定列Setcell=ActiveSheet.Range("IV2").End(xlToleft)快速选择任意工作表中的区域Application.GotoWorkbooks("book2.xls").Worksheets(1).Range("d3:k5"),True随心所欲复制

7、单元格区域Sheet1.Range("A1").CurrentRegion.CopySheet2.Range("A1")仅复制数值到另一区域1、直接赋值Sheet1.Range("A1").CurrentRegion.CopyDestination:=Sheet2.Range("A1:C3")2.如果源区域为动态的单元格区域，可以使用Resize方法确定目标区域。SubCopyRangeValue()DimxAsRangeSetx=Range("A1").CurrentRegionSheet2.Range("A1").Resize(x

8、.Rows.Count,x.Columns.Count).Value=x.ValueSetx=NothingEndSub所见即所得—将数字格式的显示结果作为单元格数值。SubNumberFormat2Value()Dim