エクセルマクロで行挿入

質問

「マクロの記録」でマクロを作っていて限界を見たので質問します。

A列に5桁コード、B列から付随するデータを使い、
この5桁コードの頭文字が「１」から「２」に変わる所に一行挿入させたいです。

挿入の指定場所に検索を入れ込むのかなぁとやってみたところ、エラーになりました。

↓これがそれ。
Columns("A:A").Select
range(Selection.find(What:="2????", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate) As range
Selection.EntireRow.Insert

てんで見当違いかもしれませんが参考に貼り付けてみました。
どうすれば良いか教えてください。

（WinNT・Excel2000）

回答No.1

u_marine · ベストアンサー

簡単ですがこんな感じでいかがでしょうか？
ちなみに、テーブルの1行目は見出し行と仮定して、
2行目から処理を開始しています。

Sub Macro1()

'変数のセット(開始行2行目)
i = 2

'A列の値が空白になるまで処理を繰り返す
Do While Cells(i, 1).Value <> ""

'i行が"１"かつi-1行が"２"のときの処理
If Left(Cells(i, 1).Value, 1) = "２" And _
Left(Cells(i - 1, 1).Value, 1) = "１" Then

'行挿入
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown

End If

'処理行数をカウントアップ
i = i + 1

Loop

End Sub

お礼

ご回答ありがとうございました。

なりたいカタチになりました。

回答No.3

nishi6

＞この5桁コードの頭文字が「１」から「２」に変わる所に一行挿入させたいです
このセルは1箇所ですよね。

マクロ記録を書き換えていませんか？下のようにすれば動くはずです。

Columns("A:A").Select
Cells.Find(What:="2????", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
Selection.EntireRow.Insert

お礼

ご回答ありがとうございました。

コピぺで実行したところ１行目に空白行ができました。

やりたいことと少し違っていました。

回答No.2

imogasi

結果として＃１のご解答と似てしまいました。
for ,next でやろうとしたが,最終を動かすのが上手く行かなくてgotoで凌ぎました。A列にコードがあると仮定。
Sub test01()
Sheet1.Activate
'--------
a = Cells(1, "a")
s = Trim(Str(a))
m = Mid(s, 1, 1) 'mは１行前のキー
i = 1
'---------
p01:
If Cells(i, "a") = "" Then GoTo p02
'---本行のキー作成
a = Cells(i, "a")
s = Trim(Str(a))
k = Mid(s, 1, 1)
MsgBox k & "=" & i
'----キーが前行に比べ変ったか
If m <> k Then
Rows(i).Select
Selection.EntireRow.Insert
d = d + 1 '１行増えると終わりの行（数）は１増える
End If
'-----本行のキーを次行処理へ渡すためmに入れる
m = k
i = i + 1
GoTo p01
p02:
End Sub
----------
（１）私の経験から、習い始めはFindを使うのは難しい。
　　　特に２つ目以降を見つける処理。
　　　ワイルドカードも、使えたかどうかうろ覚えです。
（２）行挿入・削除も、処理すべき最終行が動くので、プログラムを組むのに注意が要るので、勉強をはじめるのに「適当な分野でない」と思っています。
（３）ForNext,DoWｈileなど、全行を繰り返し、見ていく
ロジック（総なめ法）をまず身につけるべきと思います。
コンピュター処理が早くなったので、処理時間は気にする
必要がなくなりました。１本釣りで見つけるロジックの方法（例えばFind)の方が難しいのですよ。

お礼

ご回答ありがとうございました。

コピペで実行したところ「実行時エラー'13'型が一致しません」
４行目「s = Trim(Str(a))」が黄色くなりました。

何がいけないのかよくわかりませんが求めていたものにはなりませんでした。