VBA代码学习

Sub FA() '定义子过程

Application.ScreenUpdating = False '屏幕内容不更新

Application.Calculation = xlManual '关闭自动计算

Set DicLA = CreateObject("scripting.dictionary") '创建字典DicLA

Set DicLB = CreateObject('scripting.dictionary') '创建字典DicLB

............

Set RansorA = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(p,2), Sheets("Sheet1").Range(Sheets("Sheet1").Cells(p,9)) '将sheet1中p行2列到9列的数据赋给RansorA

Set RansorB = Sheets("Sheet2").Range(Sheets("Sheet1").Cells(p,38), Sheets("Sheet1").Range(Sheets("Sheet1").Cells(p,45)) '将sheet1中p行38列到45列的数据赋给RansorB

RansorA.Copy '将RansorA中的内容复制到剪贴板

RansorB.PasteSpecial Paste := xlPasteValues '将剪贴板中的内容复制到RansorB