Question

一个EXCEL工作簿中几个表同时调用一个宏代码

我有一个EXCEL文件，里面有四个表，其中包括“sheet1”“sheet2”“sheet3”“sheet4”,我想在"sheet2”“sheet3"中的两个表中用到：
Sub 行高()
For I = 1 To 60
Rows(I).RowHeight = Cells(I, 1)
Next
End Sub
目的是依据第一列的数据自动调整行高。我现在的办法是，在SHEET2、SHEET3中分别写入这段话，但在执行的时候很麻烦，得分别在两个表中执行。有没有办法，让他们同时执行呢？
放哪？我把下面这段话放到SHEET3中执行不了，放到ThisWorkbook中也执行不了
Sub 行高()
For I = 1 To 60
sheet1.Rows(I).RowHeight =sheet1. Cells(I, 1)
sheet2.Rows(I).RowHeight =sheet1. Cells(I, 1)
sheet3.Rows(I).RowHeight =sheet1. Cells(I, 1)
sheet4.Rows(I).RowHeight =sheet1. Cells(I, 1)
Next
End Sub

Answer 1

For I = 1 To 60

      sheet1.Rows(I).RowHeight =sheet1. Cells(I, 1)

      sheet2.Rows(I).RowHeight =sheet2. Cells(I, 1)

      sheet3.Rows(I).RowHeight =sheet3. Cells(I, 1)

      sheet4.Rows(I).RowHeight =sheet4. Cells(I, 1)

Next

End Sub 

放到模块里

Answer 2

For I = 1 To 60

sheet2.Rows(I).RowHeight =sheet1. Cells(I, 1)
sheet3.Rows(I).RowHeight =sheet1. Cells(I, 1)

Next
End Sub