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