Question

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数据替换成该列第一行的数据。运行时总是报错“应用程序定义或对象定义错误”。高手帮忙看一下。

Answer 1

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

追问

还是提示同样的问题。我再去查查。谢了。

Answer 2

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

追问

谢谢你的回答。能否再帮我看看这个问题。

其实就是想实现这个功能（各列中出现的T数据替换成该列第一行的数据）

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