エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19635 for 20��... (0.004 sec.)

[[20200207164323]]: #score: 2681; @digest: e83d2b3eda0d592deb6745988b780589; @id: 82239; @mdate: 2020-02-17T06:47:36Z; @size: 6318; @type: text/plain; #keywords: 国女 (117121), 国男 (117121), 米国 (75736), 女b (68585), 女a (66273), 男b (60418), 名男 (59266), 男a (56717), 女20 (54494), 本女 (53905), 本男 (53414), 中国 (44282), 国25 (42032), 国名 (41863), 男25 (41712), 国20 (35753), 女15 (34631), 男10 (32434), 名女 (25864), イギ (25487), 男20 (25366), 国3 (25036), 国2 (24253), イ4 (19445), 別a (18553), ド5 (16384), ス6 (13241), ー+ (12111), ギリ (12111), 名性 (11861), 本10 (11549), 日本 (10820); 『ひとつの行のデータをふたつの行に並べ替えたい』（グラン）
【元々、下記のようなデータがあるのですが、】 A列 B列 C列 D列 E列 1 国名男A 男B 女A 女B 2 日本 10 15 20 25 3 米国 20 30 15 20 4 中国 25 20 20 35 【上記を、下記のように変えたいと思っています】 A列 B列 C列 D列 1 国名性別 A B 2 日本男 10 15 3 日本女 20 25 4 米国男 20 30 5 米国女 15 20 6 中国男 25 20 7 中国女 20 35 本当はデータ（行）がもっと山ほどあるため、ひとつひとつ手で動かしたくありません。何か簡単にできる方法があれば教えて頂きたいです。宜しくお願い致します。＜使用 Excel:Excel2010、使用 OS:unknown ＞ ---- Sub main() 'Sheet1をSheet2に変える Dim c As Range With Sheets("Sheet2") .Cells.ClearContents .Range("A1:D1").Value = Array("国名", "性別", "A", "B") For Each c In Sheets("Sheet1").Range("A2:A" & Rows.Count).SpecialCells(2) .Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Array(c.Value, "男", c.Offset(, 1).Value, c.Offset(, 2).Value) .Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Array(c.Value, "女", c.Offset(, 3).Value, c.Offset(, 4).Value) Next c End With End Sub （mm） 2020/02/07(金) 17:32 ---- mmさま、ありがとうございます。マクロはよくわからないのですが、トライしてみます。もしマクロを使わないやり方がありましたらご教示いただけますと幸いです。（グラン） 2020/02/07(金) 17:42 ---- A列 B列 C列 D列 E列 F列 1 国名性別 A B A B 2 日本男 10 15 20 25 3 日本女 4 米国男 20 30 15 20 5 米国女 6 中国男 25 20 20 35 7 中国女 ↑ ここまでは出来るのですが、E2:F2をC3:D3（以下、E4:F4をC5:D5、・・・）へまとめて移す手段は無いでしょうか? （グラン） 2020/02/07(金) 17:54 ---- A列 B列 C列 D列 1 国名性別 A B 2 日本男 3 日本女 4 米国男 5 米国女 6 中国男 7 中国女この部分が出きているのなら、 C2 =VLOOKUP($A2,Sheet1!$A$1:$E$4,MATCH($B2&C$1,Sheet1!$1:$1,0),0) （BJ） 2020/02/08(土) 02:45 ---- 上の部分が出来無いというのなら、手動だけど元の国名だけ別シートにコピー隣のB列に連番を振る。日本 1 米国 2 中国 3 タイ 4 インド 5 イギリス 6 これをコピーして最下部へ貼り付け日本 1 米国 2 中国 3 タイ 4 インド 5 イギリス 6 日本 1 米国 2 中国 3 タイ 4 インド 5 イギリス 6 B列をキーにして並べ替え。日本 1 日本 1 米国 2 米国 2 中国 3 中国 3 タイ 4 タイ 4 インド 5 インド 5 イギリス 6 イギリス 6 A列をコピーして、メイン?シートに張り付け。男女と入った2セルをコピー先ほどメイン?シートに張り付けた物と同等の数のB列を選択して貼り付け。日本男日本女米国男米国女中国男中国女タイ男タイ女インド男インド女イギリス男イギリス女（BJ） 2020/02/08(土) 11:14 ---- ＞ひとつひとつ手で動かしたくありません。 [A] [B] [C] [D] [E] [1] 国名男A 男B 女A 女B [2] 日本 10 15 20 25 [3] 米国 20 30 15 20 [4] 中国 25 20 20 35 1）A1セル選択 2）Ctrlキー + Shiftキー + :キーを押下 3）Ctrlキー + Cキー押下 4）H1セル選択 5）Ctrlキー + Vキー押下ここまでやると、 [A] [B] [C] [D] [E] [F] [G] [H] [I] [J] [K] [L] [1] 国名男A 男B 女A 女B 国名男A 男B 女A 女B [2] 日本 10 15 20 25 日本 10 15 20 25 [3] 米国 20 30 15 20 米国 20 30 15 20 [4] 中国 25 20 20 35 中国 25 20 20 35 こうなると思います。 [A] [B] [C] [D] [E] [F] [G] [H] [I] [J] [K] [L] [M] [N] [1] 国名男A 男B 女A 女B 国名男A 男B 女A 女B [2] 日本男 10 15 20 25 日本女 10 15 20 25 [3] 米国 20 30 15 20 米国 20 30 15 20 [4] 中国 25 20 20 35 中国 25 20 20 35 6）列をそれぞれ挿入して、 7）男と女を入れます。 8）B2セルを選択したらセルの枠が太く強調されると思います。で、その右下に黒い■があると思います（新しいバージョンは色が違うかも?）それをダブルクリックでフィルコピー出来ると思います。（■に合わせるとマウスカーソルが十字になると思います。） 9）J2セルも同様にフィルハンドルをダブルクリック 10）左の表の女A女Bの列を削除 11）右の表の男A男Bの列を削除 [A] [B] [C] [D] [E] [F] [G] [H] [I] [J] [1] 国名男A 男B 国名女A 女B [2] 日本男 10 15 日本女 20 25 [3] 米国男 20 30 米国女 15 20 [4] 中国男 25 20 中国女 20 35 12）E1セルに1、E2セルに2と入れてE1:E2の範囲を選択 13）またフィルハンドルをダブルクリック 14）そのまま、Ctrlキー + Cキーでコピー 15）K1セルを選択して、Ctrlキー + Vキーで貼付 [A] [B] [C] [D] [E] [F] [G] [H] [I] [J] [K] [1] 国名男A 男B 1 国名女A 女B 1 [2] 日本男 10 15 2 日本女 20 25 2 [3] 米国男 20 30 3 米国女 15 20 3 [4] 中国男 25 20 4 中国女 20 35 4 16）H1セルを選択し Ctrl + Shift + : 17) Ctrl + C 18) A1セルを選択して、Ctrlキー + ↓矢印キー押下 19）一つ下のセルを選択して、Ctrl + V [A] [B] [C] [D] [E] [1] 国名男A 男B 1 [2] 日本男 10 15 2 [3] 米国男 20 30 3 [4] 中国男 25 20 4 [5] 国名女A 女B 1 [6] 日本女 20 25 2 [7] 米国女 15 20 3 [8] 中国女 20 35 4 20）E1セルを選択して、昇順で並び替え [A] [B] [C] [D] [E] [1] 国名男A 男B 1 [2] 国名女A 女B 1 [3] 日本男 10 15 2 [4] 日本女 20 25 2 [5] 米国男 20 30 3 [6] 米国女 15 20 3 [7] 中国男 25 20 4 [8] 中国女 20 35 4 21）2行目を削除して 22）1行目を書き直す 23）E列を選択して値をクリア [A] [B] [C] [D] [E] [1] 国名性別 A B [2] 日本男 10 15 [3] 日本女 20 25 [4] 米国男 20 30 [5] 米国女 15 20 [6] 中国男 25 20 [7] 中国女 20 35 で、意図した結果になると思います。手順が長いですが、「ひとつひとつ」よりは楽かなと。 (※表の中に空白行、空白列が無い前提です）「エクセルショートカットキー」「フィルハンドル」を調べてみてください。あと、作業列（作業用に仮に順番や数式を入れておいて、後で消す列）に順番を入れておいて並び替えるテクニックも覚えておいて損はないかと思います。（まっつわん） 2020/02/08(土) 21:48 ---- まっつわんさん、ありがとうございました。無事にできました。（グラン） 2020/02/17(月) 15:47 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202002/20200207164323.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ