
こんにちは。宜しくお願い致します。
A B C
1 静岡 埼玉
2 福島 東京 愛媛
3 青森
4 長崎 徳島 愛媛
5 東京 千葉
6 秋田 兵庫 大阪
.
.
.
例えばこういう形で好きな都道府県の上位3つの解答がそれぞれあったとします。(1個の人もいるし、2個の人もいます)
これを別のシート(同じシートの違う場所でも構いません)に縦並び1本で出したいときどうしたらいいでしょうか。
★こういう風にしたい★
静岡
福島
青森
長崎
東京
秋田
埼玉
東京
愛媛
徳島
愛媛
千葉
兵庫
大阪
.
.
※好きな県などが人によって重複していても構いません、また順不同でもいいです。(縦並びのデータに東京が20個あってもよいということ)
形式を選択して貼り付けで行列を入れ替えるではうまくいかないです。
宜しくお願い致します。
No.5ベストアンサー
- 回答日時:
VBAで、もっと簡単に。
下記をVBEの標準モジュールにコピーし貼りつけ。
元データのあるシートで、データのある範囲を範囲指定して(空白セルが範囲内にあっても結構)、下記を実行。
Sub ichiretu()
Dim cl As Range
p = 1
For Each cl In Selection
If cl <> "" Then
Worksheets("sheet3").Cells(p, "A") = cl
p = p + 1
End If
Next
End Sub
Sheet3のA列に並びます。
おはようございます
VBAの基本的なものも全く触ったことがなかったのですが、コピペで簡単に出来ました!
今回は、こちらを採用させて頂き、今後使っていこうと思っております。
ありがとうございました!
No.4
- 回答日時:
こんにちは。
maruru01です。どこでもいいので、
=IF(COUNTIF($A$1:$C$6,"*")>=ROW(A1),INDEX($A$1:$C$6,ROUND(MOD(SMALL(IF(LEN($A$1:$C$6),COLUMN($A$1:$C$6)+ROW($A$1:$C$6)/1000),ROW(A1)),1)*1000,),INT(SMALL(IF(LEN($A$1:$C$6),COLUMN($A$1:$C$6)+ROW($A$1:$C$6)/1000),ROW(A1)))),"")
と入力して、[Ctrl]+[Shift]+[Enter]で確定します。
(数式の両端に「{}」が付いて、配列数式になります。)
そうしたら、これを下の行へ適当にコピーします。
なお、データ範囲は適宜変更して下さい。
数式を別のシートに入力する場合は、当然データ範囲にシート名を付けて下さい。
No.3
- 回答日時:
その作業が一時的なものであれば、手作業でもそれ程手間がかかりませんし、
いろいろな方法があります。既にレスもありますのでこの方法には触れません。
しかし、このような作業が、頻繁に発生するようであれば、マクロを使って処理
する方法が得策と思います。
下記マクロを実行すると範囲を聞いてきますので、一列に並べ替えたい範囲を
選択し、[OK]すると、このシートの右側に変換された新しいシートが出来ます。
シート名は、現シート名に"(変換)"を付加した名前です。
既にそのシート名が存在する場合は、現シートのすぐ右に移動し、内容(値)を
クリアした後に変換データが作成されます。
一応、コードの設定方法を書いておきます。
1.Alt + F11 で VBE(Visual Basic Editor)を開きます。
2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。
3.モジュールウィンドウに下記コードをコピーして貼り付けます。
4.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
5.メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
「中」にして[OK]します。
6.実行するときは、Alt + F8 (メニューから[ツール]-->[マクロ]-->[マクロ])で
「データを別シートに一列変換」を指定し、[実行]ボタンを押します。
(頻繁に使うようでしたら、ショートカットキーに割り付けるといいかも・・・)
Sub データを別シートに一列変換()
Dim ShOrg As Worksheet
Dim ShNew As Worksheet
Dim Hani As Range
Dim Rng As Range
Dim Rw As Long
Dim N As Integer
Dim ShName As String
Set ShOrg = ActiveSheet
If InStr(ShOrg.Name, "(変換)") Then
MsgBox "変換対象のシートではありません。", vbCritical
Exit Sub
End If
ShName = ShOrg.Name & "(変換)"
On Error Resume Next
Set Hani = Application.InputBox(vbLf & " ※ 一列に変換する" & _
"データ範囲を指定して、[OK]を" & vbLf & _
" 押してください。" & vbLf & vbLf & " 右側に 【" & _
ShName & " 】変換シートを作成します。", Type:=8)
If Err.Number > 0 Then Exit Sub
For N = 1 To Worksheets.Count
If Worksheets(N).Name = ShName Then
Set ShNew = Worksheets(N)
ShNew.Cells.ClearContents
Worksheets(N).Move After:=ShOrg
Exit For
End If
Next N
If N > Worksheets.Count Then
Set ShNew = Sheets.Add(After:=ShOrg)
ShNew.Name = ShName
End If
ShOrg.Activate
For Each Rng In Hani
If Not Trim(Rng.Value) = "" Then
Rw = Rw + 1
ShNew.Cells(Rw, 1).Value = Rng.Value
End If
Next Rng
MsgBox " 『 " & ShNew.Name & " 』 のシートに変換データを" & _
"作成しました。", vbInformation
End Sub
No.2
- 回答日時:
要件が
1、A列のデータが最初に並ぶ
2、B列のデータが次に並ぶが同じ行のC列にデータがある場合、次の行のB列のデータより先にC列のデータが並ぶ
とします。
B列とC列の間に1列挿入
(県データはB列とD列になります)
C1に
=IF(ISBLANK(B1),"",COUNTA($B$1:B1))
E1に
=IF(ISBLANK(D1),"",COUNTA($B$1:B1,$D$1:D1))
C2に
=IF(ISBLANK(B2),"",MAX($C$1:C1,$E$1:E1)+1)
以下末尾までコピペ
E2に
=IF(ISBLANK(D2),"",MAX($C$1:C2,$E$1:E1)+1)
以下末尾までコピペ
A列の末尾の次の行に
B、C列を「値の貼り付け」
その下に
D、E列を「値の貼り付け」
で、
B列に貼り付けられた、
C、Eの数字が優先順位になるので、
そこで並べ替えをすれば、
ご希望に適うと思われます。
文字にすると判り辛いかもしれませんが、
『優先順位を関数で作って並べ替える』とご理解ください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 転職 長く続けられる好条件の求人でしょうか? 3 2023/07/12 18:45
- その他(国内) 3時!夜中なのか早朝なのか微妙な時間、5時に出るならシャワー浴びてお茶淹れて神棚、仏壇 2 2022/05/20 03:58
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- その他(地域情報・旅行・お出掛け) 海外旅行に行ったことがないのは今や珍しいですか? 12 2022/12/01 19:51
- 新幹線 【鉄道】全国にある新幹線の駅の格付けランキングを作ってみました!皆様のご意見をよろしくお願いします。 1 2023/02/11 16:42
- 電車・路線・地下鉄 東京から東北一周したい 8 2023/06/23 15:31
- 転職 下記のような募集は、良い会社でしょうか?どう思いますか?入ってみたら良くない事が無いでしょうか? 4 2023/03/03 16:40
- 地理学 日本の各都市。海外でどれくらい認知されてますか? 4 2022/07/21 19:25
- 倫理・人権 コロナ対策と応援演説について。 4 2022/07/07 16:10
- 東北 東北旅行7日間、宿泊場所のアドバイスお願いします 2 2023/02/15 23:22
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
エクセル 横並びの複数行データを縦1列にしたい
Excel(エクセル)
-
エクセルで横並びの複数データを縦のデータにしたい こんにちは。宜しくお願い致します。 A B C D
ソフトウェア
-
Excel VBAで、横並びのデータを縦並びにしたい
その他(Microsoft Office)
-
-
4
VBA横に並んでいるデータを縦に並ぶデータにしたいです。
Visual Basic(VBA)
-
5
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
6
エクセルで縦に並んだデータをある項目毎に横に並び替えたい
Excel(エクセル)
-
7
【エクセル】区切り文字が含まれるデータを縦に展開する方法
Excel(エクセル)
-
8
エクセルで横データを縦に並べ変えたいです。
財務・会計・経理
-
9
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
グラフの横・縦項目が全部表示されない
Excel(エクセル)
-
12
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
13
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
14
excelで任意のセルを指定回数コピーペーストする方法を教えてください
Excel(エクセル)
-
15
VBA横のデータを縦にする方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
VBAで繰り返しコピーしながら下...
-
Excelに自動で行の増減をしたい...
-
エクセルで横並びの複数データ...
-
エクセルのブック分割マクロを...
-
エクセル マクロ 標準モジュー...
-
【条件付き書式】countifsで複...
-
Excelのセルの色を変えた行(す...
-
【エクセル】1列のデータを交...
-
VLOOKアップ関数の結果の...
-
Excelでの並べ替えを全シートま...
-
Excel 2段組み
-
エクセルの列の限界は255列以上...
-
【VBA】シート名と見出しが一致...
-
【VBA】複数のシートの指定した...
-
excel 複数のシートの同じ場所...
-
エクセルで、チェックボックス...
-
エクセルで、book全体の検索&...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
Excelでの並べ替えを全シートま...
-
VBAで繰り返しコピーしながら下...
-
【条件付き書式】countifsで複...
-
Excelのセルの色を変えた行(す...
-
エクセルで、チェックボックス...
-
エクセルの列の限界は255列以上...
-
VLOOKアップ関数の結果の...
-
Excelに自動で行の増減をしたい...
-
エクセル マクロ 標準モジュー...
-
【VBA】複数のシートの指定した...
-
Excel VBA ピボットテーブルに...
-
エクセルで横並びの複数データ...
-
【VBA】シート名と見出しが一致...
-
Excel 2段組み
-
SUMPRODUCTにて別シートのデー...
-
スプレッドシートでindexとIMPO...
おすすめ情報