优化代码： Dim sourceSheet As Worksheet Dim targetSheet As Worksheet 引用源工作表 Set sourceSheet = WorkbooksE检测设备力学VBA测试保温砂浆同条件试块xlsWorksheetsSheet1 引用目标工作表 Set targetSheet = WorkbooksE检测设备力学V

Dim sourceSheet As Worksheet Dim targetSheet As Worksheet

'引用源工作表 Set sourceSheet = Workbooks("E:\检测设备\力学\VBA测试\保温砂浆同条件试块.xls").Worksheets("Sheet1") '引用目标工作表 Set targetSheet = Workbooks("E:\检测设备\力学\VBA测试\取6个数的平均值.xlsm").Worksheets("首页")

Dim lastRow As Long lastRow = sourceSheet.Range("A" & Rows.Count).End(xlUp).Row

Dim sourceData As Variant Dim targetData As Variant Dim i As Long

For i = 1 To lastRow sourceData = sourceSheet.Range("H" & i).Value targetSheet.Range("J4").Value = sourceData

sourceData = sourceSheet.Range("A" & i).Value
targetSheet.Range("J6").Value = sourceData

sourceData = sourceSheet.Range("B" & i).Value
targetSheet.Range("J8").Value = sourceData

sourceData = sourceSheet.Range("C" & i & ":E" & i).Value
targetData = targetSheet.Range("D8:F8").Value
targetData(1, 1) = sourceData(1, 1)
targetData(1, 2) = sourceData(1, 2)
targetData(1, 3) = sourceData(1, 3)
targetSheet.Range("D8:F8").Value = targetData

Next i

MsgBox "复制完成