Office中国论坛/Access中国论坛

标题: 菜鸟归来，请教各位大侠了，如何获得每行最后一个数据，列到另一表中的一列 [打印本页]

作者: powerhao 时间: 2012-2-28 16:02
标题: 菜鸟归来，请教各位大侠了，如何获得每行最后一个数据，列到另一表中的一列
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 时间: 2012-2-28 16:45
Sheet1.Range("A:A").End(xlDown).Row

作者: powerhao 时间: 2012-2-28 21:46

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

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

作者: roych 时间: 2012-2-29 11:12
关键是没看懂你想干什么，最好传上附件。

作者: powerhao 时间: 2012-3-1 15:22
本帖最后由 powerhao 于 2012-3-1 15:24 编辑

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

作者: powerhao 时间: 2012-3-1 15:22

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

我传附件了您帮忙给看下

作者: pureshadow 时间: 2012-3-2 11:24
最后一行的数据
cells(rows.count,1).end(xlup).row

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)