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