すみません。誰か教えて下さい。
下記の様な並べ替えが出来る関数を誰か知りませんか?
マンション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で質問しましょう!
似たような質問が見つかりました
- その他(税金) 相続税等 1 2022/05/21 10:31
- 分譲マンション 下記のマンションの修繕と管理費はぱっと見妥当だとおもいますか?理由を詳しく教えてください。 このマン 1 2022/05/12 23:22
- 分譲マンション 新築マンションの水圧が弱い 4 2022/04/10 08:56
- 分譲マンション 分譲マンションのゴミ捨て場の解錠と施錠について 6 2023/06/13 13:14
- 不動産投資・投資信託 https://bit.ly/43lVe4x 2019.06.08 2025年、マンションの9割近く 1 2023/06/05 14:29
- 分譲マンション 分譲マンションの購入について。 結婚を機に新築マンションを購入予定です。 妻の実家の近くのマンション 6 2022/11/02 07:41
- 賃貸マンション・賃貸アパート 1階にテナント店舗が入っていて2階以上に住居があるマンションは防音がしっかりしているんでしょうか?? 1 2022/09/09 10:55
- その他(住宅・住まい) マンションのドアの前に、荷物を置いていたら、誰かに盗まれました。このマンションは各5部屋あって、10 3 2022/05/23 11:01
- 防犯・セキュリティ メンズエステについて(通報) 2 2023/02/09 17:35
- 分譲マンション 築7年くらいのマンションで、同時期に売りに出してる部屋が4部屋くらいあるマンションがあります。訳あり 1 2022/06/03 21:15
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBAで、横並びのデータを縦並びにしたい
その他(Microsoft Office)
-
エクセルで横並びの複数データを縦の一本のデータにしたい
Excel(エクセル)
-
EXCELで「行と列を入れ替える」操作を何回も繰り返して自動実行する方法はないでしょうか?
Excel(エクセル)
-
-
4
エクセル 横並びの複数行データを縦1列にしたい
Excel(エクセル)
-
5
VBA横のデータを縦にする方法
Excel(エクセル)
-
6
VBA横データを縦にしたいです
Visual Basic(VBA)
-
7
エクセルで横並びの複数データを縦のデータにしたい こんにちは。宜しくお願い致します。 A B C D
ソフトウェア
-
8
VBAで横データを縦データに変換する方法を教えて下さい。
その他(Microsoft Office)
-
9
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
10
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
11
マクロ:横並びデータを縦並びに変更
Excel(エクセル)
-
12
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
13
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
16
VBA 縦のデータを横にするコード
IT・エンジニアリング
-
17
VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい
Visual Basic(VBA)
-
18
別のシートから値を取得するとき
Visual Basic(VBA)
-
19
Excel で行を指定回数だけコピーしたい
Excel(エクセル)
-
20
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ゴルフコンペの会費に係る消費...
-
繁殖用の成犬が死にました。
-
「インボイス制度」ゴルフコン...
-
タイミーでバイトを雇った際の...
-
償却資産の固定資産税について
-
個人事業主で高速道路料金の立...
-
帳簿についてです。 塗装業の塗...
-
「インボイス」ゴルフコンペの...
-
インボイス制度 不動産売買の際...
-
Windows11なのですがPDFにパス...
-
交通費の支給について
-
「イオンのセルフレジの領収書」...
-
青色申告の勘定科目について
-
""未上場株式会社""の財務情報...
-
控除額が給料の支払金額を上回...
-
賞与引当金の計上について計上...
-
印紙について
-
電子帳簿保存法 CM内容の真偽
-
会社の資本金とかでよくある 「1...
-
インボイス対応の領収書の書き...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
帳簿についてです。 塗装業の塗...
-
ゴルフコンペの会費に係る消費...
-
タイミーでバイトを雇った際の...
-
インボイス制度 不動産売買の際...
-
Windows11なのですがPDFにパス...
-
「インボイス制度」ゴルフコン...
-
会社主催のイベント費用の勘定...
-
パソコンが壊れ交換となった場...
-
振替について教えて下さい 来期...
-
給与の未払、翌月2ヶ月分振込と...
-
【確定申告】車譲渡の経理処理...
-
経理の勉強をしてます。 今、読...
-
「イオンのセルフレジの領収書」...
-
法人ですが、会計ソフトに入力...
-
賞与の計算方法がわからない
-
節税したい。経理事務所への依...
-
キャンセルされた新幹線の領収...
-
原価61万円の作業費用に粗利50...
-
「インボイス」ゴルフコンペの...
-
【数学・粗利率の計算】A社がB...
おすすめ情報