こんにちは。下記のように登録されているコードを1レコードづつに並べたいのですが、知恵が出ません。
できればExcelだけを利用して解決したいと思っております。
どなたか良い解決方法を教えてください。
テーブルデータ
A列 B列 C列
グループ コードFrom コードTo
-----------------------------
A1 1 5
A1 200 250
B1 10 25
B1 100 150
求めている結果
A列 B列
グループ コード
-------------------
A1 1
A1 2
A1 3
A1 4
A1 5
A1 200
A1 201
・
・
・
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
関数を使って、Sheet2のA、B列に出力してみました。
(当方、Excel2010です)Sheet1を添付図のようにしてください。
質問の表の左に1列挿入しています。挿入が難しければ、任意の箇所に同じように作ってください。添付図のように挿入できたとします。
添付図では、データの終了を示す「Z999」をB6に入力しています。
セルA2に、
=SUM(A1,D1,1)-SUM(C1)
として下にコピーします。2行目は表題を参照するのでSUM関数で加算しています。各行の通番の最初をセットしています。算式を簡略化するために設けました。
Sheet2のA2に、
=VLOOKUP(ROW()-1,Sheet1!$A$2:$C$6,2,1)
Sheet2のB2に、
=IF(VLOOKUP(ROW()-2+(ROW()-2=0),Sheet1!$A$2:$C$6,3,1)<>VLOOKUP(ROW()-1,Sheet1!$A$2:$C$6,3,1),VLOOKUP(ROW()-1,Sheet1!$A$2:$C$6,3,1),SUM(B1,1))
として、下にコピーします。この例では、A列に「Z999」が出てきたら終了です。その行から下は削除してください。
Sheet1の参照範囲は実態に合うように変更してください。
No.2
- 回答日時:
こんばんは!
VBAでの一例です。
↓の画像のように左側がSheet1で右側のSheet2に表示するとします。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻りマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から
Dim i As Long, lastRow As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(.Cells(2, "A"), .Cells(lastRow, "B")).ClearContents
End If
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
cnt = wS.Cells(i, "B") - 1
Do Until cnt = wS.Cells(i, "C")
cnt = cnt + 1
With .Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Value = wS.Cells(i, "A")
.Offset(, 1) = cnt
End With
Loop
Next i
End With
End Sub 'この行まで
※ 関数でないのでSheet1のデータ変更があるたびにマクロを実行する必要があります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラミングについて プログ...
-
プログラミングの進学について
-
Web初心者です。 簡易的なWebペ...
-
vba クリップボードクリアにつ...
-
pythonでAmazonのほしいものリ...
-
プログラマーは誘惑にさらされ...
-
Google Colabでimport soxが出...
-
Google ColaboでGUI作成
-
ExcelVBAでFormulaR1C1を列範囲...
-
HTMLソースが表示のページのも...
-
VBAでパワーシェルを実行したい...
-
Pythonで指定時間までスリープ...
-
近年誕生したプログラミング言語
-
Python... 環境設定 初心者です...
-
chatGPTで次々と質問をしていく...
-
このURLで広告を出しているのは...
-
テキストファイルの1行目のみを...
-
ITパスポートの勉強をしていま...
-
初心者powershellのPS1ファイル...
-
python エラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vba クリップボードクリアにつ...
-
Pythonでの文字列からfloatへの...
-
プログラミング言語について
-
matplotlibでのLaTex表示
-
Google ColaboでGUI作成
-
HLMT、CSSについて相談です。 ...
-
近年誕生したプログラミング言語
-
長門有希のようにコンピュータ...
-
hostファイル
-
プログラマーに向いている人の...
-
Win11で作業を自動化したいです...
-
Pythonを使ってせん断応力図、...
-
・オブジェクト指向のメリット...
-
ホログラムを作ってくれる会社...
-
このURLで広告を出しているのは...
-
エディターで以下のような色に...
-
google Colabでmatplotlibの描...
-
プログラマーは誘惑にさらされ...
-
VBAでパワーシェルを実行したい...
-
特定の項目セルにスキャン(入...
おすすめ情報