跳过空行的宏

Question

我知道这是一个以前以多种形式提出的问题，但每次我尝试使用解决方案来回答我的问题时，它都不起作用，我不知道如何调整让它对我有用。

我有一个sheet，它使用公式从基于 NBA 比赛的每日更新的价差sheet 中提取所有数据；换句话说，他们在玩谁，他们的对手的等级是多少，等等...这会产生很大的传播sheet，每个玩家都有一条线，在今晚活跃的玩家旁边有上述数据。

如果玩家不活跃，他的行是空白的。

我想设置一种方法来自动解析新的 sheet 只是活跃玩家列表，跳过不活跃玩家。我知道我需要创建一个循环宏，它将遍历每个单元格并复制该单元格值，如果它 <>""，但我似乎无法让它工作。

Answer 1

我自己能够回答这个问题，抱歉我没能早点post。我让宏检查 P 列中的空单元格，如果没有，我让它将该行复制到该玩家位置指定的 sheet。

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

跳过空行的宏

Macro to Skip Blank Lines

vba