'range.offset 可以用来计算 range("a1").offset(2)=range("a1").offset(1) * range("a1")
'返回range对象 ,它代表位于指定单元格区域的一定的偏移量位置的位子
'表达式 offset(偏移行,偏移列) 行列数字可以为 正数,负数,零
Sub offset偏移()
Range("a1").Offset(1, 1).Select
Range("a1").Offset(2).Select
'偏移行
Range("a1").Offset(0, 2).Select
'偏移列
''如果offset前面的对象时一个区域,则偏移后也结果尺寸不变
Range("a1:d1").Offset(2, 2).Select
Range("a1:d1").Offset(2).Select
Range("a1:d1").Offset(0, 2).Select
End Sub
Sub offset应用() ''加入数据
Dim i As Integer
For i = 2 To 8 Step 2
[a1:e1].Copy [a1:e1].Offset(i)
''复制 A1:E1 到 A1:E1 向下移i位
Next
End Sub
Sub offset应用2() ''加入数据
Dim i As Integer
For i = 2 To 8 Step 2
[a1:e1].Offset(i) = ""
Next
End Sub
'range.resize 属性
'调整指定区域大小.返回range对象,该对象代表调整后的区域
'表达式::resize(行数,列数)
Sub testresize()
Range("a1").Resize(2, 2).Select
'已A1单元格为准 扩展2行2列 选择
Range("a1").Resize(2).Select
Range("a1").Resize(, 2).Select
End Sub
Sub resize保存()
Dim i, j, k As Integer
i = Range("a1").CurrentRegion.Rows.Count - 1
''以A1单元格为准进行扩张 在看它的行数
j = Range("a1").CurrentRegion.Columns.Count
''以A1单元格为准进行扩张 在看它的列数
k = Application.CountA(Sheet2.Range("a:a"))
''sheet2
Range("a2").Resize(i, j).Copy Sheet2.[a1].Offset(k)
'Range("a2").Resize(i, j).Copy Sheet2.Range("a" & k + 1)
End Sub
'''单元格所在的行列 range 对象
' range.EntireRow 返回单元格或区域 所在的整行 或多行
' range.EntireColumn 返回单元格或区域 所在的整列,或多列
Sub 列行Entire()
Range("a1").EntireRow.Select
Range("a1").EntireColumn.Select
Range("a1:b4").EntireRow.Select
Range("a1:b4").EntireColumn.Select
End Sub
Sub 删除空行()
Dim rng As Range, Saddress, Caddress As String
For Each rng In Range("a1:a10")
'取出 A1-A10所在的单元格判断是否为空
Caddress = rng.address
If rng.Value = "" Then
Saddress = Saddress + Caddress + ","
''取出空行单元格
End If
Next
If Saddress <> "" Then
Saddress = Left(Saddress, Len(Saddress) - 1)
Range(Saddress).EntireRow.Delete
'删除空行所在的列
End If
End Sub
''range.Specialcells 方法
'返回一个 range 对象,该对象代表与指定类型和值匹配的所有单元格
'Specialcells(type,value) 特殊的单元格 定位
Sub 批注汇总() ''对带有批注的单元格汇总
MsgBox Application.Sum(Selection.SpecialCells(-4144))
End Sub
Sub Spcialcells删除空单元格()
On Error GoTo 100
Selection.SpecialCells(xlCellTypeBlanks).Select
''对已选择的区域 对空单元格 进行了选择
Selection.EntireRow.Delete
''空单元格所在的行删除
Exit Sub
100:
MsgBox "没有空行"
End Sub
'''rang.find 单元格查找技术
'在区域中查找特殊的信息,一个代表 range 对象
Sub 查找最后一个单元格()
Dim endrange As Range
Set endrange = Cells.Find("*", , xlFormulas, , , xlPrevious)
'''查找该列的最后个单元格 xlFormulas单元格的公式 xlPrevious向上查找 ''查到的是个range对象
Range("a1", endrange).Select
End Sub
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
