![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.6ベストアンサー
- 回答日時:
No2です
回答を読まれた形跡がないので、多分、興味は無いのでしょうけれど、一応。
Sheet2の同じ位置(A列が空白でB列にID)とするなら、No2を1文字変えるだけで済みます。
C2セルに
=IFERROR(INDEX(Sheet1!C$1:C$8,AGGREGATE(15,6,INDEX(ROW($B$2:$B$8)/(Sheet1!$B$2:$B$8=$B2)/(Sheet1!C$2:C$8<>""),,),1)),"")
この回答へのお礼
お礼日時:2019/07/26 16:36
有難うございます。
右の図は別シートの同じ位置より始まり
B列に出てくる同じ数字のデータを横に並べたい
B列データはランダムに出てきます。
説明が下手ですみません、よろしくお願いします。
No.7
- 回答日時:
》 関数を使ってできる方法をお願いします。
合点承知!下記の関数で可能です。
皆さんのような諄い説明無し!先ずは黙って試してみる!
添付図参照
式 =SUMPRODUCT(($B$2:$G$7=$J2)*(C$2:C$7)) を入力したセル K2 を下に1行右に4列オートフィル ⇒ 範囲 A2:O3 を選択したマンマ、下記の[条件付き書式]を設定
ルールの適用先: =$K$2:$O$3
ルールの種類: “指定の値を…書式設定”
ルールの内容↓
 ̄ ̄左端→“セルの値” ̄中央→“次の値に等しい” ̄右端→ =0
 ̄ ̄書式→白のフォント色
No.5
- 回答日時:
こんにちは!
VBAになりますが、一例です。
↓の画像のような配置で元データはSheet1にあり、Sheet2に表示するとします。
標準モジュールです。
尚、Sheet1のA列データに対して1行目のA~Eの重複はない!という前提です。
Sub Sample1()
Dim myDic As Object
Dim i As Long, j As Long
Dim lastRow As Long, lastCol As Long
Dim wS As Worksheet
Dim c As Range
Dim myKey, myR
Set myDic = CreateObject("Scripting.Dictionary")
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
Range(.Cells(1, "B"), .Cells(1, lastCol)).Copy wS.Range("B1")
myR = Range(.Cells(2, "A"), .Cells(lastRow, lastCol))
For i = 1 To UBound(myR, 1)
If Not myDic.exists(myR(i, 1)) Then
myDic.Add myR(i, 1), ""
End If
Next i
myKey = myDic.keys
For i = 0 To UBound(myKey)
wS.Cells(i + 2, "A") = myKey(i)
Next i
For i = 1 To UBound(myR, 1)
For j = 2 To lastCol
If myR(i, j) <> "" Then
Set c = wS.Range("A:A").Find(what:=myR(i, 1), LookIn:=xlValues, lookat:=xlWhole)
wS.Cells(c.Row, j) = myR(i, j)
End If
Next j
Next i
End With
Set myDic = Nothing
MsgBox "完了"
End Sub
※ Sheet2の表示形式は好みの表示形式にしてください。m(_ _)m
![「エクセルで縦に並んだデータを横に並び替え」の回答画像5](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/9/667667_5d3aa4e844820/M.jpg)
No.2
- 回答日時:
こんにちは
並べ替えの説明がないので、添付の図から勝手に解釈しました。
>別シートに作成したいです。
別シートの添付図と同じ範囲(J1:O4)に表を作成するものとします。
勝手な解釈なので、以下の仮定をしています。
※ 元データの存在するシート名は「Sheet1」とする
※ 元データの範囲は添付図の通り(B1:G8)で、1行目とB列が項目タイトル
※ 元データの列タイトル(A~E)は、並べ替え後の列タイトル(A~E)とは同じ順
(タイトルの検索も可能でしょうけれど、面倒になるばかりなので・・・)
※ もしも、マッチするデータが複数存在する場合は行番号の小さな方を採用する
上記を条件として、並べ替え後の表のK2セルに
=IFERROR(INDEX(Sheet1!C$1:C$8,AGGREGATE(15,6,INDEX(ROW($B$2:$B$8)/(Sheet1!$B$2:$B$8=$J2)/(Sheet1!C$2:C$8<>""),,),1)),"")
の式を入力し、右、下方の必要な範囲にフィルコピー。
ではいかが?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【エクセル】並び替えからの並び替え方法 7 2022/07/22 09:46
- Excel(エクセル) エクセルの並び替えについて 5 2022/07/11 00:49
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- C言語・C++・C# C言語プログラム変更 2 2022/12/21 15:03
- Excel(エクセル) エクセルでのマクロを使ったデータの並べ替え 3 2022/12/03 18:54
- Google Drive Googleスプレッドシートについて質問です。 今作っているデータで、 シート1→ベタ打ちでひたすら 2 2022/05/18 14:27
- Excel(エクセル) 棚卸表の前月比の関数等あれば教えてください 2 2023/05/02 18:34
- Excel(エクセル) 同じ品番のマスタで最新日付のものに〇印を入れたい 3 2023/03/31 17:45
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Excelのセルの色を変えた行(す...
-
エクセルの数式について教えて...
-
Excelでの記号と特殊文字につい...
-
Lookup関数
-
エクセルの数式バーのフォント...
-
MACにおけるエクセルの入力トラ...
-
IFとIFS関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
再質問です。マクロの修正箇所...
-
【マクロ】VLOOKUPにて参照元に...
-
データチェックを行うエクセル...
-
【ExcelVBA】名前を付けて保存→...
-
EXCELの散布図で日付が1900年に...
-
エクセルで「ページレイアウト...
-
スプレッドシートの関数につい...
-
エクセルでファイルの最終更新...
-
エクセルの問題です。絶対値の...
-
エクセルを使っていて2024/5/15...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報
回答有難うございます。
右の図は別シートの同じ位置より始まり
Bに出てくる同じ数字のデータを横に並べたい
Bデータはランダムに出てきます。
説明が下手ですみません、よろしくお願いします。