数组传输

Frontier.fang

新人，纯粹的新人，那位大师能帮我看看 -
'将mysheet1里面第j行考到mysheet2的第k行，每行30列。mysheet1里共14行，但每天会变化，也就是每天都考14行到mysheet2里，在mysheet2里一直往下填。跪求指点

Sub 生产记录()
Dim i, j, m, k As Long  '数据类型定义
On Error Resume Next  '如果运行过程中出错，则忽略
Set mysheet1 = ThisWorkbook.Worksheets("生产记录")    '定义工作表
Set mysheet2 = Workbooks("冲压数据收集表.xlsx").Worksheets("生产记录汇总表")      '定义工作表
m = Application.WorksheetFunction.Match(mysheet1.Cells(3, 1), mysheet2.Range("A2:A10"), 0)
'计算单元格所在的位置
If m >= 1 Then  '如果数据表里面已经存在
     For k = 2 To 99999
      If mysheet2.Cells(k, 1) = "" Then
        For j = 3 To 14
            For i = 1 To 30
              mysheet2.Cells(k, i) = mysheet1.Cells(j, i)
              Next
            Exit For
         Next
        Exit For
      End If
     Next
Else              
     For k = 2 To 99999
      If mysheet2.Cells(k, 1) = "" Then
        For j = 3 To 14
            For i = 1 To 30
              mysheet2.Cells(k, i) = mysheet1.Cells(j, i)
              Next
            Exit For
         Next
        Exit For
      End If
     Next
End If
End Sub