VBA之Range对象在Excel单元格赋值示例.docVIP

VBA之Range对象在Excel单元格赋值示例 单元格赋值示例－－－－－－－－－－－－－－－－－－－ 示例一Sub test1 Worksheets Sheet1 .Range A5 .Value 22MsgBox 工作表Sheet1内单元格A5中的值为 _ Worksheets Sheet1 .Range A5 .ValueEnd Sub 示例二Sub test2 Worksheets Sheet1 .Range A1 .Value _Worksheets Sheet1 .Range A5 .ValueMsgBox 现在A1单元格中的值也为 _Worksheets Sheet1 .Range A5 .ValueEnd Sub 示例三Sub test3 MsgBox 用公式填充单元格,本例为随机数公式Range A1:H8 .Formula Rand End Sub 示例四Sub test4 Worksheets 1 .Cells 1, 1 .Value 24MsgBox 现在单元格A1的值为24End Sub 示例五Sub test5 MsgBox 给单元格设置公式,求B2至B5单元格区域之和ActiveSheet.Cells 2, 1 .Formula Sum B1:B5 End Sub 示例六Sub test6 MsgBox 设置单元格C5中的公式.Worksheets 1 .Range C5:C10 .Cells 1, 1 .Formula Rand End Sub 单元格引用示例－－－－－－－－－－－－－－－－－－－ Sub Random Dim myRange As Range设置对单元格区域的引用Set myRange Worksheets Sheet1 .Range A1:D5 对Range对象进行操作myRange.Formula RAND myRange.Font.Bold TrueEnd Sub示例说明：可以设置Range对象变量来引用单元格区域，然后对该变量所代表的单元格区域进行操作。 清除单元格示例－－－－－－－－－－－－－－－－－－－ 示例一清除单元格中的内容 ClearContents方法 Sub testClearContents MsgBox 清除指定单元格区域中的内容Worksheets 1 .Range A1:H8 .ClearContentsEnd Sub 示例二清除单元格中的格式 ClearFormats方法 Sub testClearFormats MsgBox 清除指定单元格区域中的格式Worksheets 1 .Range A1:H8 .ClearFormatsEnd Sub 示例三清除单元格中的批注 ClearComments方法 Sub testClearComments MsgBox 清除指定单元格区域中的批注Worksheets 1 .Range A1:H8 .ClearCommentsEnd Sub 示例四清除单元格中的全部，包括内容、格式和批注 Clear方法 Sub testClear MsgBox 彻底清除指定单元格区域Worksheets 1 .Range A1:H8 .ClearEnd Sub 其他示例－－－－－－－－－－－－－－－－－－－Range和Cells的用法Sub test 设置单元格区域A1:J10的边框线条样式With Worksheets 1 .Range .Cells 1, 1 , _.Cells 10, 10 .Borders.LineStyle xlThickEnd WithEnd Sub示例说明：可用 Range cell1, cell2 返回一个 Range 对象，其中cell1和cell2为指定起始和终止位置的Range对象。 选取单元格区域 Select方法 Sub testSelect 选取单元格区域A1:D5Worksheets Sheet1 .Range A1:D5 .SelectEnd Sub 基于所选区域偏离至另一区域 Offset属性 Sub testOffset Worksheets Sheet1 .ActivateSelection.Offset 3, 1 .SelectEnd Sub示例说明：可用Offset row, column 其中row和column为行偏移量和列偏移量 返回相对于另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下三行且向