識別不活動工作表中的最後一行並從活動工作表複製最後一行中的數據

我想知道如何識別不活動工作表的最後一行（不將控制權交給不活動工作表）然後如何過去數據到活動工作表的行號：'LastRow + 1'。仍然保持對活動工作表的控制。識別不活動工作表中的最後一行並從活動工作表複製最後一行中的數據

我是一家小公司的老闆，希望創建一個Excel工作表來監控我的庫存。 5年前，我在VB中做了一些小小的編碼，但現在記得它非常小。是否爲上述任務編寫了代碼，但我的代碼沒有用處......因此，不會將其粘貼到此處。感謝你的幫助。

2013-04-06 Hitesh Chand

你可以谷歌它。有很多現成的示例代碼可用於您的問題。 – Santosh 2013-04-06 06:19:24

http://stackoverflow.com/questions/11169445/error-finding-last-used-cell-in-vba – 2013-04-06 06:45:48

使用下面的VBA找到下一行的非活動工作表：

Dim lastrow as long 
lastrow = sheets("sheetname").cells.find("*", range("A1"), , , xlbyrows, xlprevious).row + 1

如果你有在年底空白單元格添加一個循環的廣告中使用findnext這給它：

Dim c as range, lastcell as long 
Set c = sheets("sheetname").cells.find("*", range("A1"), , , xlbyrows, xlprevious) 

If trim(c) = "" and not c is nothing then  
    Do   
     Set c = .FindNext(c)   
    Loop While trim(c) <> "" and not c is nothing 

End If 
Lastrow = c.row + 1

來源

2013-04-07 12:24:38 glh

嗨glh ..........感謝代碼.......它正在工作，但部分。我查找最後一行的不活動工作表中，最後幾行有一些空格。因此，這段代碼將最後一行空白行視爲數據行，然後在計算時進行計算。你能幫我調整這個代碼，以便它不應該將一個空白的條目行作爲一行有效的行計數...... – 2013-04-08 07:33:04

試試這個附加代碼 – glh 2013-04-08 10:39:04

識別不活動工作表中的最後一行並從活動工作表複製最後一行中的數據

回答

相關問題