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

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

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

应该改为如下语句吗？
For i = 1 To sheets("Sheet1").Columns.Count 
如果是，同样需要更改如下语句
For j = 1 To Range("Sheet1").Rows.Count

追问感谢你的回答。是这个原因。

但是修改后又出现问题，提示“溢出”追答哈哈，不知道你的变量i还是变量j超出范围了哦。
别定义为integer了，定义为long试下。追问正解。您能否帮我再看看这个问题。

追答内层循环体内
cells(j,i)=cells(1,i)
修改为如下试试看。
cells(j,i)=cells(1,i).value追问还是提示同样的问题。我再去查查。谢了。

Range("Sheet1").Columns.Count 用Range来引用表？用sheets("sheet1")......
还有Excel表的行数肯定超出了整型变量的范围，请定义成long型追问
谢谢你的回答。能否再帮我看看这个问题。
其实就是想实现这个功能（各列中出现的T数据替换成该列第一行的数据）

但问题不断。新手伤不起。