Excel中的VBA代码问题-应用程序定义或对象定义错误

Private Sub CommandButton1()
Dim i, j As Integer
Sheets("Sheet1").Select
For i = 1 To Range("Sheet1").Columns.Count
For j = 1 To Range("Sheet1").Rows.Count
If Sheet1.Cells(j, i).Value = "T" Then
Sheet1.Cells(j, i).Value = Sheet1.Cells(1, i).Value
End If
Next
Next
End Sub
这段代码功能是遍历整个excel表，各列中出现的T数据替换成该列第一行的数据。运行时总是报错“应用程序定义或对象定义错误”。高手帮忙看一下。

---

For i = 1 To Range("Sheet1"正散颤).Columns.Count

应该改为如下语句举败吗？

For i = 1 To sheets("Sheet1").Columns.Count

 

如果是，同样需要掘清更改如下语句

For j = 1 To Range("Sheet1").Rows.Count

---

Range("Sheet1").Columns.Count 用Range来引用表？用sheets("sheet1")......
还有Excel表告尺握的行数肯困禅定超出了整型变袜庆量的范围，请定义成long型

---