| |
おはようございます。
エクセルの段階で作業した方が簡単かもしれませんね。
こんな感じで。
（都道府県はB列、１行目が見出しで２行目からデータ、最終データの次の行は
何も入力されていない、という前提で）
Sub test()
dim r as long
r = 2 + 1 '処理を開始する行+1
with activesheet
while .cells(r,2) <> ""
if .cells(r,2) <> .cells(r-1,2) then
.rows(r).insert
r = r + 1
end if
r = r + 1
wend
end with
end sub
同じことを秀丸のマクロでできないわけではありませんが、わずかに面倒です。
あるいは、（事情があってエクセルのマクロは利用できないとか、勉強のためあ
えて秀丸のマクロを使いたいとか）どうしても秀丸マクロで処理したいというご
希望がありますか？
|
|