教えていただきました。
http://q.hatena.ne.jp/1245772843
ちなみに教えていただいたマクロに機能を追加し、
空の行を入れた都道府県名のみを
E列にコピーするということを行いたいです。
可能でしょうか?
北海道 ○○市○~ 北海道
北海道 ○○○○市○~
北海道 ○○市○~
青森県 ○市~ 青森県
宮城県 ○○市~ 宮城県
宮城県 ○○○市~
宮城県 ○○○市~
宮城県 ○○○市~
宮城県 ○○○市~
福島県 ○市~ 福島県
福島県 ○○○○市○~
どうぞよろしくお願いいたします。
リンク先の回答の最後に以下のコードを挿入してみてください。
Dim s As String lastRow = Cells(Rows.Count, 2).End(xlUp).Row For r = 1 To lastRow If Cells(r, 1).Value <> s And Cells(r, 1).Value <> "" Then s = Cells(r, 1).Value Cells(r, "E").Value = s End If Next
出来ました。
どうもありがとうございます。