主题：克隆N行数据代码

克隆选定的多行：

With Tables("某表")
        For i As Integer = .TopPosition To .BottomPosition
            Dim r1 As Row = .Rows(i)
            Dim r2 As Row = r1.Clone
            r2("某列") = "AAA"
        Next
End With