[[20191219234906]]　『特定の文字が入っている下に一行挿入したい』（かずと）　ページの最後に飛ぶ

『特定の文字が入っている下に一行挿入したい』（かずと）

Cの列にところどころ「〇」が入っています。
「〇」が入っている行の下に一行ずつ挿入したいのです。

例えば

あ
い
う
〇
え
お
〇
か
〇
き

だとすると

あ
い
う
〇

え
お
〇

か
〇

き

と、言う形にしたいと思います。
よろしくお願いします。

＜使用 Excel：Office365、使用 OS：unknown ＞

For ... Nextを使って繰り返しをします。
重要なのは、Step -1 を使って、
最終行から上に実行していく
ところです。
　
というのは、上からすると、挿入によって、行番号がずれてしまうのに対し、
下から上に実行すれば、挿入による影響（ズレ）が今後の処理に及ばせないですむからです。
　
一行挿入するコードは、試験的にマクロ記録をとれば判明します。
是非、ご自分でトライしてみることをお薦めします。
（γ） 2019/12/20(金) 02:40

 B,C列作業列

 B1 に1を入力
 B2 =IF(A1="〇",B1+2,B1+1) A列データあり行まで下へコピー。
 C2 =IF(A2="〇",B2+1,"") A列データあり行まで下へコピー。

 B11（データなし開始行） =SMALL(C:C,ROW(A1)) 下へコピー。

 B列基準にB列数値あり行までA:B列選択し。照準並び替え

 結果

	A	B	C
1	あ	1	
2	い	2	
3	う	3	
4	〇	4	5
5		#REF!	
6	え	#REF!	
7	お	#REF!	
8	〇	#REF!	#REF!
9		#REF!	
10	か	#REF!	
11	〇	#REF!	
12		#REF!	
13	き	#REF!	
14		#NUM!	
15		#NUM!	
16		#NUM!	
17

 その後B,C列削除。

（GobGob） 2019/12/20(金) 07:52

すみません。

難しくて、わかりませんでした。
（かずと） 2019/12/21(土) 00:01

＞難しくて、わかりませんでした。

この程度で難しいならEexcelやめれば。

関数についてもっと勉強せよ。

名無し
（） 2019/12/21(土) 10:45

 手作業です

 １．1行目に行を挿入して見出しを付けます
 ２．B2セルから下に1,2,3と連番を入れます（オートフィルが便利です）
 ３．A列B列にオートフィルタを設定して、A列を〇 のみ 表示させます
 ４．表示された行すべてを選択してコピーします
 ５．最下行の下の行から貼り付けます
 ６．オートフィルタを解除します
 ７．B列で昇順で並べ替えます

 挿入した行の〇が邪魔なら５の時点で貼り付けた〇をクリアしてから並べ替えてください

（渡辺ひかる） 2019/12/21(土) 13:38

コメント返信：

[ 一覧(最新更新順) ]

[[20191219234906]] 『特定の文字が入っている下に一行挿入したい』（かずと） ページの最後に飛ぶ

[[20191219234906]]　『特定の文字が入っている下に一行挿入したい』（かずと）　ページの最後に飛ぶ