エクセル：調査データの変換[完了]

-4

この調査データを変換するにはどうすればよいですか。

microsoft-excel

— Niels Bosma
ソース

質問は妥当な量の研究を実証しなければならないため、この質問をトピック外として閉じることにしています。解決されている問題の理解a）あなたの問題とそれを解決するためにこれまでに行った研究を明確に説明するか、b）解決策とそれがうまくいかなかった理由を編集してください。どちらの場合でも、あなたの期待される結果が明確に提示されていることを確認してください。

— Tetsujin

ヒントを持ってください：あなたは、各文字A、BなどをテストするためにFIND（）を使用し、それからセルを生成するためにIF（）を使用することができます...

— Solar Mike

下記のVBAコードは問題解決に役立ちます。 しかし、これはColumnに対してのみ機能します。 。

    Private Sub CommandButton1_Click()

    Dim xRg As Range
    Dim xRg1 As Range
    Dim xCell As Range
    Dim I As Long
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRet As Variant

    On Error Resume Next

    xAddress = Application.ActiveWindow.RangeSelection.Address

    Set xRg = Application.InputBox("Select Input Range", "Transpose Data", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

    If xRg Is Nothing Then Exit Sub
        If xRg.Columns.Count > 1 Then
            MsgBox "You Can't Select Multiple Columns", , "Transpose Data"
            Exit Sub
            End If

            Set xRg1 = Application.InputBox("Split to (Single Cell):", "Transpose Data", , , , , , 8)
            Set xRg1 = xRg1.Range("A1")

            If xRg1 Is Nothing Then Exit Sub
                xUpdate = Application.ScreenUpdating
                Application.ScreenUpdating = False
                For Each xCell In xRg
                    xRet = Split(xCell.Value, ",")
                    xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)
                    I = I + UBound(xRet, 1) + 1
                Next
                Application.ScreenUpdating = xUpdate

End Sub

これがお役に立てば幸いです。

— Rajesh S
ソース

ほとんどあります。質問のように、これをユーザーIDと結果のマッチングの最後のステップにすることはできますか？

— fixer1234

@ fixer1234 ,,問題はユーザーIDがRowにある、、、です！

— Rajesh S