一 单元格输入
1 单元格的输入
Range("a1") = "a" & "b"
End Sub
'若是想要ab分行显示,在ab之间强制添加一个换行符，chr(10)
Sub ha20()
Range("b1") = "a" & Chr(10) & "b"
End Sub
2 单元格的复制和剪切
'a1到a4的值粘贴到以c1为顶点的相应区域
Sub ha21()
Range("a1:a4").Copy Range("c1")
End Sub
'paste 函数针对工作表使用，单元格没有paste函数
Sub ha22()
Range("a1:a10").Copy
ActiveSheet.Paste Range("d1")
End Sub
'只粘贴为数值，pastespecial的意思就是选择性粘贴的意思
Sub ha23()
Range("a1:a10").Copy
Range("e1:e10").PasteSpecial (xlPasteValues)
End Sub
Sub ha24()
Range("a1:a10").Cut
ActiveSheet.Paste Range("f1")
End Sub
'选择性粘贴函数可以实现一个强大的批量运算功能，不需要使用for循环函数,在进行多表合并（合适相同）时候是很有用的
Sub ha25()
Range("c1:c10").Copy
Range("a1:a10").PasteSpecial operation:=xlAdd
End Sub
'必要要掌握的方便快捷值的传递代码,两个区域值转移的好方法
Sub ha26()
Range("b1:b10") = Range("a1:a10").Value
End Sub
3 填充公式
Sub ha27()
Range("b1") = "=a1 * 10"
Range("b1:b10").FillDown
End Sub
二 单元格行列的删除和插入
1 行的插入
Sub ha28()
Rows(4).Insert
End Sub
2 插入行并复制公式
'specialcells 对于特殊单元格定位，第四行只留下公式，没有数值，实际操作中B4却会有数值0出现，暂时不知道为什么
Sub ha29()
Rows(4).Insert
Range("3:4").FillDown
Range("4:4").SpecialCells(xlCellTypeConstants) = ""
End Sub
Sub ha30()
Dim x As Integer
For x = 2 To Range("c65536").End(xlUp).Row
If Cells(x, 3) <> Cells(x + 1, 3) Then
Rows(x + 1).Insert
x = x + 1
End If
Next x
End Sub
3 删除行
'删除出库单号码为空的单元格，利用定位功能，定位空格，批量删除
Sub ha31()
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
4 完成分类汇总的效果
Sub ha32()
Dim x As Integer, m1 As Integer, m2 As Integer
Dim k As Integer
m1 = 2
For x = 2 To 1000
If Cells(x, 1) = "" Then Exit Sub
If Cells(x, 3) <> Cells(x + 1, 3) Then
m2 = x
Rows(x + 1).Insert
Cells(x + 1, "c") = Cells(x, "c") & " 小计"
Cells(x + 1, "h") = "=sum(h " & m1 & ": h " & m2 & ")"
Cells(x + 1, "h").Resize(1, 4).FillRight
Cells(x + 1, "i") = ""
x = x + 1
m1 = m2 + 2
End If
Next x
End Sub
加粗字体行提示出错，经过比对，并没有发现错误出处，留待后续继续查找与更正
网友评论