主题：输入

 代码大概这样。

For Each r As Row In Tables("表A").Rows
    Dim fr As Row
    If r.Index Mod 28 = 0 Then
        fr = r
    Else
        For Each c As Col In Tables("表A").Cols
            Select Case c.Index + 1
                Case 9, 10, 11, 12, 13, 14
                   
                Case Else
                    r(c.Name) = fr(c.Name)
            End Select
        Next
    End If
Next

 有没有例子？很简单的一个问题吧？贴上你的示例。

 不清楚具体的问题，需要知道你代码没什么问题的。联系一下客服QQ远程演示一下。 800014337

 明天联系吧，现在技术人员都已经下班了。或者你到QQ群去找找人帮你远程！