跳過空行的宏

我明白這是一個以多種形式提出的問題，但每次嘗試使用解決方案來解答我的問題時，都無法正常工作，我無法弄清楚如何調整以使其適用於我。跳過空行的宏

我有一張表格，通過公式從基於NBA遊戲的每日更新電子表格中提取所有數據;換句話說，他們在玩誰，他們的對手的等級是什麼等等......這爲每個玩家創建了一張大型電子表格，並在今晚活躍的玩家旁邊提供上述數據。

如果玩家不活躍，他的路線是空白的。

我想設置一個方法來自動解析一個新的工作表只是活躍球員的列表，跳過非活動球員。我知道我需要創建一個循環的宏，它將遍歷每個單元格，並複製該單元格的值（如果它是<>「」，但我似乎無法使其工作。

來源

2015-01-06 Michael Martin

你可以發佈你已經試過的東西，看看社區是否可以排除故障嗎？ –

向我們顯示您的代碼... –

我能夠自己回答這個問題，對不起，我無法提前發佈。我在宏觀檢查P列中的一個空單元格，如果沒有一個，我把它複製到該玩家的位置指定的一張表。

Sub ActivePlayers() 

Dim i As Long 

Sheets("AllPlayers").Select 
' Find the last row of data 
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 
' Loop through each row 
For i = 3 To FinalRow 
    ' Decide if to copy based on column P and which sheet to copy to based on Column B 
    ThisValue = Cells(i, 16).Value 
    Position = Cells(i, 2).Value 
    If ThisValue <> "" Then 
     Cells(i, 1).Resize(1, 33).Copy 
     Sheets(Position).Select 
     NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
     Cells(NextRow, 1).Select 
     ActiveSheet.Paste 
     Sheets("AllPlayers").Select 

    End If 
Next i 

End Sub

來源

2015-01-08 17:21:38

跳過空行的宏

回答

相關問題