菜鳥歸來，請教各位大俠了，如何獲得每行最后一個數(shù)據(jù)，列到另一表中的一列

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 發(fā)表于 2012-2-28 16:45
Sheet1.Range("A:A").End(xlDown).Row

e ,謝版主 不過我換了下還是不行 ，您幫忙再看看

roych

關鍵是沒看懂你想干什么，最好傳上附件。

powerhao

在第二頁 第三列 獲得前一頁每行最后的日期

powerhao

roych 發(fā)表于 2012-2-29 11:12
關鍵是沒看懂你想干什么，最好傳上附件。

我傳附件了 您幫忙給看下

pureshadow

最后一行的數(shù)據(jù)
cells(rows.count,1).end(xlup).row