エクセル2010を使用しています。
①１列目にA00001～A10000と入力されています。末尾1にだけbをつけた文字を２列目に入力したいのです。
例:A00001b
A00011b
A00021b
A00031b・・・
②１列めのbがついていない文字行の前に、2列目のにbがついている文字を挿入したいです。
例:A00001b
A00001
A00002
A00003
ずっと続いて、
A00011b
A00011
としたいのです。
どのようにすればよいか、教えていただけますでしようか。
No.1
4866
908
100pt
訂正します。１と２をつづけてやりたいということもわかりました。
＜１だけを行う場合＞
Ａ列と空行であるＢ列があるとして、２列目に、任意の文字を入れます。全角スペース１個を一行目にいれたものをドラッグして全行にするとかでもいいですし、単にＡ行をコピペしてもいいです。Ａ・Ｂ行をコピーしてワードの新規文書に「形式を選択して貼り付け」の「テキスト」で貼り、
CTRL+H をおして、オプションからワイルドカードを使用するにチェックをいれ
上欄に「1^t」 下欄に「1b^t」
とすれば末尾１のセルにすべてbが追加されるとおもいます
はいったものをまたエクセルの２行に「形式を選択して貼り付け」「テキスト」で貼り、Ｂ行を消すと、１だけがおわった状態になるとおもいます。
＜２もいっしょに行う場合＞
なら、①と同様のやり方においてCTRL+Hの直後だけを変更します。
おなじようにオプションからワイルドカード使用にチェックを入れた上
3
3
上欄に「([0-9A-Za-z]{1,})1^t」
下欄に「\11^t^p\11b^t」
で同様にやれば、一度に一行にできるのでは。Ｃ列にはデータはないですね。
ただし、自分のとても古いワードのばあい、{1,}を抜かないとうまく動作しませんでした。
かといって抜くと追加行でA0000が無視されてしまいます。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
１にせよ、２にせよ、末尾１以外の文字を新しく作ったセルにコピペしないといけないですが、
その前の文字（末尾から２桁目だけ）は「コピーペースト」ができるのですが、
末尾以外の桁数が決まっていないものをとなると末尾１まで読みたくなってしまうのでダメのようです。
（種類が違う文字ならｏｋ）
もし、この例のように、全桁数が７ときまっているときは、
①については
上欄に「([0-9A-Za-z]{1,6})1^t」
下欄に「\11^t\11b^t」
②については
上欄に「([0-9A-Za-z]{1,6})1^t」
下欄に「\11^t^p\11b^t」
でどうにかなるとおもいます。前ゼロがあって本当によかった。
桁数が決定されていないときはどうにもならないです。
もうすこしちゃんとしたマクロやphpでくまないといけません。
＝＝＝＝＝＝＝＝＝
６桁対応、1bつきを前行におきます。
これでどうなりましたか。
上欄に「([0-9A-Za-z]{1,5})1^t」
下欄に「\11b^t^p\11^t」
No.1
4866908
ここでベストアンサー
100pt
訂正します。１と２をつづけてやりたいということもわかりました。
＜１だけを行う場合＞
Ａ列と空行であるＢ列があるとして、２列目に、任意の文字を入れます。全角スペース１個を一行目にいれたものをドラッグして全行にするとかでもいいですし、単にＡ行をコピペしてもいいです。Ａ・Ｂ行をコピーしてワードの新規文書に「形式を選択して貼り付け」の「テキスト」で貼り、
CTRL+H をおして、オプションからワイルドカードを使用するにチェックをいれ
上欄に「1^t」 下欄に「1b^t」
とすれば末尾１のセルにすべてbが追加されるとおもいます
はいったものをまたエクセルの２行に「形式を選択して貼り付け」「テキスト」で貼り、Ｂ行を消すと、１だけがおわった状態になるとおもいます。
＜２もいっしょに行う場合＞
なら、①と同様のやり方においてCTRL+Hの直後だけを変更します。
おなじようにオプションからワイルドカード使用にチェックを入れた上
上欄に「([0-9A-Za-z]{1,})1^t」
下欄に「\11^t^p\11b^t」
で同様にやれば、一度に一行にできるのでは。Ｃ列にはデータはないですね。
ただし、自分のとても古いワードのばあい、{1,}を抜かないとうまく動作しませんでした。
かといって抜くと追加行でA0000が無視されてしまいます。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
１にせよ、２にせよ、末尾１以外の文字を新しく作ったセルにコピペしないといけないですが、
その前の文字（末尾から２桁目だけ）は「コピーペースト」ができるのですが、
末尾以外の桁数が決まっていないものをとなると末尾１まで読みたくなってしまうのでダメのようです。
（種類が違う文字ならｏｋ）
もし、この例のように、全桁数が７ときまっているときは、
①については
上欄に「([0-9A-Za-z]{1,6})1^t」
下欄に「\11^t\11b^t」
②については
上欄に「([0-9A-Za-z]{1,6})1^t」
下欄に「\11^t^p\11b^t」
でどうにかなるとおもいます。前ゼロがあって本当によかった。
桁数が決定されていないときはどうにもならないです。
もうすこしちゃんとしたマクロやphpでくまないといけません。
＝＝＝＝＝＝＝＝＝
６桁対応、1bつきを前行におきます。
これでどうなりましたか。
上欄に「([0-9A-Za-z]{1,5})1^t」
下欄に「\11b^t^p\11^t」
なぽりんさん、ありがとうございます。
まず教えていただいた方法で、全６桁なので{1,6})の部分の6→5に変更し実行したところ、B列にb付きが表示できるようになりました。ありがとうございました。
次の作業として、b表示できたものをbがついていないものの前に挿入したいのです。
A00001b
A00001
A00002
A00003
.
.
.
A00011b
A00011
のようにするには、B列のb付きのものだけを行挿入させるというマクロを組まないと表示できないのでしょうか?
なぽりんさん、ありがとうございました。完璧にできました。
本当にありがとうございました。
No.2
1314393
100pt
マクロの例で。
Sub Sample() Application.ScreenUpdating = False For r = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1 If Right(Cells(r, "A").Value, 1) = "1" Then Cells(r, "B").Value = Cells(r, "A").Value & "b" Rows(r).Insert Cells(r, "A").Value = Cells(r + 1, "B").Value End If Next Application.ScreenUpdating = True End Sub
なぽりん
2014/09/06 21:43:21
1
3
2
1
1
1
1
1
ツイッターの観覧人数の数はどうのように統計されますか？ 人がそツイッターをクリックしただけか、それとも見た時間（二分以上とか）…
1
なぽりんさん、ありがとうございます。
2014/09/07 09:01:37まず教えていただいた方法で、全６桁なので{1,6})の部分の6→5に変更し実行したところ、B列にb付きが表示できるようになりました。ありがとうございました。
次の作業として、b表示できたものをbがついていないものの前に挿入したいのです。
A00001b
A00001
A00002
A00003
.
.
.
A00011b
A00011
のようにするには、B列のb付きのものだけを行挿入させるというマクロを組まないと表示できないのでしょうか?
なぽりんさん、ありがとうございました。完璧にできました。
2014/09/08 08:51:45本当にありがとうございました。