ツイッター出題回答
記号を繰り返してグラフ作成(10単位で折り返す)

ExcelマクロVBAとエクセル関数についての私的雑感
公開日:2023-08-28 最終更新日:2023-08-28

記号を繰り返してグラフ作成(10単位で折り返す)


ツイッターで出題したエクセル数式問題です。


記号を繰り返してグラフにする数式の紹介は良く見かけます。
それでは、記号を10個単位で折り返してグラフ化する数式を作成してください。


出題ツイート

【エクセル問題】
記号を繰り返してグラフにするのは良くありますよね。
添付のように10個で折り返してグラフ化してください。
縦でも横でも、どちらでも構いません。

エクセル Excel 関数 数式 問題
https://twitter.com/yamaoka_ss/status/1695353595909304591


引用ツイートでの回答

出題者としての回答

多くの回答をお寄せいただいたので、それで十分なのですが、
一応出題者としての解答を出しておきます。

出題時に最初に作成した数式


=TEXTJOIN(CHAR(10),,MID(REPT("■",B2),SEQUENCE(B2/10+1,,,10),10))

エクセル Excel 関数 数式 問題

MID(REPT("■",B2)
まず最初に、これで指定数の■を並べます。

エクセル Excel 関数 数式 問題

その後に、10個ずつにちぎります。
MID(REPT("■",B2),SEQUENCE(B2/10+1,,,10),10)
この中の、
SEQUENCE(B2/10+1,,,10)
これは、1,11,21,…という数列を作成しています。

エクセル Excel 関数 数式 問題

MID(REPT("■",B2),{1;11;21},10)
つまり、
MID(REPT("■",B2),1,10)
MID(REPT("■",B2),11,10)
MID(REPT("■",B2),21,10)

エクセル Excel 関数 数式 問題

これをTEXTJOINでつなげて完成です。
数式の文字数を減らすだけなら、
=TEXTJOIN("
",,MID(REPT("■",B2),SEQUENCE(B2,,,10),10))


エクセル Excel 関数 数式 問題

作成する数列1,11,21,…これは余分にあっても結果に影響はないので数値分作成してしまいます。
改行は、CHAR(10)より""を数式バーで改行してしまったほうが短いですね。


別解の作成

別解として、少し変わったものをと思って作成してみました。
でも、むやみに長くなってしまっただけな感じも・・・
=REDUCE(REPT("■",B2),
SEQUENCE(B2/10,,B2-RIGHT(B2)+1,-10),
LAMBDA(x,y,REPLACE(x,y,0,CHAR(10))))


エクセル Excel 関数 数式 問題

ちょっと変わった感じにするのに、REPLACE関数を使って10個単位で改行するようにしてみました。


グラフを縦にする

数式で縦に積み上げることも出来なくはないですし、寄せられた回答にもあるようですが・・・
とりあえず、簡単に「セルの書式設定」で対応する方法は知っておくべきでょう。

エクセル Excel 関数 数式 問題

縦位置:下詰め
方向:文字列を縦
折り返して全体を表示
以上の3箇所を設定することで縦のグラフになります。




同じテーマ「ツイッター出題回答 」の記事

リーグ表に対戦番号を振る
数列内の連続偶数のみ順序を入れ替える
ランクによりポイントを付ける(同順位はポイントを分割)
記号を繰り返してグラフ作成(10単位で折り返す)
Excel関数の引数を省略した場合について
日時データから日付ごとの集計(UNIQUE,SUMIFS,GROUPBY)
シートコピー後のアクティブシートは何か
ByRef引数の型が一致しません。
シートのActiveXチェックボックスの指定方法
列全体を指定する時のRangeとColumnsの違い
スピルのゴーストの範囲を選択するVBA


新着記事NEW ・・・新着記事一覧を見る

AIは便利なはずなのに…「AI疲れ」が次の社会問題になる|生成AI活用研究(2026-02-16)
カンマ区切りデータの行展開|エクセル練習問題(2026-01-28)
開いている「Excel/Word/PowerPoint」ファイルのパスを調べる方法|エクセル雑感(2026-01-27)
IMPORTCSV関数(CSVファイルのインポート)|エクセル入門(2026-01-19)
IMPORTTEXT関数(テキストファイルのインポート)|エクセル入門(2026-01-19)
料金表(マトリックス)から金額で商品を特定する|エクセル練習問題(2026-01-14)
「緩衝材」としてのVBAとRPA|その終焉とAIの台頭|エクセル雑感(2026-01-13)
シンギュラリティ前夜:AIは機械語へ回帰するのか|生成AI活用研究(2026-01-08)
電卓とプログラムと私|エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン|エクセル関数応用(2025-12-25)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.日本の祝日一覧|Excelリファレンス
3.変数宣言のDimとデータ型|VBA入門
4.FILTER関数(範囲をフィルター処理)|エクセル入門
5.RangeとCellsの使い方|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
8.マクロとは?VBAとは?VBAでできること|VBA入門
9.セルのクリア(Clear,ClearContents)|VBA入門
10.メッセージボックス(MsgBox関数)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ