VBA入门到进阶常用知识代码总结15

第15集 单元格编辑
59、 单元格输入
Sub t1()
Range(“a1”) = “a” & “b”
Range(“b1”) = “a” & Chr(10) & “b” '换行符输入
End Sub
换行符：chr(10)
60、 单元格复制和剪切
Sub t2()
Range(“a1:a10”).Copy Range(“c1”) 'A1：A10的内容复制到C1
End Sub

  Sub t3()
    Range("a1:a10").Copy
    ActiveSheet.Paste Range("d1") '粘贴至D1
  End Sub

Activesheet:活动工作表
Sub t4()
Range(“a1:a10”).Copy
Range(“e1”).PasteSpecial (xlPasteValues) '只粘贴为数值
End Sub

  Sub t5()
    Range("a1:a10").Cut
    ActiveSheet.Paste Range("f1") '粘贴到f1
  End Sub

  Sub t6()
    Range("c1:c10").Copy
    Range("a1:a10").PasteSpecial operation:=xlAdd '选择粘贴-加
  End Sub

  Sub T7()
      Range("G1:G10") = Range("A1:A10").Value  '格式不会跟随
  End Sub

PasteSpecial:特殊粘贴
Cut:剪切
61、 跨工作簿复制
Sub WriteMoney()
'------------------------------------------------------------------------------------------打开文件
Dim arr
Dim dig As Object
Set dig = Application.FileDialog(msoFileDialogOpen)
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Add “Excel文件”, “.xls;.xlsx;*.xlsm”, 1
.InitialFileName = ThisWorkbook.FullName
.InitialView = msoFileDialogViewDetails
.Show
.Execute
End With
Set dig = Nothing
Sheets(“工作表1”).Activate
arr = Sheets(“工作表1”).Cells(1, 1).CurrentRegion

ThisWorkbook.Activate	‘激活另一个工作簿
Sheets("关键信息提取").Activate	‘激活另一个工作簿中的工作表
Sheets("关键信息提取").Cells.Clear           '清除内容和格式

Range(Cells(1, 1), Cells(UBound(arr, 1), UBound(arr, 2))) = arr ‘数组赋值,注意计算区域
End Sub
62、 填充公式
Sub T8()
Range(“b1”) = “=a1*10”
Range(“b1:b10”).FillDown '向下填充公式
End Sub
Filldown:向下填充，需选中公式首行
63、 插入行
Sub c1()
Rows(4).Insert '第4行插入，原来的下移
End Sub
64、 插入行并复制公式
Sub c2() '插入行并复制公式
Rows(4).Insert
Range(“3:4”).FillDown
Range(“4:4”).SpecialCells(xlCellTypeConstants) = “”
End Sub
SpeciaCells：特殊的单元格
xlCellTypeConstants：含有常量的单元格
xlCellTypeBlanks：空单元格
65、 利用特殊单元格定位删除空行
Sub dd() '删除小计行
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub