Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
克隆属性为A的N行数据的代码怎么写
谢谢
克隆N行属性为A的数据,并把克隆行的其中一属性赋值为B
克隆选定的多行:
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
谢谢