循環結束後選擇行中第一個單元格的代碼

我正在處理循環宏，它複製數據直到單元格爲空。循環結束後選擇行中第一個單元格的代碼

一旦該單元格爲空，我想要宏選擇A列中的單元格，在循環條件滿足的同一行中。

這就是我所知道的，循環宏工作正常，但是當我嘗試編碼宏選擇單元格時出現錯誤。

Range("C8:V8").Select 
Selection.Copy 
Do 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveSheet.Paste 

Loop Until ActiveCell.Offset(-1, 15) = "" 

ActiveCell.Offset(1, -6).Range("A1").Select 
End Sub

來源

2015-05-29 K Nelson

我無法理解你想要什麼，複製/粘貼，但該行會選擇在A列的單元格，在最後一排電子表格：

Range(Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1), Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1)).Select

如果這沒有達到你要找的東西，顯示你正在複製/循環的數據會有幫助。

但是，由於您的結束條件ActiveCell.Offset（-1,15）始終會查看您剛剛完成複製單元格「C8：V8」中內容的位置，因此您的循環似乎永遠不會終止在您的代碼中。

最後，您將在選擇ActiveCell.Offset（1，-6）.Range（「A1」）時出現錯誤，因爲它試圖從原始選擇的左側選擇6列，該列始於列3（又名C）。

看來，您的問題可能會從如何ActiveCell.Offset（），範圍（「」）語法作品的誤解造成的。我建議答案在這個崗位，如果是這樣的話 - >i need interpretation of activecell.offset in vba

來源

2015-05-29 17:09:46 BigBobby

嗨，循環公式複製一排，直到在一個特定的細胞的forumula回來爲空白，循環停止。我將在電子郵件中附上電子表格的圖像。循環停止後，我希望宏選擇列A中位於循環停止行下一行的單元格。 –

我試圖添加一個圖片，但網站不會讓我。 –

好的，我明白爲什麼你的循環結束了，如果你正在複製公式。當你說「數據」時，我將它解釋爲值，這會導致你的循環永遠不會結束。如果第15行中的公式計算爲「」，那麼您的循環就會結束。您仍嘗試從頁面中選擇，但是，當您嘗試在列C的左側選擇6列時。「ActiveCell.Offset（1，-2）.Range（」A1「）。選擇'將選擇列A，因爲它在C列左側2。 – BigBobby

循環結束後選擇行中第一個單元格的代碼

回答

相關問題