나는 두 개의 도우미 행렬로 그것을 할 수있었습니다.
“도우미 셀”은 중간 값을 도출하거나 계산하는 셀입니다.
입력 데이터로부터.
이 중간 값은 다른 셀에서 사용됩니다.
원하는 결과를 얻을 수 있습니다.
일반적으로 테이블 형식의 데이터에 “도우미 열”이 있어야합니다.
나는 누군가가
내 대답을 합리화하고 더 우아하게 만들 수 있습니다.
하지만 이것은 59 분 만에 나올 수 있었던 최고의 것입니다.

헬퍼를 실제 데이터와 동일한 시트에 넣을 수 있습니다.
일반적으로 숨겨진 다른 열 또는 행에 표시됩니다.
또는 별도의 시트에 넣을 수도 있습니다.
이 답변에는 두 가지가 필요하기 때문에 두 가지 기술을 모두 설명해 드리겠습니다.
그런 다음 하나의 기술을 일관되게 사용하도록 선택할 수 있습니다.

귀하의 소스 데이터 (질문에 표시됨)
에있다 Sheet1!A2:D8행 1에 헤더가 있습니다.
놓다

=IF(B2="", "blank", B2)

세포에 AB2, 아래로 드래그 / 채우기 AB8 및 오른쪽 열에 AD.
이로 인해

   |    AA    |    AB    |    AC    |    AD    |
---+----------+----------+----------+----------+
 1 |          |          |          |          |
 2 |          |   I      |   blank  |   I      |
 3 |          |   I      |   blank  |   I      |
 4 |          |   I      |   I      |   blank  |
 5 |          |   I      |   I      |   blank  |
 6 |          |   I      |   I      |   I      |
 7 |          |   blank  |   I      |   I      |
 8 |          |   blank  |   I      |   I      |

나는 아무런 설명이 필요 없다고 믿는다.

이제는 더 복잡해집니다.
몹시 떠들어 대다 Sheet3 다음 수식을 입력하십시오.

• B2 → =MATCH("I", Sheet1!AB$2:AB$8, 0)
• B3 → =MATCH("I", OFFSET(Sheet1!AB$2,B2,0):Sheet1!AB$8, 0) + B2
• B7 → =MATCH("blank", Sheet1!AB$2:AB$8, 0)
• B8 → =MATCH("blank", OFFSET(Sheet1!AB$2,B7,0):Sheet1!AB$8, 0) + B7

셀 드래그 / 채우기 B3 아래로 B6.
만약 당신이 당신의 계획을 바꿔서 “아웃”한 명 이상의 선수가 있다면
한 번에 셀을 드래그 / 채우기해야합니다. B8 적절히 다운.
이전과 마찬가지로 열을 드래그 / 채우기 B 오른쪽에서 열까지 D.
당신은 얻을 것이다 :

   |    A    |    B    |    C    |    D    |
---+---------+---------+---------+---------+
 1 |         |         |         |         |
 2 |         |      1  |      3  |      1  |
 3 |         |      2  |      4  |      2  |
 4 |         |      3  |      5  |      5  |
 5 |         |      4  |      6  |      6  |
 6 |         |      5  |      7  |      7  |
 7 |         |      6  |      1  |      3  |
 8 |         |      7  |      2  |      4  |

설명:

• B2 첫 번째 (상대적) 위치를 포함 I 범위 안에서 Sheet1!AB$2:AB$8.
  이것은 1, 때문에 Sheet1!AB2 ~을 포함하다 I,
  그 범위의 첫 번째 셀입니다.
  비슷하게, C2 과 D2 있다 3 과 1,
  때문에 Sheet1!AC4 과 Sheet1!AD2 (제 3 및 제 1 셀,
  각각 Player3 및 Player1에 해당),
  첫 번째 위치 I 그 열에
• 보면서 B3 – OFFSET(Sheet1!AB$2,B2,0) ~이다. OFFSET(Sheet1!AB$2,1,0),
  이는 Sheet1!AB3.
  그래서 이건 MATCH 범위를보고있다. Sheet1!AB3:AB8.
  이 MATCH 또한 돌아올 것이다. 1,
  때문에 Sheet1!AB3 ~을 포함하다 I, 그리고 그것은 첫 번째 세포입니다 그 범위.
  그런 다음 B2 ( 1 ) 그것에, 점점 2,
  어느 위치에 둘째 I …에서 Sheet1!AB2:AB8.
• 유사하게, MATCH 셀 안에 D4 범위를보고있다. Sheet1!AD4:AB8.
  이 MATCH 돌아올거야. 3,
  때문에 Sheet1!AD6 에있는 첫 번째 셀입니다. 그 포함 된 범위 I.
  첨가 D3 ( 2 ) 우리에게 주어지다 5그 행은 Player5에 해당하기 때문입니다.

• 그런 다음 행 7과 8에서 동일한 작업을 수행합니다. blank.

  나는 그럴 필요가 없었을 것이다. Sheet1!AA:AD 도우미 매트릭스,
  분명히, 당신은 사용할 수 없습니다. MATCH("", …) 빈 셀을 찾는다.

이제 우리는 단지 내리막 길을 걸을 수 있습니다.
넣다 =INDEX(Sheet1!$A$2:$A$8, Sheet3!B2) 으로 Sheet2!B2.

+--------+---------+---------+---------+
| Status | Round 1 | Round 2 | Round 3 |
+--------+---------+---------+---------+
| IN     | Player1 | Player3 | Player1 |
| IN     | Player2 | Player4 | Player2 |
| IN     | Player3 | Player5 | Player5 |
| IN     | Player4 | Player6 | Player6 |
| IN     | Player5 | Player7 | Player7 |
| OUT    | Player6 | Player1 | Player3 |
| OUT    | Player7 | Player2 | Player4 |

답변

Public Sub players_rounds()
    first_sheet = "Sheet1"
    second_sheet = "Sheet2"
    Dim wkb As Workbook
    Dim wk1 As Worksheet
    Dim wk2 As Worksheet
    Set wkb = ThisWorkbook
    Set wk1 = wkb.Worksheets(first_sheet)
    Set wk2 = wkb.Worksheets(second_sheet)
    wk1_lastColumn = wk1.Cells(1, Columns.Count).End(xlToLeft).Column
    wk1_lastRow = wk1.Cells(Rows.Count, 1).End(xlUp).Row
    count_in = 0
    For i = 2 To wk1_lastRow
        If wk1.Cells(i, 2) = "I" Then count_in = count_in + 1
    Next i
    wk2.Cells.Clear
    wk2.Rows(1).value = wk1.Rows(1).value
    wk2.Cells(1, 1).value = "Status"
    count_out = wk1_lastRow - count_in - 1

    For i = 2 To count_in + count_out + 1
        If i <= count_in + 1 Then
            wk2.Cells(i, 1).value = "IN"
        Else
            wk2.Cells(i, 1).value = "OUT"
        End If
    Next i

    For i = 2 To wk1_lastRow
        thisplayer = wk1.Cells(i, 1)
        For j = 2 To wk1_lastColumn
            playervalue = wk1.Cells(i, j)
            playerround = wk1.Cells(1, j)
            If playervalue = "I" Then
                firstrow = 2
                lastrow = count_in + 1
            Else
                firstrow = count_in + 2
                lastrow = count_in + count_out + 1
            End If
            For k = 2 To wk1_lastColumn
                If wk2.Cells(1, k) = playerround Then
                    For m = firstrow To lastrow
                        If wk2.Cells(m, k) = "" Then
                            wk2.Cells(m, k) = thisplayer
                            m = lastrow
                            k = wk1_lastColumn
                        End If
                    Next m
                End If
            Next k
        Next j
    Next i
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Call players_rounds
End Sub