在每个sheet的相同位置写入相同的值

 

 

 

Sub 在每个sheet的相同位置写入相同的值()
Dim i%, k%, m%, n%, h%, l%
h = Selection.Row
l = Selection.Column
m = Cells(41, 4)
n = Cells(42, 4)
If m > n Then GoTo 100
For i = m To n
    Sheets(i).Cells(h, l) = Selection.Value
Next
100:
MsgBox ("输入的页码范围不对")
k = ActiveSheet.Index
End Sub