すみません。誰か教えて下さい。
下記の様な並べ替えが出来る関数を誰か知りませんか?
マンションA 101 107 201
マンションB 202 405
マンションC 102 203 301 501
マンションD 103 201 405
↓
マンションA101
マンションA 107
マンションA 201
マンションB202
マンションB 405
マンションC102
マンションC 203
マンションC 301
マンションC 501
マンションD103
マンションD 201
マンションD 405
誰かご存知の方いましたら教えて下さい。
No.4ベストアンサー
- 回答日時:
参考です。
可変データの取り扱いはマクロ(VBA)が簡単です。
データをSheet1、並び替えをSheet2に行います。
(1)Sheet1タブ上で右クリック→コードの表示→以下のサンプルコードを貼り付け→F5キー押下
マクロの削除は貼り付けたコードを全削除して下さい。
サンプルです。
Sub 並び替え()
Set st1 = Sheets("sheet1")
Set st2 = Sheets("sheet2")
For i = 1 To st1.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To st1.Cells(i, Columns.Count).End(xlToLeft).Column
n = n + 1
st2.Cells(n, 1) = st1.Cells(i, 1)
st2.Cells(n, 2) = st1.Cells(i, j)
Next
Next
End Sub
No.3
- 回答日時:
分かり易く計算に負担のかからない方法は作業列を作って対応することでしょう。
例えば元の表がシート1に有るとしてA1セルには項目名が、A2セルから下方にマンション名のデータが入力されているとして、各マンションでの部屋番号は右横の列に入力されており、仮にG列までに入力されているとします。
そこで作業列としてH列にはH1セルには0と入力し、H2セルには次の式を入力して下方にオートフィルドラッグします。
=IF(B2="","",COUNT(B$2:G2))
別のシートのAおよびB列にお求めの表を作成するとしたら別のシートのA2セルには次の式を入力して下方にオートフィルドラッグします。
=IF(ROW(A1)>MAX(Sheet1!H:H),"",IF(COUNTIF(Sheet1!H:H,ROW(A1))=1,INDEX(Sheet1!A:A,MATCH(ROW(A1),Sheet1!H:H,0)),INDEX(Sheet1!A:A,MATCH(ROW(A1),Sheet1!H:H,1)+1)))
B2セルには次の式を入力して下方にオートフィルドラッグします。
=IF(A2="","",INDEX(Sheet1!B:G,MATCH(A2,Sheet1!A:A,0),COUNTIF(A$2:A2,A2)))
No.2
- 回答日時:
今仮に、元データリスト中で「マンションA」と入力されているセルが、Sheet1のA1セルであり、並べ替えた結果はSheet2のA列~B列の2行目以下に表示するものとし、部屋番号は全て数詞のみで表されており、「A101」等の様な文字が含まれた部屋は無いものとした場合には、次の様な方法があります。
まず、Sheet2のA1セルに次の数式を入力して下さい。
=Sheet1!$A$1
次に、Sheet2のA2セルに次の数式を入力して下さい。
=IF(ROWS($2:2)>COUNT(OFFSET(Sheet1!$1:$1,1,,MATCH("゛",Sheet1!$A:$A,-1)-ROW(Sheet1!$A$1))),"",INDEX(Sheet1!$A:$A,MATCH(A1,Sheet1!$A:$A,0)+(COUNTIF(A$1:A1,A1)>=COUNT(OFFSET(Sheet1!$1:$1,MATCH(A1,Sheet1!$A:$A,0)-ROW(Sheet1!$A$1),)))))
次に、Sheet2のB2セルに次の数式を入力して下さい。
=IF($A2="","",SMALL(OFFSET(Sheet1!$1:$1,MATCH($A2,Sheet1!$A:$A,0)-ROW(Sheet1!$A$1),),COUNTIF($A$1:$A2,$A2)))
次に、Sheet2のA2~B2の範囲をコピーして、同じ列の3行目以下に貼り付けて下さい。
以上です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBA横に並んでいるデータを縦に並ぶデータにしたいです。
Visual Basic(VBA)
-
Excel VBAで、横並びのデータを縦並びにしたい
その他(Microsoft Office)
-
VBA横データを縦にしたいです
Visual Basic(VBA)
-
-
4
VBA横のデータを縦にする方法
Excel(エクセル)
-
5
VBAで横データを縦データに変換する方法を教えて下さい。
その他(Microsoft Office)
-
6
エクセルで横並びの複数データを縦の一本のデータにしたい
Excel(エクセル)
-
7
EXCELで「行と列を入れ替える」操作を何回も繰り返して自動実行する方法はないでしょうか?
Excel(エクセル)
-
8
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
9
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
10
エクセル 横並びの複数行データを縦1列にしたい
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
マクロ:横並びデータを縦並びに変更
Excel(エクセル)
-
14
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
15
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
16
エクセルで横並びの複数データを縦のデータにしたい こんにちは。宜しくお願い致します。 A B C D
ソフトウェア
-
17
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
18
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AAで始まる5,000円の新札がある...
-
タイミーでバイトを雇った際の...
-
企業版ふるさと納税をしても何...
-
ゴルフコンペの会費に係る消費...
-
新千円札 ”810”000番 野獣番号 ...
-
高額な贈答品は損金になります...
-
お世話になっております! 請求...
-
経理の業務について。 経理をや...
-
経理(単純作業が好き)将来が...
-
計算書類(財務諸表)について 最...
-
経理の勉強 簿記二級を持ってい...
-
転がし計算では材料→仕掛品→製...
-
会社の資本金とかでよくある 「1...
-
ベトナムから家具を輸入し販売...
-
「インボイス制度」ゴルフコン...
-
会社で音楽イベントをやったの...
-
一般企業で経理関係をやられて...
-
決算の期ずれ 決算の期ずれをし...
-
会計での仕訳が分かりません
-
ユニットハウスの耐用年数と勘...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ゴルフコンペの会費に係る消費...
-
タイミーでバイトを雇った際の...
-
AAで始まる5,000円の新札がある...
-
ユニットハウスの耐用年数と勘...
-
会社の資本金とかでよくある 「1...
-
簿記三級のICカードへのチャージ
-
「インボイス制度」ゴルフコン...
-
一般企業で経理関係をやられて...
-
インボイス制度について
-
お世話になっております! 請求...
-
会社で音楽イベントをやったの...
-
「インボイス」ゴルフコンペの...
-
会計での仕訳が分かりません
-
転がし計算では材料→仕掛品→製...
-
決算の期ずれ 決算の期ずれをし...
-
決算計上について
-
簿記3級、簿記2級の資格の勉...
-
個人事業主で高速道路料金の立...
-
キャンセルされた新幹線の領収...
-
未成工事受入金の仕訳について。
おすすめ情報