色々検索やら、考えてみたのですが、解決できずで質問させていただきました。
エクセル2003なのですが、やりたい内容としては
A B
1 1 りんご
2 1 みかん
3 2 すいか
4 1 なし
5 3 いちご
・・・
・・・
・・・
という内容を、別シートに関数でA1から
A
1 りんご
2 みかん
3 すいか
4 すいか
5 なし
6 いちご
7 いちご
8 いちご
・・・
・・・
・・・
という形でできればと思っているのですが。
どなたか教えてくださると助かります!!
やはり固定の数字でないと中々難しいでしょうか?ひねっても全然頭にでてきません。。。
No.6
- 回答日時:
元データのB列の内容に、重複が無く、且つ、途中には空欄が無い場合には、作業列を使わずとも、次の様な方法があります。
今仮に、元データが存在しているシートがSheet1であり、結果を表示する別シートのシート名がSheet2であるものとします。
まず、Sheet2のA1セルに、次の数式を入力して下さい。
=IF(Sheet1!$B$1="","",Sheet1!$B$1)
次に、Sheet2のA2セルに、次の数式を入力して下さい。
=IF(ROWS($1:2)>SUM(Sheet1!$A:$A),"",IF(COUNTIF(A$1:A1,A1)<INDEX(Sheet1!$A:$A,MATCH(A1,Sheet1!$B:$B,0)),A1,INDEX(Sheet1!$B:$B,MATCH(A1,Sheet1!$B:$B,0)+1)))
そして、Sheet2のA2セルをコピーして、Sheet2のA3以下に貼り付けて下さい。
以上です。
いろいろな方法があることにびっくりです。
今回に関しては重複する可能性があるので、ご回答いただきました方法は使用できないですが、作業列が必要ないのはすごくいいですよね。
もっと勉強する必要があると感じました!ありがとうございました!
No.5
- 回答日時:
こんばんは!
ご希望の関数ではなく、VBAでの一例です。
Sheet1のデータをSheet2に表示するようにしてみました。
※ Sheet1の1行目はタイトル行でデータは2行目からあるとしています。
画面左下のSheet1のSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Dim i As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet2")
Application.ScreenUpdating = False
Columns(2).Copy Destination:=ws.Cells(1, 1)
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) <> 1 Then
ws.Rows(i + 1 & ":" & i + Cells(i, 1) - 1).Insert
End If
Next i
For i = 2 To WorksheetFunction.Sum(Columns(1)) + 1
If ws.Cells(i, 1) = "" Then
ws.Cells(i, 1) = ws.Cells(i - 1, 1)
End If
Next i
Application.ScreenUpdating = True
End Sub 'この行まで
以上、最初に書いたようにご希望の方法でなければ読み流してくださいね。m(_ _)m
すごいですね。。。。マクロの理解ができません。
もっと勉強しないと思わされます。関数をもっとマスターできたら挑戦してみたいと思います!
ありがとうございました!
No.3
- 回答日時:
D1セルに =A1
D2セルに
=IF(COUNTA(D$1:D1)>=SUM(A:A),"",
INDEX(B:B,MATCH(D1,B:B,0)+(INDEX(A:A,MATCH(D1,B:B,0))<=COUNTIF(D$1:D1,D1))))
下へオートフィル
D列を切り取って 別シートに貼り付け
指定の個数以上になったら、次の行に移る(+1)
画像までつけていただいてありがとうございます!!
しかし、#N/Aになってしまいました。やり方が間違ってるかもしれないですので、いっこいっこ理解してやってみます!
ありがとうございました!
No.2
- 回答日時:
回答No1です。
前回の回答で次のように訂正してください。シート1の作業列ではC1セルには0を入力して方C2に次の式を入力して下方にオートフィルドラッグします。
=IF(B3="","",SUM(A$2:A3))
別のシートではA2セルに次の式を入力して下方にオートフィルドラッグします。
=IF(ROW(A1)>MAX(Sheet1!C:C),"",IF(COUNTIF(Sheet1!C:C,ROW(A1))=1,INDEX(Sheet1!B:B,MATCH(ROW(A1),Sheet1!C:C,0)),INDEX(Sheet1!B:B,MATCH(ROW(A1),Sheet1!C:C,1)+1)))
追加のご回答いただきまして、ありがとうございます!!
また、別の動きになってしまいました。。一度理解してやってみます!
ありがとうございました!
No.1
- 回答日時:
元の表はシート1に有って、A列およびB列の2行目から下方にデータがあるとします。
C列は作業列として次の式をC2セルに入力して下方にオートフィルドラッグします。=IF(B2="","",SUM(A$2:A2))
お求めの表は別のシートのA2セルから下方に表示させるとしてA2セルには次の式を入力して下方にオートフィルドラッグします。
=IF(ROW(A1)>MAX(Sheet1!C:C),"",IF(COUNTIF(Sheet1!C:C,ROW(A1))=0,A1,INDEX(Sheet1!B:B,MATCH(ROW(A1),Sheet1!C:C,0))))
早速の回答ありがとうございます!!
ひとつひとつ調べないと理解ができなさそうですが、同じ様にサンプルで作ってみたのですが、
ひとつ上のセル情報が繰り返し表示になってしまいました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- Excel(エクセル) エクセルで納品書を作成中ですが、関数を教えて下さい。 2 2022/09/05 10:32
- Excel(エクセル) エクセルを活用して受注表を作成中ですが関数が分からなく困ってました。 1 2022/07/22 09:14
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) エクセル関数について 8 2023/06/28 17:04
- Microsoft ASP グーグルフォーム 1 2022/12/30 18:16
- Excel(エクセル) 下記エクセルの式がなぜこうなるのか理由が知りたいです。 6 2022/08/20 00:43
- Excel(エクセル) エクセル 関数について 2 2022/10/10 07:56
- Excel(エクセル) Excel M365 データチェックの仕掛けを作りたい 2 2023/06/03 23:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【Microsoft Forms】回答を削除...
-
Office 2021 Professional Plus...
-
マイクロソフト 一時使用コード...
-
【スプレッドシート】指定の日...
-
VLOOKUP関数について
-
英数字のみ全角から半角に変換
-
Microsoft Formsで「応答」から...
-
エクセルでXLOOKUP関数...
-
エクセルで英文字に入れた下線...
-
1つのPCに「Excel 2010」「Exc...
-
大学のレポート A4で1枚レポー...
-
マクロ自動コピペ 貼り付ける場...
-
Outlookでの時間指定送信機能に...
-
会社におけるOfficeライセンス...
-
Office Professional Academic ...
-
vb.net オブジェクト指向につい...
-
マイクロソフト オフィスについて
-
エクセルで例えば、関数を使っ...
-
Microsoft Officeを2台目のPCに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
英数字のみ全角から半角に変換
-
Office2021を別のPCにインスト...
-
Microsoft Formsの「個人情報や...
-
officeビジネス型のワードやエ...
-
会社PCのメールが更新されない
-
【スプレッドシート】指定の日...
-
Microsoft Officeを2台目のPCに...
-
何このステータスバー
-
2つのシートの一致する行のセ...
-
会社のTeamsのことで相談です。...
-
エクセルにリンクされるのをし...
-
Windows 11で、IME言語バー(IM...
-
office2010とoffice365の共存で...
-
Microsoftのパソコンです。 エ...
-
エクセルでXLOOKUP関数...
-
Excel関数について質問ですm(__)m
-
VBA
-
自分の専門分野の仕事。初見で...
おすすめ情報