菜鸟归来，请教各位大侠了，如何获得每行最后一个数据，列到另一表中的一列

powerhao

Sub huodei()
Dim i As Integer
Dim k As Integer
Dim j As Integer
For i = 1 To 300
Cells(i, 1) = Sheets("shijian").Cells(i, 1)
Cells(i, 2) = Sheets("shijian").Cells(i, 2)
Next i
For i = 2 To 300
    For j = 3 To ？
If Sheets("shijian").Cells(i, j) = "" Then
k = j - 1

Cells(i, 4) = Sheets("shijian").Cells(i, k)
    End If
    Next j
   
Next i

End Sub  不清楚 ？处写什么

roych

Sheet1.Range("A:A").End(xlDown).Row

powerhao

roych 发表于 2012-2-28 16:45
Sheet1.Range("A:A").End(xlDown).Row

e ,谢版主 不过我换了下还是不行 ，您帮忙再看看

roych

关键是没看懂你想干什么，最好传上附件。

powerhao

在第二页 第三列 获得前一页每行最后的日期

powerhao

roych 发表于 2012-2-29 11:12
关键是没看懂你想干什么，最好传上附件。

我传附件了 您帮忙给看下

pureshadow

最后一行的数据
cells(rows.count,1).end(xlup).row