若单元格中没有公式，会得到一个字符串，在公式栏中显示该单元格的值。Range.Cells ‘返回单元格区域D5:D10中左上角单元格 ActiveCell.Row ‘活动单元格所在的行数 ActiveCell.Column ‘活动单元格所在的列数 Range.HorizontalAlignment =xlLeft ‘当前工作表中的单元格区域数据设置为左对齐ActiveSheet.Range.NumberFormat=“＃，＃＃0” ‘设置单元格区域A2至A10中数值格式 rng.Replace“ “，”0” ‘用0替换单元格区域中的空单元格**********Collection与object DimcolMySheets As New CollectionPublic colMySheetsAs New Collection ‘声明新的集合变量 SetMyRange=Range ‘创建一个名为MyRange的对象变量。