빈 줄을 건너 뛰는 매크로

Question

이 질문은 이전에 많은 질문이 있었지만 문제를 해결하기 위해 솔루션을 사용하려고 할 때마다 작동하지 않으며 알아 내지 못합니다. 그것이 나를 위해 일하도록 조정하는 법.

나는 수식을 사용하여 NBA 게임을 기반으로 매일 업데이트되는 스프레드 시트에서 모든 데이터를 가져옵니다. 다른 말로하면, 그들이 플레이하는 상대방, 상대방의 순위 등입니다. 이렇게하면 오늘 밤 활동중인 플레이어 옆에 전술 한 데이터가있는 각 플레이어의 라인이있는 큰 스프레드 시트가 생성됩니다.

플레이어가 활성화되어 있지 않으면 그의 행이 비어 있습니다.

으로 새 시트를 자동으로 구문 분석하는 방법을 설정하고 싶습니다. 비활성 플레이어를 건너 뛰고 활성 플레이어 목록을으로 지정하십시오. 나는 각각의 셀을 거치고 셀 값을 복사 할 루프 매크로를 만들어야한다고 이해한다. <> "", 그러나 나는 그것을 얻지 못한다.

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