一 單元格輸入
1 單元格的輸入
Range("a1") = "a" & "b"
End Sub
'若是想要ab分行顯示,在ab之間強(qiáng)制添加一個(gè)換行符，chr(10)
Sub ha20()
Range("b1") = "a" & Chr(10) & "b"
End Sub
2 單元格的復(fù)制和剪切
'a1到a4的值粘貼到以c1為頂點(diǎn)的相應(yīng)區(qū)域
Sub ha21()
Range("a1:a4").Copy Range("c1")
End Sub
'paste 函數(shù)針對(duì)工作表使用，單元格沒(méi)有paste函數(shù)
Sub ha22()
Range("a1:a10").Copy
ActiveSheet.Paste Range("d1")
End Sub
'只粘貼為數(shù)值，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
'選擇性粘貼函數(shù)可以實(shí)現(xiàn)一個(gè)強(qiáng)大的批量運(yùn)算功能，不需要使用for循環(huán)函數(shù),在進(jìn)行多表合并（合適相同）時(shí)候是很有用的
Sub ha25()
Range("c1:c10").Copy
Range("a1:a10").PasteSpecial operation:=xlAdd
End Sub
'必要要掌握的方便快捷值的傳遞代碼,兩個(gè)區(qū)域值轉(zhuǎn)移的好方法
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 插入行并復(fù)制公式
'specialcells 對(duì)于特殊單元格定位，第四行只留下公式，沒(méi)有數(shù)值，實(shí)際操作中B4卻會(huì)有數(shù)值0出現(xiàn)，暫時(shí)不知道為什么
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 刪除行
'刪除出庫(kù)單號(hào)碼為空的單元格，利用定位功能，定位空格，批量刪除
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") & " 小計(jì)"
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
加粗字體行提示出錯(cuò)，經(jīng)過(guò)比對(duì)，并沒(méi)有發(fā)現(xiàn)錯(cuò)誤出處，留待后續(xù)繼續(xù)查找與更正
