[[20230124205218]]　『1問ごとにセル結合』（キシリトール）　ページの最後に飛ぶ

『1問ごとにセル結合』（キシリトール）

英語のテストの問題を、1問ごとにセル結合したいのですが、できずに困っています。

1 )test01
2 )1. Many people ( ) commute to work
3 )(A) work in New York City        (B) who work in New York City
4 )(C) are working in New York City   (D) in New York Cityare working
5 )2. ( ) is not clear to researchers.
6 )(A) than     (B) whereas      (C) because      (D) but
7 )3. Glaciers begin to form ( ) more snow
8 )(A) is when
9 )(B) when there are
10 )(C) when
11)(D) when does
12)18. Long a favorite among cat lovers, Athe Angora cat Bis prized for Ctheir long silky hair and Dshiny green eyes.

上記の例で言うと、1行目～4行目、5行目～6行目、7行目～11行目、12行目といった具合です。ちなみに列はすべてＡ列です。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

[[20230123231422]] 『文頭の数字を利用したタブ結合』（クロレッツ）
　

 なぜそんなことをしたいのですか？
 セルを結合するのなんてやめなさいといいたいところですが．．．

 結果としてどのようになればいいのかを書いてください
（´・ω・`） 2023/01/24(火) 21:22:29

1行目～4行目、5行目～6行目、7行目～11行目、12行目という風に結合したいです。
初心者ですみません。自力でも試した後様々なサイト等を調べましたが無理でした…
とても困っているのですが、どうかご助力いただけませんか？
（キシリトール） 2023/01/24(火) 22:40:20

 こっちで進行するんですか？
 ならば、別スレッドからこちらのスレッドに誘導してください。
　
 そもそも、なんでセル結合したいのか全然納得できないのでやる気が起きないんですが、
 何の目的でセル結合したいんですか？　結合しなくてもいい方法を考える方がおすすめです

 さて、以下の2点を明らかにしてください

 (1)問題の区切りを判断する方法
　　人間の目でみたらなんとなくわかるでしょじゃなくて、言語化してください

 (2)結果として得たい表の形
　　レイアウトを示してください。
　　どんな風に書き込めばいいかは、ほかのスレッド参考にしてください
（´・ω・`） 2023/01/24(火) 23:03:45

 Sub sample()
    Dim sCell As Range, eCell As Range, buf As String
    Dim i As Long
    Application.DisplayAlerts = False
    Set eCell = Cells(Rows.Count, 1).End(xlUp)
    For i = eCell.Row To 1 Step -1
        Set sCell = Cells(i, 1)
        buf = sCell.Value & IIf(buf = "", "", vbLf) & buf
        If sCell.Value Like "#.*" Or sCell.Value Like "##.*" Then
           Range(sCell, eCell).Merge
           sCell.Value = buf
           Set eCell = sCell.Offset(-1)
           buf = ""
        End If
    Next
    Application.DisplayAlerts = True
 End Sub
（´・ω・`） 2023/01/25(水) 06:37:34

ありがとうございます！愛してます！
（´・ω・`）
（キシリトール） 2023/01/25(水) 17:25:33

 質問に答えていない
 1行目～4行目という要求に応えていないはずだが？
 中途半端に終わって気持ち悪い
（´・ω・`） 2023/01/25(水) 20:39:26

コメント返信：

[ 一覧(最新更新順) ]

[[20230124205218]] 『1問ごとにセル結合』（キシリトール） ページの最後に飛ぶ

[[20230124205218]]　『1問ごとにセル結合』（キシリトール）　ページの最後に飛ぶ