請哪位高手幫忙壹下：以下是我的VBA程序，但是提示的時候老是提示“438”對象不支持該屬性或者方法。

按妳的原代碼，修改如下

Sub 批量輸入()

Dim z As Integer

z = Worksheets.Count

For i = 1 To z - 1

sheets(i).cell(1, 1).value = Worksheets(z).cell(i + 1, 2).value

Next

End Sub