循环给单元格赋值的问题！

[brucelee717]

Dim rRow As Long, Tol As Long, cols As Long, TValue As String, CValue As String
TValue = Target.Value
Tol = 0
cols = 1
rRow = Sheet3.UsedRange.Find("接入间").Row + 1
If Target.Address = "$H$3" Then


Set c = Sheet1.UsedRange.Find(TValue)

If Not c Is Nothing Then
firstAddress = c.Address

Do
CValue = c.Offset(0, -2)
Sheet3.Cells(rRow, cols).Value = CValue

Set c = Sheet1.UsedRange.FindNext(c)
cols = cols + 1
Loop While Not c Is Nothing And c.Address <> firstAddress
End If




End If

为什么我这一句老是出错 Sheet3.Cells(rRow, cols).Value = CValue 我都快疯了

[ACMAIN_CHM]

出错信息是什么？ 调试中看一下此时的rRow, cols 的值是什么？

[hahaxiaoa]

Sheet3.Cells(rRow, cols) = CValue
这样试下?

[dsd999]

看看rRow和cols的值是不是合法

[龙湖金风]

Excel最多256列，估计是列越限了