以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  自由选择单元格填充数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136531)

--  作者：15666282205 --  发布时间：2019/6/15 10:06:00 --  自由选择单元格填充数据 老师，想实现以下功能：用鼠标自由选取一片空白单元格，包括多行多列，点击按钮统一填充相同的数据，例如“休班”。如果选定的区域包含数据，则不能填充并提醒。多谢老师指教。

--  作者：有点蓝 --  发布时间：2019/6/15 10:13:00 --   参考：http://www.foxtable.com/webhelp/topics/0447.htm Dim t As Table = Tables("表A") For i As Integer = t.TopRow To t.BottomRow     For j As Integer = t.LeftCol To t.RightCol         If t.Rows(i).IsNull(t.Cols(j).Name) Then             t.Value(i,j) = "休班"         Else             msgbox(i & "-" & j & "已经有值")         End If     Next Next

--  作者：15666282205 --  发布时间：2019/6/15 10:56:00 --  可以了，谢谢！ 老师辛苦了！