ML089

Sub ex()
    Dim xR As Range, x%
    For Each xR In Range("A1:A108") '範圍自行修改
        If xR = "code" Then
            For x = 8 To Range("AUW1").Column Step 7 '最後複製位置自行修改
                xR(2, x).Resize(1, 6) = xR(2, 1).Resize(1, 6).Value 'code字下第2列
                xR(5, x).Resize(1, 6) = xR(5, 1).Resize(1, 6).Value 'code字下第5列
            Next
        End If
    Next
End Sub

ML089

'自動偵測表格範圍作為處理
'限用於小表格範圍為 7*7
Sub ex()
    Dim xR As Range, x%, y%
    For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 7
        If Cells(y, 1) = "code" Then
            Set xR = Cells(y, 1)
            For x = 8 To Cells(1, Columns.Count).End(xlToLeft).Column Step 7
                xR(2, x).Resize(1, 6) = xR(2, 1).Resize(1, 6).Value
                xR(5, x).Resize(1, 6) = xR(5, 1).Resize(1, 6).Value
            Next
        End If
    Next
End Sub