主题：110求助 怎么让重复填充只对指定的列才有效

 你可以自己做一个按钮实现功能。

 Dim dcs() As String = {"第一列", "第二列"}
dim t as table = CurrentTable
for j as integer = t.LeftCol to t.RightCol
    if array.IndexOf(dcs, t.cols(j).name) >= 0 then
        dim str as string = t.rows(t.TopRow)(j)
        for i as integer = t.TopRow to t.BottomRow
            t.rows(i)(j) = str
        next
    else
        msgbox("列【" & t.cols(j).name & "】不能重复填充")
    End If
Next