VBA Excel 3カラムをArraryに変換する

Question

これを行う方法を探していて、壁に当たっているような気がします。 。 。私はVBAで新しくなっているので、これは正しい方法ではないかもしれません。

私はこのようになりますテーブルがあります。

を私はそれがこのように見える必要があります。

クライアントは、様々な目的のためにこのデータを使用する必要があります。彼らはPivot Tableを試しましたが、彼らはそれがどのように見えて、彼らのエンドユーザもそれを気に入らなかったのです。彼らはまた、それが最終的なフォーマットになった後、データに多くの調整を行います。

名前と質問を正しいレイアウトで新しいシートにコピー/貼り付けすることができました。私はその後、For Eachループを実行して名前をフィルタリングし、この新しいシートに回答をコピー/貼り付け/転記しようとしていました。質問と名前の数が常に変わるので、私はこの方法を使いました。

私が見ているコードはわかりません。オンラインで見つかった古い例を私のケースに合わせてどのように操作できるかわかりません。

提案がありますか？それとも、私が逃したことをしようとしているものにかなり近い何かをしている別の投稿がありますか？

ありがとうございました！

Answer 1

名前がソートされていて、すべての名前に同じ質問があるので、簡単な「二重一致-1」を実行して答えをワークシートの式として取得できます。 （シート1のリスト1およびシート2のリスト2を有する）

=INDEX(sheet1!$C:$C,MATCH(B$1,INDEX(sheet1!$B:$B,MATCH($A2,sheet1!$A:$A,0)):sheet1!$B$99999,0)+MATCH($A2,sheet1!$A:$A,0)-1) 

B2のフォーミュラ。右と下を埋める。

数式を必要としない場合は、シートとコピー/貼り付け値をVBAを介して別のシートにのみ非表示にします。

名前は動作しますが、「ABAB」または「BAAB」しません完全な順序ではなく、一緒に「AABB」と「bbaa」である必要はありません。質問は順不同である必要はありませんが、誰かに「q1」を持たないと、別の名前で見つかった次の「q1」が与えられます。

Answer 2

あなたは単にPower Pivotでこれを行うことができます（無料のMSアドインを2010年から2013年2016年（別名Data --> Get & Transformに）

単に一

• ピボットにQuestions列を選択する（）新しい列を作成します
• 値]列 - >Answers
  • 詳細オプションDo not aggregate

これが掲載され、あなたのデータを使用した結果である：

私が作った唯一の書式変更は表オプション]で[フィルタ]ボタンをオフにすることでした。