回复：函数问题你问我答，太难的不会

Sub aaa()
'数据表从第1行开始读取
'数据表名假设为aaa
'非aaa的sheet的B1单元格粘贴内容
'数据表的内容写在C列
'上面的都可以自己改
'总体就是把aaa表c列的内容,依次填在其他sheet的B1
行号 = 1
For Each 表 In ThisWorkbook.Sheets
If 表.Name <> "aaa" Then
表.Range("b1") = ThisWorkbook.Sheets("aaa").Range("c" & 行号)
行号 = 行号 + 1
End If
Next
End Sub

第二需求写在条件格式里,让不符合条件的话,就标红,,,不能做到拒绝输入,这个要vba事件

筛选空白单元格,输入这个公式,注意修改你对应单元格,然后往下填充

最小 =A1*100000+ROW()<=SMALL($A$1:$A$16*100000+ROW($1:$16),3)
最大 =A1*100000+ROW()>=LARGE($A$1:$A$16*100000+ROW($1:$16),3)