こんにちは。下記のように登録されているコードを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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Excel(エクセル) 時間差を求めるマクロコードを教えてください。 4 2022/05/17 18:22
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Excel(エクセル) Excelマクロ(VBA)CELL形式とA1形式の使い分け 6 2022/08/27 23:35
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Excel(エクセル) 【マクロ】PasteSpecialメソッドにて、コードが動かない理由が分かりません 2 2023/08/15 20:47
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) Excelのマクロについて 2 2022/06/14 03:38
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) ExcelVBAで質問です。離れた二次元配列を一つにしたい 4 2022/07/26 19:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラム言語について。
-
C#とC++について。
-
interface 2021年5月号 P46
-
vba クリップボードクリアにつ...
-
CLispのloop内の挙動について
-
VBAでパワーシェルを実行したい...
-
Google ColaboでGUI作成
-
昔のパソコン少年の武勇伝「店...
-
HTMLソースが表示のページのも...
-
VBA 電話番号の正規表現について
-
Pythonでgif画像が上手く作れない
-
初心者powershellのPS1ファイル...
-
ImageMagickでgif画像の一部が...
-
プログラミングを教えたいです...
-
プログラマーと学歴の関係性に...
-
pythonで複数画像からgifを作る...
-
プログラミング
-
windowsでテキストファイルの各...
-
プログラミング、アーキテクチ...
-
ExcelVBAでFormulaR1C1を列範囲...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プログラミング
-
小学1年生の子です。塾に行かせ...
-
vba クリップボードクリアにつ...
-
プログラマーと学歴の関係性に...
-
Webサイト内に埋め込んだmp4動...
-
正規表現で複数マッチ条件で悩...
-
windowsでテキストファイルの各...
-
楽しくて最高のプログラミング...
-
プログラミング ソースコード
-
Pythonって何を意識した言語な...
-
プログラミングを教えたいです...
-
pythonで複数画像からgifを作る...
-
pythonにてseleniumを使うも、...
-
Pythonでgif画像が上手く作れない
-
Google ColaboでGUI作成
-
テキストファイルのファイル名...
-
プログラミング、アーキテクチ...
-
そのまま使っただけなのに・・...
-
このURLで広告を出しているのは...
-
chatGPTで次々と質問をしていく...
おすすめ情報