《VBA之Range对象在Excel单元格赋值示例》由会员分享，可在线阅读，更多相关《VBA之Range对象在Excel单元格赋值示例（4页珍藏版）》请在装配图网上搜索。
1、VBA之Range对象在Excel单元格赋值示例
单元格赋值示例
示例一
Subtest1()
Worksheets("Sheet1").Range("A5").Value=22
MsgBox"工作表Sheet1内单元格A5中的值为"_
&Worksheets("Sheet1").Range("A5").Value
EndSub
示例二
Subtest2()
Worksheets("Sheet1").Range("A1").Value=_
Worksheets("Sheet1").Range("A5").Value
MsgBox"现在A1单元格中的值也为"&_
Wor
2、ksheets("Sheet1").Range("A5").Value
EndSub
示例三
Subtest3()
MsgBox"用公式填充单元格,本例为随机数公式"
Range("A1:H8").Formula="=Rand()"
EndSub
示例四
Subtest4()
Worksheets(1).Cells(1,1).Value=24
MsgBox"现在单元格A1的值为24"
EndSub
示例五
Subtest5()
MsgBox"给单元格设置公式，求B2至B5单元格区域之和”
ActiveSheet.Cells(2,1).Formula="=Sum(B
3、1:B5)"
EndSub
示例六
Subtest6()
MsgBox"设置单元格C5中的公式."
Worksheets(1).Range("C5:C10").Cells(1,1).Formula="=Rand()"EndSub
单元格引用示例
SubRandom()
DimmyRangeAsRange
'设置对单元格区域的引用
SetmyRange=Worksheets("Sheet1").Range("A1:D5")
'对Range对象进行操作myRange.Formula="=RAND()"myRange.Font.Bold=True
EndSub
示例说明：可
4、以设置Range对象变量来引用单元格区域，然后对该变量所代表的单元格区域进行操作。
清除单元格示例
示例一
清除单元格中的内容(ClearContents方法)
SubtestClearContents()
MsgBox"清除指定单元格区域中的内容"
Worksheets(1).Range("A1:H8").ClearContents
EndSub
示例二
清除单元格中的格式(ClearFormats方法)
SubtestClearFormats()
MsgBox"清除指定单元格区域中的格式"
Worksheets(1).Range("A1:H8").ClearForm
5、ats
EndSub
示例三
清除单元格中的批注(ClearComments方法)
SubtestClearComments()
MsgBox"清除指定单元格区域中的批注"
Worksheets(1).Range("A1:H8").ClearComments
EndSub
示例四
清除单元格中的全部，包括内容、格式和批注(Clear方法)SubtestClear()
MsgBox"彻底清除指定单元格区域"
Worksheets(1).Range("A1:H8").Clear
EndSub
其他示例
Range和Cells的用法
Subtest()
'设置单元格区
6、域A1:J10的边框线条样式
WithWorksheets(1).Range(.Cells(1,1),_.Cells(10,10)).Borders.LineStyle=xlThick
EndWith
EndSub
示例说明：可用Range(cell1,cell2)返回一个Range对象，其中cell1和cell2为指定起始和终止位置的Range对象。
选取单元格区域(Select方法)
SubtestSelect()
'选取单元格区域A1:D5
Worksheets("Sheet1").Range("A1:D5").Select
EndSub
基于所选区域偏离至另一区域(
7、Offset属性)
SubtestOffset()
Worksheets("Sheet1").Activate
Selection.Offset(3,1).Select
EndSub
示例说明：可用Offset(row,column)(其中row和column为行偏移量和列偏移量)返回相对于另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下三行且向右一列处单元格区域。
选取距当前单元格指定行数和列数的单元格
SubActiveCellOffice()
MsgBox"显示距当前单元格第3列、第2行的单元格中的值"
MsgBoxActiveCell.Off
8、set(3,2).Value
EndSub
调整区域的大小(Resize属性)
SubResizeRange()
DimnumRowsAsInteger,numcolumnsAsInteger
Worksheets("Sheet1").Activate
numRows=Selection.Rows.Countnumcolumns=Selection.Columns.Count
Selection.Resize(numRows+1,numcolumns+1).Select
EndSub示例说明：本示例调整所选区域的大小，使之增加一行一列。
选取多个区域(Union方法)
Su
9、btestUnion()
Dimrng1AsRange,rng2AsRange,myMultiAreaRangeAsRange
Worksheets("sheet1").Activate
Setrng1=Range("A1:B2")
Setrng2=Range("C3:D4")
SetmyMultiAreaRange=Union(rng1,rng2)myMultiAreaRange.Select
EndSub
示例说明：可用Union(range1,range2,...)返回多块区域，即该区域由两个或多个连续的单元格区域所组成。如上例创建由单元格区域A1:B2和C3:D4组合定义
10、的对象，然后选定该定义区域。
激活已选区域中的单元格
SubActivateRange()
MsgBox"选取单元格区域B2:D6并将C4选中”
ActiveSheet.Range("B3:D6").Select
Range("C5").Activate
EndSub
选取指定条件的单元格(SpecialCells方法)
SubSelectSpecialCells()
MsgBox"选择当前工作表中所有公式单元格"
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
EndSub
选取矩形区域(Curren
11、tRegion属性)
'选取包含当前单元格的矩形区域'该区域周边为空白行和空白列
SubSelectCurrentRegion()
MsgBox"选取包含当前单元格的矩形区域"
ActiveCell.CurrentRegion.Select
EndSub
选取当前工作表中已用单元格(UsedRange属性)'选取当前工作表中已使用的单元格区域
SubSelectUsedRange()
MsgBox"选取当前工作表中已使用的单元格区域"_
&vbCrLf&"并显示其地址"
ActiveSheet.UsedRange.Select
MsgBoxActiveSheet.UsedRange.Address
EndSub
VBA之Range对象在Excel单元格赋值示例
