Question

我知道这是以前以多种形式提出的问题，但每次我尝试使用解决方案来回答我的问题时，它都无法解决，我无法理解如何调整以使其适用于我。

我有一张表格，通过公式，从基于NBA游戏的每日更新电子表格中提取所有数据;换句话说，他们正在玩谁，他们的对手排名是什么等等......这创造了一个大型电子表格，每个玩家都有一条线，上面的数据旁边是今晚活跃的玩家。

如果玩家没有活动，他的行是空白的。

我想设置一种方法，使用活动播放器列表自动解析新工作表，跳过不活动的播放器。我知道我需要创建一个循环宏，它将遍历每个单元格并复制该单元格值，如果它＆lt;＆gt;＆＃34;＆＃34;，但我似乎无法让它工作。

Answer 1

我自己能够回答这个问题，抱歉我不能早点发布。我在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

宏来跳过空白行

1 个答案: